Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: MNTA655SEN - Digitação de Nota Fiscal de Abastecimento
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada criado na rotina Digitação de Nota Fiscal de Abastecimento. Ele é chamado tanto na inclusão, quanto na alteração, logo após o Sistema fazer todas consistências padrões do abastecimento. Com esse ponto de entrada, o cliente poderá incluir novas validações para o abastecimento, de acordo com suas necessidades específicas ou então fazer a gravação dos dados do abastecimento em uma tabela de usuário.
Programa Fonte 
MNTA655.PRX
Sintaxe

MNTA655SEN - Digitação de Nota Fiscal de Abastecimento ( ) --> .T. ou .F.

Retorno
    .T. ou .F.(logico)
  • No caso de fazer uma consistência de Abastecimento, se o registro estiver inconsistente, retornará .F., não deixando gravar o abastecimento
Exemplos 
User Function MNTA655SEN()Local aOldArea := GetArea()//Gravando os dados do Abastecimento em uma tabela de usuáriodbSelectArea("ZZZ")dbSetOrder(01)If dbSeek(xFilial("ZZZ")+M->TQN_NOTFIS)   RecLock("ZZZ",.T.)   ZZZ->ZZZ_FILIAL := xFilial("ZZZ")   ZZZ->ZZZ_POSTO  := M->TQN_POSTO   ZZZ->ZZZ_LOJA   := M->TQN_LOJA   ZZZ->ZZZ_NFISCA := M->TQN_NOTFIS   ZZZ->ZZZ_TOTAL  := M->TQN_VALTOT   MsUnlock("ZZZ")EndifRestArea(aOldArea)Return .t.