;** Ec_0102  ********************************************************************
;** Impressao de Carnˆ         ** CONCRETOS VICO **  Usado pelo EmitCarn.sc
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 08/06/2004 por Davi Pereira Carrano
;Alterado em     :   /  /     por
;Motivo Alteracao:
;*******************************************************************************
Print File ARQIMP CI_15CPP
Print File ARQIMP CI_6LPP

;*********Imprime Vencimentos*********
valor    = [Valor Duplicata]
dia      = Day([Data Vencimento])
mes      = Month([Data Vencimento])
ano      = Year([Data Vencimento])



      ESCEXT(valor)
      DATA_IMP=AlinhM(StrVal(Dia),2)+"/"+AlinhM(StrVal(Mes),2)+"/"+StrVal(ano)



      Print File ARQIMP Spaces(20)+Format("W40,Al",[Answer->Razao Social Fatura])+Spaces(29)+Format("W40,Al",[Answer->Razao Social Fatura])+"\n"
      Print File ARQIMP Spaces(20)+Format("W40,Al",[Answer->Endereco Fatura])+Spaces(29)+Format("W40,Al",[Answer->Endereco Fatura])+"\n"
      Print File ARQIMP "\n"
      Print File ARQIMP CI_10CPP
      PARCELA=AlinhM(StrVal(PARCELA_N),2)+"/"+AlinhM(StrVal(NUMERO_PARCELAS),2)
      Print File ARQIMP Spaces(5)+Format("W14,AR",PARCELA)+ Format("W22,AR",DATA_IMP) +Spaces(3)+Format("W14,AR",PARCELA)
      Print File ARQIMP Format("W22,AR",DATA_IMP)+"\n"
      Print File ARQIMP "\n"

      If (NUMERO_PARCELAS=1)
         Then
           Print File ARQIMP Spaces(5)+Format("W14,AR",StrVal(valor))+Format("W22,AR",[Numero do Documento])+SPACES(3)+Format("W14,AR",StrVal(valor))
           Print File ARQIMP Format("W22,AR",[Numero do Documento])+"\n"
         Else
           Print File ARQIMP Spaces(5)+Format("W14,AR",StrVal(valor))+Format("W22,AR",[Numero do Documento]+"/"+[Ordem do Documento])+SPACES(3)+Format("W14,AR",StrVal(valor))
           Print File ARQIMP Format("W22,AR",[Numero do Documento]+"/"+[Ordem do Documento])+"\n"
      EndIf

      Print File ARQIMP "\n \n \n \n \n \n \n \n \n"

      Print File ARQIMP "\n\n\n"

      Print File ARQIMP CI_15CPP


Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

UnlockRecord


LIMPAGUARDE()
