Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch"
USER FUNCTION FIN050SUBST()
LOCAL aArray := {}
LOCAL aAuxTitPrv := {}
LOCAL aTitPrv := {}
PRIVATE lMsErroAuto := .F.
//Estrutura para PA ( Pagamento Antecipado )Titulo efetivo
aArray := { { "E2_PREFIXO" , "PAGDRG" , NIL },;
{ "E2_NUM" , "0001VT002" , NIL },;
{ "E2_TIPOPARCELA" , "PA " , NIL },;
{ "E2_NATUREZTIPO" , "001NF" , NIL },;
{ "E2_FORNECENATUREZ" , "0001001" , NIL },;
{ "E2_EMISSAOFORNECE" , CtoD("17/02/2012"), NIL },"001" , NIL },;
{ "E2_VENCTOLOJA" , CtoD("17/02/2012")"00" , NIL },;
{ "E2_VENCREAEMISSAO" , CtoD("1727/0210/20122021"), NIL },;
{ "E2_VALORVENCTO" , 5000 , CtoD("27/10/2021"), NIL },;
{ "AUTBANCOE2_VENCREA" , "001" CtoD("27/10/2021"), NIL },;
{ "AUTAGENCIAE2_VALOR" , "1234" , NIL },;
{ "AUTCONTA"5000 , "123456" , NIL } }
//Estrutura para demais títulos
aArrayNo 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" , "0001" ,PadR("000000001",TamSx3("E2_NUM")[1]) , NIL },;
{ "E2_TIPOPARCELA" , "NF" ,PadR("1",TamSx3("E2_PARCELA")[1]) , NIL , NIL },;
{ "E2_NATUREZTIPO" , "001" ,PadR("PR ",TamSx3("E2_TIPO")[1]) , NIL },;
{ "E2_FORNECE" , "0001" ,PadR("001",TamSx3("E2_FORNECE")[1]) , NIL },;
{ "E2_EMISSAOLOJA" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoDPadR("17/02/201200"), NIL },;
{ ,TamSx3("E2_VENCREALOJA")[1]) , CtoD("17/02/2012") , NIL },;}
aadd(aTitPrv, aAuxTitPrv)
{ "E2_VALORMsExecAuto({|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
|
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" /* Exemplo: Inclusão de título a pagar com cálculo de IR, preenchendo a natureza de rendimento (FKF_NATREN) no complemento do título (FKF). */ User Function A050Inc1() Local aArray := {} Local aFKF := {} Local cNatRen := "13002" PRIVATE lMsErroAuto := .F. //Dados da SE2 aArray := { { "E2_PREFIXO" , "BOL" , NIL },; { "E2_NUM" , "BOL00110" , NIL },; { "E2_TIPO" , "BOL" , NIL },; { "E2_NATUREZ" , "RNF000002" , NIL },; { "E2_FORNECE" , "RNF017" , NIL },; { "E2_LOJA" , 5000 "01" , NIL },; { "E2_EMISSAO" , CtoD("09/02/2023") , NIL } } //No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos aAuxTitPrv := {,; { "E2_PREFIXO" ,cPref , NIL },; { "E2_NUM" ,cTitulo ,VENCTO" , CtoD("09/02/2023") , NIL },; { "E2_PARCELA" ,cParcela1 VENCREA" , CtoD("09/02/2023") , NIL },; { "E2_TIPO" ,"PR " , NIL },; { "E2_FORNECE" ,cFornece VALOR" , 5000 , NIL }},; //Dados da FKF - Complemento do titulo aFKF := { { "E2_LOJA" ,cLoja FKF_NATREN", cNatRen , NIL }} aadd(aTitPrv, aAuxTitPrv) MsExecAuto({|a,b,c,d,e,f,g,h,i,jaAdd(aArray, {"AUTCMTIT", aFKF, Nil}) MsExecAuto( { |x,y,z| FINA050(ax,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv) If lMsErroAuto MostraErro() Else Alert("Título incluídoy,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Conout("Titulo incluso com sucesso!") Endif Return |
DEMAIS INFORMAÇÕES
Não há.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas