;** Ed_0274A *******************************************************************
;  Emissao de Duplicatas ** Modelo A4 com Imagem **                   Podium   *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 05/09/2011 por Bruno Carvalho
;Alterado em     : 13/09/2011 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo para um modelo em folha A4 "Ed_0274A" (Imagem de Fundo)

;*******************************************************************************
;* Rotina para Impressao do Cabecalho                                          *
;*******************************************************************************
; Duplicata feita para ser impressa em folha branca, pois contem imagem de fundo,
; nÆo configurada para impressÆo em formul rios prontos!

Print File ARQIMP CI_10CPP+CI_6LPP

QUEBRA_PAGINA=True 

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 "\n\n\n\n" 
Print File ARQIMP Spaces(54) + AlinhM(LTrim(StrVal(Format("D13",[Answer->Data de Emissao]))),10)
Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(2)+Format("W7,AL",NoNota[1])
Print File ARQIMP Spaces(1)+Format("W4,AL",[Answer->Serie do Documento])
Print File ARQIMP Format("W12.2,EIC",VrNota[1]) 
Print File ARQIMP Spaces(03)+Format("W6,AC",[Answer->Numero do Documento])
Print File ARQIMP Format("W16.2,EIC,AR",[Valor Duplicata])
Print File ARQIMP Spaces(2)+[Answer->Numero do Documento]
If [Ordem do Documento]<>""
   Then Print File ARQIMP "/"+[Ordem do Documento]
   Else Print File ARQIMP "  "
EndIf
If [NotaC->Descricao CondPagto]="CONTRA APRESENTACAO"
   Then Print File ARQIMP Spaces(4)+"C.APRESENT \n"
   Else Print File ARQIMP Spaces(4)+Format("D13",[Data Vencimento])+"\n"
EndIf

Print File ARQIMP Spaces(33) + Format("W27.2,EIC,AL",[Valor do Desconto])
Print File ARQIMP Format("D13",[Data Limite Desconto]) + "\n"

;VALOR_JUROS=([Valor Duplicata]*([Taxa de Juros]/[NDias Taxa de Juros]))/100
;Print File ARQIMP Spaces(39) + "Juros: "+LTrim(Format("W7.2,EIC",VALOR_JUROS))
;Print File ARQIMP " ao Dia"+"\n"

Print File ARQIMP Spaces(36) + [Answer->Condicoes Especiais]+"\n\n"

Print File ARQIMP Spaces(36) + Rtrim(Format("W35,AL",[Answer->Razao Social Fatura]))+" - "+[Answer->Codigo]+"\n"

Print File ARQIMP Spaces(36) +Format("W40,AL",[Answer->Endereco Fatura])+"\n"

Print File ARQIMP Spaces(36) +Format("W27,AL",[Answer->Bairro Fatura])+[Answer->CEP Fatura]+"\n"

Print File ARQIMP Spaces(36) + Format("W27,AL",[Answer->Cidade Fatura])+[Answer->UF Fatura]+"\n"

If Not IsBlank([Answer->Endereco de Cobranca])
   Then Print File ARQIMP Spaces(36) + [Answer->Endereco de Cobranca] + "\n"
        Print File ARQIMP Spaces(36) + Format("W27,AL",[Answer->Bairro de Cobranca])+[Answer->CEP de Cobranca]+"\n"
   Else Print File ARQIMP "\n\n"
EndIf

If Not IsBlank([Answer->Cidade de Cobranca])
   Then Print File ARQIMP Spaces(36) +  Format("W27,AL",[Answer->Cidade de Cobranca])+[Answer->UF de Cobranca]+"\n"
   Else Print File ARQIMP "\n"
EndIf

Print File ARQIMP Spaces(36) + Format("W27,AL",[Answer->CGC Fatura])+
                  [Answer->IE Fatura]+"\n\n"

ESCEXT([Valor Duplicata])

Print File ARQIMP Spaces(31) + SubStr(EXTENSO,001,45) + "\n"
Print File ARQIMP Spaces(32) + SubStr(EXTENSO,046,44) + "\n"
Print File ARQIMP Spaces(32) + SubStr(EXTENSO,091,44) + "\n\n"

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

