Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX004ATR - Validações na NF do Orçamento
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:
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas