Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" USER FUNCTION FIN050SUBST() LOCAL aArray := {} PRIVATE lMsErroAuto := .F. //Estrutura para PA ( Pagamento Antecipado )Titulo efetivo aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_TIPOPARCELA" , "PA " , NIL },; { "E2_NATUREZ" , "001" TIPO" , NIL },; { "E2_FORNECE"NF" , "0001" , NIL },; { "E2_EMISSAONATUREZ" , CtoD("17/02/2012"), NIL },; { "E2_VENCTO" , CtoD("17/02/2012"), NIL },; { "E2_VENCREA" , CtoD("17/02/2012"), NIL },; { "E2_VALOR" , 5000 , NIL },; { "AUTBANCO" , "001" , NIL },; { "AUTAGENCIA" , "1234" , NIL },; { "AUTCONTA" , "123456" , NIL } } //Estrutura para demais títulos aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_TIPO" , "NF" "001" , NIL },; { "E2_NATUREZFORNECE" , "0010001" , NIL },; { "E2_FORNECELOJA" , "000101" , NIL },; { "E2_EMISSAO" , CtoD("1727/0210/20122021"), NIL },; { "E2_VENCTO" , CtoD("1727/0210/20122021"), NIL },; { "E2_VENCREA" , CtoD("1727/0210/20122021"), NIL },; { "E2_VALOR" , 5000 , NIL } } //No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos aAuxTitPrv := { { "E2_PREFIXO" ,cPref "PAG" , NIL },; { "E2_NUM" ,cTitulo "000000001" , NIL },; { "E2_PARCELA" ,cParcela1"1" , NIL },; { "E2_TIPO" ,"PR " , NIL },; { "E2_FORNECE" ,cFornece"0001" , NIL },; { "E2_LOJA" ,cLoja"01" , NIL }} aadd(aTitPrv, aAuxTitPrv) MsExecAuto({|a,b,c,d,e,f,g,h,i,j| FINA050(a,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv) If lMsErroAuto MostraErro() Else Alert("Título incluído com sucesso!") Endif Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas