Ponto-de-Entrada: OX004DNF - Processamento Após Geração da NF
| 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:
Este Ponto de Entrada permite qualquer processamento após a geração da NF (dentro da transação).
Eventos
User Function OX004DNF()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX004
Sintaxe
OX004DNF - Processamento Após Geração da NF ( [ ] ) --> lret
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lret(logico)
- Aborta ou Continua a Operação.
Observações
reclock("VS1",.f.)
VS1->VS1_STATUS := "X"
if lGeraPedido
VS1->VS1_NUMPED := SC5->C5_NUM
endif
if lGeraNF // NF
VS1->VS1_NUMNFI := cNota
VS1->VS1_SERNFI := cSerie
endif
msunlock()
If FindFunction("FM_GerLog")
//grava log das alteracoes das fases do orcamento
FM_GerLog("F",VS1->VS1_NUMORC,,VS1->VS1_FILIAL,cVS1StAnt)
EndIF
//
if ExistBlock("OX004DNF")
if !ExecBlock("OX004DNF",.f.,.f.)
DisarmTransaction()
Return(.f.)
Endif
Endif
//
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
//
//################################################################
//# Gravacao da Movto gerencial (VEC) #
//################################################################
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |