Descrição

Este Ponto de Entrada permite executar alguns procedimentos específicos ao efetuar o estorno dos documentos de transporte do cliente.

Observações

Exemplos

User FunctionTMA050EXC()

Local aNfs  :=  PARAMIXB[1]

Local lRet  :=  PARAMIXB[2]

Local nCnt  :=  0

For nCnt  :=  1 To  Len(aNfs)

   If lRet

      MsgAlert("Docto: "+aNfs[nCnt,1]+" Serie:"+aNfs[nCnt,2]+"  Cliente: "+aNfs[nCnt,3]+" Loja: "+aNfs[nCnt,4]+" Fil.Orig: "+aNfs[nCnt,5]+" Lote:     "  +aNfs[nCnt,6],  "TMA050EXC") 

           lRet  :=  .F.

   EndIf

Next nCnt

Return (lRet)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

PARAMIXB 1, onde 1o item contém vetor contendo os documentos estornados, contendo número e série da nota, código cliente e loja, código de produto, Filial Origem, Numero do Lote e Chave NFe.

PARAMIXB 2, Retorno Booleano. 

Retorno

Booleano

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

TMSA050.PRW