Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject msexecauto fina050
Mensagem do Enviar e-mail Abrir o Perfil do usuário GFACHINI GFACHINI em 11/30/2018 as 10:47 hs
Local: SC   Registrada: 8/23/2005  Postagem: 458
Tenho um programa que inclui alguns títulos no contas a pagar pela função msexecauto, estava funcionando bem, depois de atualizar o sistema acusa que o título já existe para o fornecedor e não existe.
   cNum:="PR"+strzero(month(MV_PAR01),2)+substr(strzero(year(MV_PAR02),4),3,2)+"MAR"
   aVetor := {}
   AaDd(aVetor,{"E2_FILIAL" ,xFilial("SE2"),Nil})
   AaDd(aVetor,{"E2_PREFIXO","FIN"   ,Nil})
   AaDd(aVetor,{"E2_NUM"      ,cNum    ,Nil})
   AaDd(aVetor,{"E2_TIPO"   ,"OP"     ,Nil})
   AaDd(aVetor,{"E2_FORNECE","REP021" ,Nil})
   AaDd(aVetor,{"E2_LOJA   ","01"     ,Nil})
   AaDd(aVetor,{"E2_EMISSAO",ddatabase ,Nil})
   AaDd(aVetor,{"E2_VENCTO" ,mv_par02 + 25 ,Nil})
   AaDd(aVetor,{"E2_VALOR" ,TR1106->PREMIO ,Nil})
   AaDd(aVetor,{"E2_HIST"   ,"Premio" ,Nil})
   AaDd(aVetor,{"E2_NATUREZ","20201" ,Nil})
   lMsErroAuto := .F.
   dbSelectArea("SE2")
   MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetor,3) //3-Inclusao //5-Exclusao
   If lMsErroAuto
      MostraErro()
   EndIf

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