Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VX001CNF - Validação do cancelamento 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: 
Ponto de Entrada para validar o Cancelamento de NF.
Eventos
 User Function VX001CNF()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
 
Programa Fonte 
VEIXX001
Sintaxe

VX001CNF - Validação do cancelamento da NF ( [ ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet(logico)
  • Retorna .T., se tudo OK e .F., caso contrario
Observações
 dbSelectArea("SD2")
dbSetOrder(3)
If !dbSeek(xFilial("SD2")+VV0->VV0_NUMNFI+VV0->VV0_SERNFI)
MsgStop(STR0034+;
" "+STR0035,STR0036+": VX000E06")//ocorreu um erro inesperado # contactar o administrador de sistemas # codigo
Return(.f.)
EndIf
//
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Ponto de Entrada para validacao do Cancelamento de NF |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("VX001CNF")
lRet := ExecBlock("VX001CNF",.f.,.f.)
If !lRet
Return.f.
EndIf
EndIf
//
// ARMAZENA A NF DE ORIGEM PARA ALTERAR STATUS CASO HAJA CANCELAMENTO (cOpeMov = "4")
cChaveOri := SD2->D2_NFORI+SD2->D2_SERIORI
//
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não