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" , NIL }, ,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 |
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" , "01" , NIL },;
{ "E2_EMISSAO" , CtoD("09/02/2023") , NIL },;
{ "E2_VENCTO" , CtoD("09/02/2023") , NIL },;
{ "E2_VENCREA" , CtoD("09/02/2023") , NIL },;
{ "E2_VALOR" , 5000 , NIL }}
//Dados da FKF - Complemento do titulo
aFKF := { { "FKF_NATREN", cNatRen , NIL }}
aAdd(aArray, {"AUTCMTIT", aFKF, Nil})
MsExecAuto( { |x,y,z| FINA050(x,y,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
Tarefas