Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject MSExecAuto Gerando um segundo titulo
Mensagem do Enviar e-mail Abrir o Perfil do usuário MARIOBACIL MARIOBACIL em 1/10/2017 as 08:00 hs
Local: SP   Registrada: 2/3/2011  Postagem: 70
Bom dia,

Estou fazendo um MSExecAuto da rotina fina040.

No caso ele deveria gerar um titulo na SE1 com o Tipo R$ (SIGALOJA).

Porém além de ele gerar esse titulo ele esta gerando um titulo com a Natureza IRF.

Como posso fazer para que o sistema não gere esse titulo IRF.


Segue trecho do código.

aAdd(aDadSE1, { "E1_FILIAL"          , cSL1Fil                    , Nil})
aAdd(aDadSE1, { "E1_PREFIXO"     , cSE1Pre                    , Nil})
aAdd(aDadSE1, { "E1_NUM"          , cSE1Num                    , Nil})
aAdd(aDadSE1, { "E1_PARCELA"     , IIf(aTitPGT[nX1][6]=="R$", "   ", aTitPGT[nX1][12]), Nil})
aAdd(aDadSE1, { "E1_TIPO"          , aTitPGT[nX1][6]          , Nil})
aAdd(aDadSE1, { "E1_PORTADO"     , SL1->L1_OPERADO          , Nil})
aAdd(aDadSE1, { "E1_AGEDEP"          , "."                         , Nil})                    
aAdd(aDadSE1, { "E1_CLIENTE"     , aTitPGT[nX1][15]          , Nil})
aAdd(aDadSE1, { "E1_LOJA"          , aTitPGT[nX1][16]          , Nil})                    
aAdd(aDadSE1, { "E1_NOMCLI"          , "NOME DO CLIENTE"          , Nil})
aAdd(aDadSE1, { "E1_EMISSAO"     , StoD(aTitPGT[nX1][5])     , Nil})
aAdd(aDadSE1, { "E1_VENCTO"          , IIf(aTitPGT[nX1][6]=="CC",DaySum(StoD(aTitPGT[nX1][5]),30),StoD(aTitPGT[nX1][5])), Nil})
aAdd(aDadSE1, { "E1_VENCREA"     , IIf(aTitPGT[nX1][6]=="CC",DaySum(StoD(aTitPGT[nX1][5]),30),StoD(aTitPGT[nX1][5])), Nil})                    
aAdd(aDadSE1, { "E1_VALOR"          , aTitPGT[nX1][11]          , Nil})
aAdd(aDadSE1, { "E1_VEND1"          , SL1->L1_VEND               , Nil})
aAdd(aDadSE1, { "E1_NUMNOTA"     , cSE1Num                    , Nil})
aAdd(aDadSE1, { "E1_SERIE"          , cSE1Pre                    , Nil})
aAdd(aDadSE1, { "E1_ORIGEM"          , "LOJA701"                    , Nil})
aAdd(aDadSE1, { "E1_NATUREZ"     , "DINHEIRO"               , Nil})
aAdd(aDadSE1, { "E1_HIST"          , "VENDA EM DINHEIRO"     , Nil})     

lMsErroAuto := .F.
MSExecAuto ({|x| FINA040(x)},aDadSE1)
If lMsErroAuto
     MostraErro()
     Final("Erro na geração do titulo financeiro !"," A operação será cancelada !")
EndIf





Mensagem do Enviar e-mail Abrir o Perfil do usuário CDL CDL em 1/10/2017 as 08:54 hs
Local: SP   Registrada: 2/19/2008  Postagem: 1046
Se está gerando título de IRF é porque a Natureza DINHEIRO deve estar como CALCULA IR == SIM.

Olha a natureza original.

Sds,

Raphael - D.E.M.A.

Mensagem do Enviar e-mail Abrir o Perfil do usuário MARIOBACIL MARIOBACIL em 1/10/2017 as 10:02 hs
Local: SP   Registrada: 2/3/2011  Postagem: 70
Obrigado Rafael pela resposta.


A natureza DINHEIRO esta para Calcular IR mesmo. Mas deixa eu explicar o que preciso, utilizamos o SIGALOJA, estou fazendo uma rotina para ajustar os titulos na SE1. O usuário do financeiro no caso acertaria os titulos quando a loja colocasse a forma de pagamento errado.

Nativamente quando a loja faz um venda em Dinheiro, o sistema gera um titulo na SE1 com a natureza DINHEIRO, porém ele não gera esse título IRF.

Será que ha alguma forma de o ExecAuto não gerar esse titulo IRF sem que eu tenha que modificar a natureza DINHEIRO?




Mensagem do Enviar e-mail Abrir o Perfil do usuário MARIOBACIL MARIOBACIL em 1/10/2017 as 10:03 hs
Local: SP   Registrada: 2/3/2011  Postagem: 70
* Raphael

Mensagem do Enviar e-mail Abrir o Perfil do usuário CDL CDL em 1/10/2017 as 11:18 hs
Local: SP   Registrada: 2/19/2008  Postagem: 1046
Se você usar execauto, o sistema vai usar as regras padrões do sistema.
Como se você estivesse digitando o Conta a Receber.

Para não gerar IR tem que usar uma Natureza que não gera irrf, ou tenta forçar o campo do SE1 ( E1_IRRF = 0) e (E1_BASEIRF = 0)

Talvez resolva.

Mas o ideal mesmo seria usar outra natureza.

Sds,

Raphael - D.E.M.A.

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum