;** NP_0159a *******************************************************************
;*  Emissao de Duplicatas                              ** Carol Distribuidora **
;*  2¦ Via de Nota Promissoria                                                 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 22/07/2013 por Bruno Carvalho 
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao:  

;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************
If Not IsAssigned(ARQIMP) Then Return False EndIf
Debug

Moveto "NotaC"
Moveto [Codigo da Empresa]
Ativa_Lookup()
Locate [NotaC->Codigo da Empresa]
If RetVal
   Then EMPRESA=[Razao Social Empresa]
        CNPJEMP=[CGC Empresa         ]
        CIDEMP =[Cidade Empresa      ]
   Else EMPRESA=""
        CNPJEMP=""
        CIDEMP =""
EndIf
KeyPress "ESC"

Moveto "DupI"

Print File ARQIMP chr(27)+chr(67)+chr(33) ;Imprime 33 Linhas por pagina
Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

Print File ARQIMP "+------------------------------------------------------------------------------+"+"\n"
Print File ARQIMP "|                   N O T A    P R O M I S S O R I A                           |"+"\n"
Print File ARQIMP "|                   ================================                           |"+"\n"
Print File ARQIMP "|                    Republica Federativa do Brasil                            |"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"

Print File ARQIMP "| Numero: "+ Format("W6,AC",[Numero do Documento])
If [Ordem do Documento]<>""
   Then Print File ARQIMP "/"+[Ordem do Documento]+Spaces(13)
   Else Print File ARQIMP Spaces(15)
EndIf

Print File ARQIMP COMPLETA("Vencimento: "+StrVal(Day([Data Vencimento]))+" de "+
                           RTrim(MesExt(Month([Data Vencimento])))+" de "+
                           Strval(Year([Data Vencimento])),48," ")+"|"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"

Print File ARQIMP "|"+Spaces(30)+"Valor.....: "+LTrim(Format("W13.2,EIC,AR",[Valor Duplicata]))+Spaces(21)
Print File ARQIMP Fill(" ",15-Len(LTrim(Format("W13.2,EIC,AR",[Valor Duplicata]))))+"|"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"

Print File ARQIMP "| No dia "+
                  COMPLETA(StrVal(Day([Data Vencimento]))+" de "+
                  RTrim(MesExt(Month([Data Vencimento])))+" de "+
                  Strval(Year([Data Vencimento]))+
                  ", pagarei pela presente NOTA PROMISSORIA   ",70," ")+"|"+"\n"
Print File ARQIMP "| "+Spaces(77)+"|"+"\n"
Print File ARQIMP "| ou … sua ordem a quantia de: "+Spaces(48)+"|"+"\n"

ESCEXT([Valor Duplicata])
Print File ARQIMP "|                                                                              |"+"\n"

Print File ARQIMP "|"+Spaces(04) + SubStr(EXTENSO,001,60) +Spaces(14)+"|" +"\n"
Print File ARQIMP "|"+Spaces(04) + SubStr(EXTENSO,061,60) +Spaces(14)+"|" +"\n"
Print File ARQIMP "|"+Spaces(04) + SubStr(EXTENSO,122,60) +Spaces(14)+"|" +"\n"

Print File ARQIMP "| em moeda corrente deste pais, pag vel na pra‡a de Divin˘polis-MG.            |"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"

Print File ARQIMP "| Emitente: "+[NotaC->Codigo]+" - "+ Format("W40,AL",[NotaC->Razao Social])+Spaces(20)+"|"+"\n"
Print File ARQIMP "| CNPJ/CPF: "+Format("W18,AL",[NotaC->CGC])+Spaces(48)+" |"+"\n"
Print File ARQIMP "| Endereco: "+Format("W38,AL",[NotaC->Endereco])
Print File ARQIMP "Bairro: "+Format("W20,AL",[NotaC->Bairro])+" |"+"\n"
Print File ARQIMP "| Cidade..: "+[NotaC->Cep]+" - "+Format("W20,AL",[NotaC->Cidade])+Spaces(5)
Print File ARQIMP "    Uf: "+[NotaC->UF]+Spaces(28) + " |"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"
Print File ARQIMP "| "+COMPLETA(CIDEMP+", "+StrVal(Day([NotaC->Data de Emissao]))+" de "+
                      RTrim(MesExt(Month([NotaC->Data de Emissao])))+" de "+
                      Strval(Year([NotaC->Data de Emissao])),34," ")
Print File ARQIMP "   Assinatura: ___________________________"+Spaces(01)+"|"+"\n"
Print File ARQIMP "|                                                                              |"+"\n"
Print File ARQIMP "+------------------------------------------------------------------------------+"+"\n"

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP+"\f"

Print File ARQIMP chr(27)+chr(67)+chr(66) ;Imprime 66 Linhas por pagina