Árvore de páginas

Descrição

Este Ponto de Entrada é utilizado para manipular o vetor, contendo os campos referentes ao título a ser gerado na integração com a rotina Contas a Receber (FINA040), executado a cada título (antes da integração).

Observações

Exemplos

User Function VM180TIT()
Local aParcela := ParamIxb[01] // Parametro 1 - Titulo a ser manipulado
MsgInfo("Ponto de Entrada VM180TIT executado com sucesso!","Atenção")
Return(aParcela)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aVetTit - ARRAY contendo os campos e conteudos referente ao Titulo (Contas a Receber) que sera gerado.

Retorno

aParcela - ARRAY contendo os campos e conteudos referente ao Titulo (Contas a Receber) que sera gerado.

Eventos de chamada do Ponto de Entrada

aVetTit := {}
aAdd(aVetTit,

Unknown macro: {"E1_PREFIXO",cPreTit ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_NUM" ,cNumTit ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_PARCELA",cParc ,nil}

)
If !Empty(aNFTit[06])
aAdd(aVetTit,

Unknown macro: {"E1_NATUREZ",aNFTit[06] ,nil}

)
EndIf
aAdd(aVetTit,

Unknown macro: {"E1_CLIENTE",aNFTit[01] ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_LOJA" ,aNFTit[02] ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_TIPO" ,"CFD" ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_PREFORI",cPrefOri ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_EMISSAO",dDataBase ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_VENCTO" ,aSE1CIFD[nCntTam,01],nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_VENCREA",DataValida(aSE1CIFD[nCntTam,01]),nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_VALOR" ,aSE1CIFD[nCntTam,02],nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_ORIGEM" ,"MATA460" ,nil}

)
aAdd(aVetTit,

Unknown macro: {"E1_VEND1" ,aNFTit[04] ,nil}

)
If !Empty(aNFTit[08])
aAdd(aVetTit,

Unknown macro: {"E1_PORTADO",aNFTit[08] ,nil}

)
EndIf
If lExistPET
aAuxParc := ExecBlock("VM180TIT",.f.,.f.,

Unknown macro: { aClone(aVetTit) }

)
If ValType(aAuxParc) == "A"
aVetTit := aClone(aAuxParc)
nNumTit := aScan(aVetTit,

Unknown macro: {|x| x[1] == "E1_NUM" }

)
If nNumTit > 0
cNumTit := aVetTit[nNumTit,2] // Pegar o nro do Titulo que pode ter sido alterado
EndIf
EndIf
EndIf
If len(aVetTit) > 0
Pergunte("FIN040",.f.)
lMsErroAuto := .f.
MSExecAuto(

Unknown macro: {|x| FINA040(x)}

,aVetTit)
If lMsErroAuto
MostraErro()
DisarmTransaction()
Return(.f.)
EndIf
EndIf

Variáveis

Programa Fonte

VEIVM180

  • Sem rótulos