Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" USER FUNCTION FIN050SUBST() LOCAL aArray := {} PRIVATE lMsErroAuto := .F. //Titulo efetivo aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_PARCELA" , " " , NIL },; { "E2_TIPO" , "NF" , NIL },; { "E2_NATUREZ" , "001" , NIL },; { "E2_FORNECE" , "0001" , NIL },; { "E2_LOJA" , "01" , 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" , NIL },; { "E2_NUM" ,"000000001" , NIL },; { "E2_PARCELA" ,"1" , NIL },; { "E2_TIPO" ,"PR " , NIL },; { "E2_FORNECE" ,"0001" , NIL },; { "E2_LOJA" ,"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 AlertConout("Título incluídosubstituído com sucesso!") Endif Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas