;fun‡Æo ativada BXAUTO 
If PARAM_TITCRED<>"T"
   then return
endif   
   
;** Ft_GERTES ******************************************************************
;*  Geracao de Titulos a Receber (Promissoria) na Saidas                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 06/01/2016 por Anivel Augusto Rodrigues
;Ultima Alteracao: 12/02/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Tpdocto Promissoria                                
;Ultima Alteracao: 24/02/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes usar data base na geracao                      
;Ultima Alteracao: 16/06/2016 por Bruno Carvalho 
;Motivo Alteracao: Alterado NUM_LANCTO = PROXLANCTO_NLANC -> Padroniza‡Æo da rotina de Numero_Lancamento()
;Ultima Alteracao: 14/03/2019 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Ajustes Numero_Lancamento("Interno","Locked_Down")
;Ultima Alteracao: 14/08/2019 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Ajustes obs+obs do acerto

;*******************************************************************************
;* Exportacao p/ Contas a Receber - Gera titulo de Credito                     *
;*******************************************************************************
Proc Atualiza_CRTC()
private CR_LANC, CHV_EMPRESA, CHV_TPDOCTO, CHV_NUMERO

CHV_EMPRESA =regconta["Codigo da Empresa"]
CHV_TPDOCTO ="PROM"
CHV_NUMERO  =[Bxautc->Numero do Lote]
                         
Moveto "\\Sistemas\\CtaRec\\Duplic"
Moveto [Codigo da Empresa]
Locate IndexOrder by "Inddup30" CHV_EMPRESA,CHV_TPDOCTO,CHV_NUMERO
If RetVal
   Then While [Codigo da Empresa   ]=CHV_EMPRESA and
              [Tipo Docto Gerador  ]=CHV_TPDOCTO and
              [Numero Docto Gerador]=CHV_NUMERO
   
          if [Tipo do Pagamento  ]="NP" and
             [Numero do Documento]=CHV_NUMERO+"-AF"
             then          
                  sm=   "Contas a Receber, lan‡amento "+[Numero do Lancamento]+ " - "
                  sm=sm+"Docto "+Format("W04,AL",[Codigo da Empresa  ])+"/"+
                                 Format("W04,AL",[Codigo do Documento])+"/"+
                                 Format("W10,AL",[Numero do Documento])+", "
             
                  Grava_Erro(sm+"titulo promiss¢ria j  existe !")
                  return
          endif
             
          Skip
          If EOT() Then QuitLoop EndIf
          Locate Next IndexOrder by "Inddup30" CHV_EMPRESA,CHV_TPDOCTO,CHV_NUMERO
          
        EndWhile
endif

While True
  End
  Moveto [Numero do Lancamento]
  If Numero_Lancamento("Interno","Locked_Down")
     Then CR_LANC = PROXLANCTO_NLANC
          Release Vars PROXLANCTO_NLANC
          quitloop
  EndIf    
EndWhile
[Codigo da Conta         ]=regconta["Codigo da Conta"  ]
[Codigo da Empresa       ]=CHV_EMPRESA
[Codigo do Documento     ]=CHV_TPDOCTO
[Numero do Documento     ]=CHV_NUMERO+"-AF"
[Codigo do Destinatario  ]=[Bxautc->Codigo        ]
[Data de Emissao         ]=[Bxautc->Data Base     ]
[Data de Vencimento      ]=[Bxautc->Data Base     ]
[Data a Receber          ]=[Bxautc->Data Base     ]
[Valor do Documento      ]=[Bxautc->Valor_TCGerado ]
[Saldo do Documento      ]=[Bxautc->Valor_TCGerado ]
[Observacoes             ]="PROMISSORIA REF. LOTE "+[Bxautc->Numero do Lote]+" * "+"ACERTO FINANCEIRO"+", "+[Bxautc->Observacoes]

[Tipo do Lancamento      ]="E"
[Descricao do Lancamento ]="CARTEIRA"
[Tipo do Pagamento       ]="NP"    ; NOTA PROMISSORIA              
[Codigo Plano_Conta      ]=regp_duplic["Plano_Conta_GCredito"]  

[Sistema Gerador         ]="AF"
[Tipo Docto Gerador      ]="PROM"
[Numero Docto Gerador    ]=[Bxautc->Numero do Lote]
[Sequencia Gerador       ]=""
[Documento Referente     ]=[Tipo Docto Gerador]+"/"+[Numero Docto Gerador]

[Data de Entrada         ]=Today()
[Codigo do Representante ]=regdestinat["Codigo do Representante"]

;Codigo do Cobrador do Cadastro de Representantes
If [Codigo do Cobrador]=""
   Then getrecord "\\sistemas\\cadastro\\represen" [\Sistemas\Ctarec\Duplic->Codigo do Representante] to regrepresen
        if retval
           then [Codigo do Cobrador   ]=regrepresen["Codigo_Cobrador"   ]
                [Descricao do Cobrador]=regrepresen["Descricao_Cobrador"]
        endif   
EndIf
   
Controle_Dia()
                             
UnLockRecord

EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
If Not IsAssigned(Opcaoc) Then Opcaoc="" EndIf

Aguarde("Atualizando TC/TITULOS A RECEBER ")

Atualiza_CRTC()

Release Procs Atualiza_CRTC

