Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" USER FUNCTION FIN050SUBST() LOCAL aArray := {} LOCAL aAuxTitPrv := {} LOCAL aTitPrv := {} PRIVATE lMsErroAuto := .F. //Titulo efetivo aArray := { { "E2_PREFIXO" , "PAGDRG" , NIL },; { "E2_NUM" , "0001VT002" , NIL },; { "E2_PARCELA" , " " , NIL },; { "E2_TIPO" , "NF" , NIL },; { "E2_NATUREZ" , "001" , NIL },; { "E2_FORNECE" , "0001001" , NIL },; { "E2_LOJA" , "0100" , NIL },; { "E2_EMISSAO" , CtoD("27/10/2021"), NIL },; { "E2_VENCTO" , CtoD("27/10/2021"), NIL },; { "E2_VENCREA" , CtoD("27/10/2021"), 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" ,"PAG" ,PadR("DRG",TamSx3("E2_PREFIXO")[1]) , NIL },; { "E2_NUM" ,"000000001" ,PadR("000000001",TamSx3("E2_NUM")[1]) , NIL },; { "E2_PARCELA" ,"1" ,PadR("1",TamSx3("E2_PARCELA")[1]) , NIL },; { "E2_TIPO" , ,PadR("PR " ,TamSx3("E2_TIPO")[1]) , NIL },; { "E2_FORNECE" ,"0001" ,PadR("001",TamSx3("E2_FORNECE")[1]) , NIL },; { "E2_LOJA" ,"01" " ,PadR("00",TamSx3("E2_LOJA")[1]) , 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 Conout("Título substituído com sucesso!") Endif Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas