| 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)}, nil , nil , 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 aDespesas 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)}, nil , nil , aProcesso,aDespesas, 7 )
If lMsErroAuto
MostraErro()
Else
MsgInfo("Despesa excluída com sucesso.")
EndIf
RpcClearEnv()
endif
return .T.
|
|
|
