;** NP_0258 ********************************************************************
;*  Emissao de Duplicatas                         DJ Construcoes    ************
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 14/01/2015 por Luis Gustavo
;Alterado em     :   /  /     por 
;Motivo Alteracao:   
     
;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************
ArqImp=PrivDir()+"Romaneio.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf
                                                                                
Moveto "FaturaC"
Moveto [Codigo da Empresa]
Ativa_Lookup()
Locate [FaturaC->Codigo da Empresa]
If RetVal
   Then EMPRESA=[Razao Social Empresa]
        CNPJEMP=[CGC Empresa         ]
        CIDEMP =[Cidade Empresa      ]
   Else EMPRESA=""
        CNPJEMP=""
        CIDEMP =""
EndIf
KeyPress "ESC"

GetRecord "\\Sistemas\\Vendas\\Dupc" [FaturaC->Codigo da Empresa], NOTAFISC, SERIEFISC To DUPC
If Not RetVal
   Then Mensagem("Duplicata nÆo encontrada, Verificar !")
        Moveto "FaturaC"
        Return
EndIf
GetRecord "\\Sistemas\\Cadastro\\Destinat" DUPC["Codigo"] To TEL
If RetVal
   Then TEL = TEL["Telefone"]
   Else TEL = ""
EndIf              

{TableAdd} {\\Sistemas\\Vendas\\DupI}
Moveto "DupI"
Moveto [Codigo da Empresa]
Locate DUPC["Codigo da Empresa"],
       DUPC["Numero do Documento"],
       DUPC["Serie do Documento"]
If Not RetVal
   Then Do_It!
        Moveto "\\Sistemas\\Vendas\\DupI"
        ClearImage
        Moveto "FaturaC"
        CoeditKey
        FormKey
        Mensagem("Desdobramento da duplicata nÆo encontrada, Verificar !")
        Return
EndIf

MESMAFOLHA = True

While [Codigo da Empresa  ]=DUPC["Codigo da Empresa"] And
      [Numero do Documento]=DUPC["Numero do Documento"] And
      [Serie do Documento ]=DUPC["Serie do Documento"]

 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: "
 Print File ARQIMP Spaces(21)

 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 "| 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 Cl udio-MG.                |"+"\n"
 Print File ARQIMP "|                                                                              |"+"\n"

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

 Print File ARQIMP CI_10CPP
 If MESMAFOLHA
    Then Print File ARQIMP CI_6LPP+"\n\n\n\n\n\n\n\n\n\n\n\n"
         MESMAFOLHA = False
    Else Print File ARQIMP CI_6LPP+"\f"
         MESMAFOLHA = True
 EndIf
 Skip
 If EOT() Then QuitLoop EndIf

EndWhile


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

Do_It!
Moveto "\\Sistemas\\Vendas\\DupI"
ClearImage
Moveto "FaturaC"
CoeditKey
FormKey

;---- Imprime Arquivo Impressao ------------------------------------------------
NUMCOPIA=1
ImpriArq(ARQIMP)

Release Vars MESMAFOLHA

Moveto "FaturaC"
