Histórico da Página

...

Informações

title	Observação

A informação do campo filial é carregada pelo sistema de acordo com a empresa/filial informada na abertura do ambiente.

O sistema realiza a pesquisa de acordo com o primeiro índice da tabela SWD (Filial+Processo+Despesa+Data ). Caso deseja realizar uma alteração ou exclusão, é de extrema necessidade informar esses dados, caso contrário é considerado uma inclusão.

Deck of Cards

id	execauto_despesas_import

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 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

...

Árvore de páginas

Versões comparadas

Versão antiga 13

Nova versão 14

Chave