Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Gisele Aparecida da Silva

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OX004ATR - Validações na NF do Orçamento
OX004ATR - Validações na NF do Orçamento

Ponto-de-Entrada: OX004ATR - Validações na NF do Orçamento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado na geração da NF do orçamento de peças, validando as transações.
Eventos
User Function OX004ATR()
 
MsgInfo(“Ponto de Entrada OX004ATR”,”Atencao”)
return nil
 
Programa Fonte 
OFIXX004.PRW
Sintaxe

OX004ATR - Validações na NF do Orçamento ( [ ] )

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
Array of Record
Retorno
    ()
Observações
 //
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
//
If ExistBlock("OXX004ATRA") // O B S O L E T O
ExecBlock("OXX004ATRA",.f.,.f.)
EndIf
//
If ExistBlock("OX004ATR")
ExecBlock("OX004ATR",.f.,.f.)
EndIf
 
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
//
//#############################################################################
//# INICIO DO CONTROLE DE TRANSACAO                                           #
//#############################################################################
BEGIN TRANSACTION
//If lMudouNum
// TODO: Como passar para a integracao o novo numero caso seja alterado no SX5NumNota?
//EndIf
if lIntegraLoja // Cupom Fiscal
cOrcLoja := ""
FG_GRVLOJA(aCabPV,aItePV,aPagPV,.F.,@cOrcLoja)
//
RecLock("VS1",.f.)
VS1->VS1_PESQLJ := cOrcLoja
MsUnlock()
endif
//#############################################################################
//# SE FOI ENCONTRADA NF PARA ESSA TRANSACAO HOUVE UM ERRO INESPERADO         #
//#############################################################################
if lGeraNF // NF
//set delete off
DBSelectArea("SF2")
DBSetOrder(1)
If DBSeek(xFilial("SF2")+cNumero+cSerie)
MsgInfo(STR0023,STR0019)
DisarmTransaction()
Return .f.
EndIf
//set delete on
endif
 
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão