;** CB_0004 ********************************************************************
;* Carta de Cobranca  V                                                        *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 27/07/2009 por Cleber Alves
;Alterado em     : 06/08/2009 por Cleber Alves
;Motivo Alteracao: Acrescimo no texto

;*******************************************************************************
;* Rotina para Impressao do Cabecalho da Carta                                 *
;*******************************************************************************
Proc IMPCAB_CARTA()

NFOLHA=NFOLHA+1
Print File ARQIMP "\n" 
Print File ARQIMP Spaces(65)+"Folha: "+StrVAl(NFOLHA)+"\n\n"


Print File ARQIMP Spaces(03)+" "+"\n\n\n\n\n\n"
Print File ARQIMP Spaces(10)+"DESTINATARIO "+"\n"
Print File ARQIMP Spaces(10)+CLI_RAZ +" - "+CODCLIANT+"\n"
Print File ARQIMP Spaces(10)+CLI_END +"\n"
Print File ARQIMP Spaces(10)+CLI_BAIR+" - "+CLI_CEP+"\n"
Print File ARQIMP Spaces(10)+CLI_CID +"/"+CLI_UF+"\n\n\n\n\n\n\n\n"
Print File ARQIMP Spaces(02)+"_____________________________________________________________________________"+"\n\n\n\n\n\n\n\n\n"
Print File ARQIMP Spaces(10)+"REMETENTE "+"\n"
Print File ARQIMP Spaces(10)+Format("W40,AL",EMP_RAZ)+"\n"
Print File ARQIMP Spaces(10)+Format("W40,AL",EMP_END)+"\n"
Print File ARQIMP Spaces(10)+EMP_BAIR+" - "+EMP_CEP +"\n"
Print File ARQIMP Spaces(10)+EMP_CID+"/"+EMP_UF+" "+EMP_FONE+"\n\n\n\n\n\n\n\n\n"

Print File ARQIMP Spaces(02)+"_____________________________________________________________________________"+"\n\n" 

Print File ARQIMP Spaces(08)+EMP_CID+", "+
                  StrVal(Day(Today()))+" DE "+
                  RTrim(MesExt(Month(Today())))+" DE "+
                  StrVal(Year(Today()))+"\n"

Print File ARQIMP Spaces(05)+"   Tendo em vista que, at‚ a presente data, nosso sistema n„o  acusou"+"\n"
Print File ARQIMP Spaces(05)+"o pagamento da(s) sua(s) presta‡”es vencidas conforme rela‡„o  abaixo"+"\n"
Print File ARQIMP Spaces(05)+"e aviso emitido anteriormente, solicitamos que sejam tomadas as devi-"+"\n"
Print File ARQIMP Spaces(05)+"das providˆncias para quita‡„o desse(s) d‚bito(s)."+"\n"
Print File ARQIMP Spaces(05)+"   Contamos com sua colabora‡„o para entrar em contato com nosso  se-"+"\n"
Print File ARQIMP Spaces(05)+"tor de cobran‡a."+"\n"
Print File ARQIMP Spaces(05)+"   Tendo em  vista  que  a  emissÆo  deste  aviso ‚  autom tica,  por "+"\n"
Print File ARQIMP Spaces(05)+"computador, caso j  tenha sido pago at‚ a data da entrega  do  mesmo,"+"\n"
Print File ARQIMP Spaces(05)+"solicitamos inutiliz -lo."+"\n\n"


LINHA1="     Data   Numero       Data      Valor     Valor     Valor  Dias   "
LINHA2="   Emissao  Documento   Vencto     Total  Original     Juros  Atraso "
         ;99/99/99 1234567890 99/99/99 99.999,99 99.999,99 99.999,99 99.999 1234567890


Print File ARQIMP LINHA1+"\n"
Print File ARQIMP LINHA2+"\n"

Nl=55
EndProc

;*******************************************************************************
;* Rotina para Impressao dos Titulos da Carta                                  *
;*******************************************************************************
Proc IMPTIT_CARTA()

If (Today()-[Data de Vencimento])<= 0
   Then DAtraso = "  EM ABERTO"
   Else DAtraso = Format("W8,EIC",Today()-[Data de Vencimento]) 
EndIF
Print File ARQIMP Spaces(2)+Format("D10",[Data de Emissao])+" "
Print File ARQIMP Format("W11,AL",[Numero do Documento])
Print File ARQIMP Format("D10",[Data de Vencimento])
Print File ARQIMP Format("W10.2,EIC",[Valor do Documento])
Print File ARQIMP Format("W10.2,EIC",[Saldo do Documento])
Print File ARQIMP Format("W10.2,EIC",[Valor do Desconto])
Print File ARQIMP DAtraso

Print File ARQIMP "\n"

nl=nl+1

EndProc

;*******************************************************************************
;* Rotina para Impressao nova Folha                                            *
;*******************************************************************************
Proc IMPNOVA_FOLHA()

NFOLHA=NFOLHA+1
Print File ARQIMP CI_INEG+" * Continua Pr¢xima Folha -> "+StrVAl(NFOLHA)+CI_FNEG+"\f"

Print File ARQIMP "\n"  
Print File ARQIMP Spaces(65)+"Folha: "+StrVAl(NFOLHA)+"\n\n"
nl=3
EndProc

;*******************************************************************************
;* Rotina para Impressao do Rodape da Carta                                    *
;*******************************************************************************
Proc IMPROD_CARTA()

Print File ARQIMP SPACES(21)+" TOTAL ->"+CI_INEG+
                             Format("W10.2,EIC",TOTVR)+
                             Format("W10.2,EIC",ORIVR)+Format("W10.2,EIC",JURVR)+
                             Format("W7,AR",NTIT)+" Titulos"+CI_FNEG+"\n\n\n"
nl=nl+3

if nl>65
   Then IMPNOVA_FOLHA()
EndIF



Print File ARQIMP "\f"

EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Seta_FilePrint("CB_0004")

AGUARDE("Imprimindo Carta de Cobran‡a")

CODEMPANT="***"
CODCLIANT="***"
CoEdit "Answer"
Scan

  If [Codigo da Empresa]<>CODEMPANT
     Then CODEMPANT=[Codigo da Empresa]

          Moveto [Codigo da Empresa]
          If Busca_Lookup("Codigo da Empresa",[Codigo da Empresa],"SM")
             Then EMP_NOMF=REG_BUSCA_LOOKUP["Nome Fantasia Empresa"]
                  EMP_RAZ =REG_BUSCA_LOOKUP["Razao Social Empresa" ]
                  EMP_END =REG_BUSCA_LOOKUP["Endereco Empresa"     ]
                  EMP_BAIR=REG_BUSCA_LOOKUP["Bairro Empresa"       ]
                  EMP_CID =REG_BUSCA_LOOKUP["Cidade Empresa"       ]
                  EMP_UF  =REG_BUSCA_LOOKUP["UF Empresa"           ]
                  EMP_CEP =REG_BUSCA_LOOKUP["CEP Empresa"          ]
                  EMP_FONE=REG_BUSCA_LOOKUP["Telefone Empresa"     ]
                  EMP_CONT=REG_BUSCA_LOOKUP["Contato Empresa"      ]
                  
          EndIf
  EndIf

  If [Codigo do Destinatario]<>CODCLIANT
     Then
          If CODCLIANT<>"***"
             Then IMPROD_CARTA()
          EndIf

          CODCLIANT=[Codigo do Destinatario]
          NFOLHA   =0
          TOTVR    =0
          ORIVR    =0
          JURVR    =0
          NTIT     =0
          Moveto [Codigo do Destinatario]
          If Busca_Lookup("Codigo",[Codigo do Destinatario],"SM")
             Then CLI_RAZ =REG_BUSCA_LOOKUP["Razao Social"]
                  CLI_END =REG_BUSCA_LOOKUP["Endereco"]
                  CLI_BAIR=REG_BUSCA_LOOKUP["Bairro"]
                  CLI_CID =REG_BUSCA_LOOKUP["Cidade"]
                  CLI_UF  =REG_BUSCA_LOOKUP["UF"]
                  CLI_CEP =REG_BUSCA_LOOKUP["CEP"]
                  CLI_FONE=REG_BUSCA_LOOKUP["Telefone"]
             Else CLI_RAZ ="????"
                  CLI_END =""
                  CLI_BAIR=""
                  CLI_CID =""
                  CLI_UF  =""
                  CLI_CEP =""
                  CLI_FONE=""
          EndIf
          IMPCAB_CARTA()
  EndIf

  If nl>60
     Then IMPNOVA_FOLHA()
  EndIf
 
  ImpTit_Carta()

  NTIT=NTIT+1
  ORIVR=ORIVR+[Saldo do Documento]
  TOTVR=TOTVR+[Valor do Documento]
  JURVR=JURVR+[Valor do Desconto]

EndScan
IMPROD_CARTA()
Do_It!
ClearAll

ImpriArq(ARQIMP)

LIMPAGUARDE()
Release Vars NL,NTIT,TOTVR,ORIVR,JURVR
Release Procs IMPCAB_Carta,IMPTit_Carta, ImpRod_Carta, IMPNOVA_FOLHA
