Card |
---|
default | true |
---|
id | execauto_despesas_import_inclusao_alteracao |
---|
label | Inclusão ou alteração |
---|
title | Inclusão ou alteração |
---|
| Para que o sistema identifique se é uma alteração de uma despesa, será validado se já se encontra cadastrada no sistema, caso contrário será considerado uma inclusão.
Bloco de código |
---|
language | py |
---|
title | Inclusão/Alteração automática para Despesas do processo de Importação |
---|
linenumbers | true |
---|
| #include 'protheus.ch'
#include 'totvs.ch'
user function DespExecAuto()
local aProcesso := {}
local aDespesas := {}
local cHawb := ""
private lMsErroAuto := .F.
RpcSetType(3)
if RPCSetEnv("99", "01", nil, nil, "EIC", nil, {"SW6", "SWD"})
cHawb := "PROC-0001"
aProcesso := {"W6_HAWB", cHawb, nil }
// inclui uma despesa
aAdd(aDespesas ,{;
{"WD_HAWB" , cHawb , nil },;
{"WD_DESPESA" , "404" , nil },;
{"WD_DES_ADI" , dDataBase , nil },;
{"WD_VALOR_R" , 830.99 , nil },;
{"WD_BASEADI" , "2" , nil },;
{"WD_PAGOPOR" , "1" , nil }})
MSExecAuto({|a,b,c,d,e| DI500Main(a,b,c,d,e)},,, aProcesso , aDespesas , 7 )
If lMsErroAuto
MostraErro()
Else
MsgInfo("Despesa incluída ou alterada com sucesso.")
EndIf
RpcClearEnv()
endif
return .T. |
|
Card |
---|
id | execauto_despesas_import_exclusao |
---|
label | Exclusão |
---|
title | Exclusão |
---|
| Para que o sistema identifique se é uma exclusão de uma despesa, é de extrema importância informar no vetor aDespesa o contéudo AUTDELETA com a informação S e também que a despesa esteja cadastrada no sistema.
Bloco de código |
---|
language | py |
---|
title | Exclusão automática para Despesas do processo de Importação |
---|
linenumbers | true |
---|
| #include 'protheus.ch'
#include 'totvs.ch'
user function DespExecAuto()
local aProcesso := {}
local aDespesas := {}
local cHawb := ""
private lMsErroAuto := .F.
RpcSetType(3)
if RPCSetEnv("99", "01", nil, nil, "EIC", nil, {"SW6", "SWD"})
cHawb := "PROC-0001"
aProcesso := {"W6_HAWB", cHawb, nil }
// deleta uma despesa
aAdd(aDespesas,{;
{"WD_DESPESA" , "404" , nil },;
{"WD_HAWB" , cHawb , nil },;
{"WD_DES_ADI" , dDataBase , nil },;
{"AUTDELETA" , "S" , nil }})
MSExecAuto({|a,b,c,d,e| DI500Main(a,b,c,d,e)},,, aProcesso,aDespesas, 7 )
If lMsErroAuto
MostraErro()
Else
MsgInfo("Despesa excluída com sucesso.")
EndIf
RpcClearEnv()
endif
return .T.
|
|
|