;** Ed_0216a *******************************************************************
;  Emissao de Duplicatas ** Modelo A4 **                          HF Tecidos   *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 06/04/2011 por Bruno Carvalho
;Ultima Alteracao: 22/09/2011 por Karina Andrade 
;Motivo Alteracao: Retirado \n no fim da impressao

;*******************************************************************************
;* Rotina para Impressao do Cabecalho                                          *
;*******************************************************************************
; Duplicata feita para ser impressa em folha comum, nÆo configurada para
; impressÆo em formul rios prontos!

Print File ARQIMP CI_10CPP+CI_6LPP+"\n"

Print File ARQIMP  "=============================================================================="+"\n"
Print File ARQIMP Spaces(59)+"Emissao: "+AlinhM(RTrim(StrVal(Format("D13",[Answer->Data de Emissao]))),10)+"\n"
Print File ARQIMP  "=============================================================================="+"\n"

NDOC = [Answer->Numero do Documento]

If Not DUPC
   Then {TableAdd} {\\Sistemas\\Vendas\\DupC}
        DUPC = True
   Else Moveto "DupC"
EndIF

Moveto [Numero do Documento]
Locate NDOC
If RetVal 
   Then Moveto [Codigo da Empresa]
        Ativa_Lookup()
        RAZ_SOC = [Razao Social Empresa]
        END_EMP = [Endereco Empresa    ]
        BAI_EMP = [Bairro Empresa      ]
        CID_EMP = [Cidade Empresa      ]
        CEP_EMP = [CEP Empresa         ]
        UF_EMP  = [UF Empresa          ]
        CGC_EMP = [CGC Empresa         ]
        IE_EMP  = [IE Empresa          ]
        TEL_EMP = [Telefone Empresa    ]
        KeyPress "ESC"
   Else RAZ_SOC = ""
        END_EMP = ""
        BAI_EMP = ""
        CID_EMP = ""
        CEP_EMP = ""
        UF_EMP  = ""
        CGC_EMP = ""
        IE_EMP  = ""
        TEL_EMP = ""
EndIf

Moveto "DupI"

Print File ARQIMP Spaces(01)+Format("W40,AL",RAZ_SOC)+"\n"
If BAI_EMP <> ""
   Then Print File ARQIMP Spaces(01)+RTrim(Format("W25,AL",END_EMP))+" - "+Format("W12,AL",BAI_EMP)+"\n"
   Else Print File ARQIMP Spaces(01)+RTrim(Format("W25,AL",END_EMP))+"\n"
EndIf
If UF_EMP <> ""
   Then Print File ARQIMP Spaces(01)+RTrim(Format("W20,AL",CID_EMP))+" / "+Format("W3,AL",UF_EMP)+"\n"
   Else Print File ARQIMP Spaces(01)+RTrim(Format("W20,AL",CID_EMP))+"\n"
EndIf
If TEL_EMP <> ""
   Then Print File ARQIMP Spaces(01)+"CEP: "+RTrim(Format("W10,AL",CEP_EMP))+"     "+"FONE: "+Format("W20,AL",TEL_EMP)+"\n"
   Else If CEP_EMP <> ""
           Then Print File ARQIMP Spaces(01)+"CEP: "+RTrim(Format("W10,AL",CEP_EMP))+"\n"
           Else Print File ARQIMP "\n"
        EndIf
EndIf                             
Print File ARQIMP "\n"
Print File ARQIMP Spaces(01)+"Natureza da Operacao: "+Format("W20,AL",[NotaC->Descricao da Destinacao])+"\n"
Print File ARQIMP  "------------------------------------------------------------------------------" + "\n"
                           
Print File ARQIMP Spaces(01)+"Numero da Nota .....: "+Format("W06,AL",NoNota[1])+"\n"
Print File ARQIMP Spaces(01)+"Valor da Nota ......: "+Format("W13.2,EIC",VrNota[1])+"\n"
Print File ARQIMP Spaces(01)+"Numero do Documento : "+Format("W6,AC",[Answer->Numero do Documento])
If [Ordem do Documento]<>""
   Then Print File ARQIMP "/"+[Ordem do Documento]+"\n"
   Else Print File ARQIMP "  "+"\n"
EndIf
Print File ARQIMP Spaces(01)+"Valor da Duplicata..: "+Format("W13.2,EIC,AR",[Valor Duplicata])+"\n"

If [NotaC->Descricao CondPagto]="CONTRA APRESENTACAO"
   Then Print File ARQIMP Spaces(01)+"Vencimento .........: "+"C.APRESENT \n\n"
   Else Print File ARQIMP Spaces(01)+"Vencimento .........: "+Format("D10",[Data Vencimento])+"\n\n"
EndIf

If [Valor do Desconto]<> ""
   Then Print File ARQIMP Spaces(01)+"Valor do Desconto ..: "+Format("W13.2,EIC,AL",[Valor do Desconto])
        Print File ARQIMP Spaces(01)+"  At‚  "+Format("D13",[Data Limite Desconto])+"\n"
EndIf

VALOR_JUROS=([Valor Duplicata]*([Taxa de Juros]/[NDias Taxa de Juros]))/100
Print File ARQIMP Spaces(01)+"Juros ..............: "+RTrim(Format("W7.2,EIC",VALOR_JUROS))+" ao Dia"+"\n"
Print File ARQIMP Spaces(01)+"Condicoes Especiais : "+[Answer->Condicoes Especiais]+"\n\n"

Print File ARQIMP Spaces(01)+[Answer->Codigo]+" - "+Format("W45,AL",[Answer->Razao Social Fatura])+"\n"
If [Answer->Bairro Fatura] <>""
   Then Print File ARQIMP Spaces(01)+Rtrim([Answer->Endereco Fatura])+" - "+Format("W10,AL",[Answer->Bairro Fatura])+"\n"
   Else Print File ARQIMP Spaces(01)+[Answer->Endereco Fatura]+"\n"
EndIf
If  [Answer->UF Fatura]<>""
   Then Print File ARQIMP Spaces(01)+RTrim(Format("W30,AL",[Answer->Cidade Fatura]))+" - "+[Answer->UF Fatura]+Spaces(5)+[Answer->CEP Fatura]+"\n"
   Else Print File ARQIMP Spaces(01)+Rtrim(Format("W30,AL",[Answer->Cidade Fatura]))+Spaces(5)+[Answer->CEP Fatura]+"\n"
EndIf
Print File ARQIMP Spaces(01)+"CGC: "+RTrim(Format("W20,AL",[Answer->CGC Fatura]))
Print File ARQIMP "   Inscricao Estadual: "+[Answer->IE Fatura]+"\n"

If Not IsBlank([Answer->Cidade de Cobranca])
   Then Print File ARQIMP Spaces(01)+"Dados da Cobran‡a:"+"\n"
        If [Answer->UF de Cobranca]<>""
           Then Print File ARQIMP Spaces(01)+[Answer->Cidade de Cobranca]
                Print File ARQIMP Spaces(05)+[Answer->Bairro de Cobranca]+"/"+[Answer->UF de Cobranca]+"\n"
           Else Print File ARQIMP Spaces(01)+[Answer->Cidade de Cobranca]
                Print File ARQIMP Spaces(05)+[Answer->Bairro de Cobranca]+"\n"
        EndIf
        If [Answer->Endereco de Cobranca]<>""
           Then Print File ARQIMP Spaces(01)+[Answer->Endereco de Cobranca]+Spaces(4)
        EndIf
        If [Answer->CEP de Cobranca]<>""
           Then Print File ARQIMP Spaces(01)+[Answer->CEP de Cobranca]+"\n"
           Else Print File ARQIMP "\n"
        EndIf
   Else Print File ARQIMP "\n\n\n"
EndIf

Print File ARQIMP  "------------------------------------------------------------------------------"+"\n"
ESCEXT([Valor Duplicata])
Print File ARQIMP Spaces(01)+"Valor por Extenso...: "+SubStr(EXTENSO,001,55)+"\n"
Print File ARQIMP Spaces(24)+SubStr(EXTENSO,056,54) + "\n"
Print File ARQIMP Spaces(24)+SubStr(EXTENSO,112,54) + "\n"
Print File ARQIMP  "=============================================================================="+"\n"

Print File ARQIMP "\n"

