;** Np_0309 ********************************************************************
;*  Emissao de Duplicatas                                 ** Snoob/Contrubase **
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 15/12/2011 por Bruno Carvalho
;Ultima Alteracao: 08/01/2014 por Bruno Carvalho  
;Motivo Alteracao: Ajustes GetRecord 

;*******************************************************************************
;* 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 Duplicata
If Not RetVal
   Then Mensagem("Duplicata nÆo encontrada, Verificar !")
        Moveto "FaturaC"
        Return       
EndIf

;Moveto "DupC"
;Moveto [Codigo da Empresa]
;Locate [FaturaC->Codigo da Empresa], NOTAFISC, SERIEFISC
;If Not RetVal
;   Then Mensagem("Duplicata nÆo encontrada, Verificar !")
;        Moveto "FaturaC"
;        Return
;EndIf

{TableAdd} {DupI}

Moveto "DupI"
Moveto [Codigo da Empresa]
Locate Duplicata["Codigo da Empresa"],
       Duplicata["Numero do Documento"],
       Duplicata["Serie do Documento"]
If Not RetVal
   Then Do_IT!
        ClearImage
        CoeditKey 
        Mensagem("Desdobramento da duplicata nÆo encontrada, Verificar !")
        Moveto "FaturaC"
        Return
EndIf

While [Codigo da Empresa  ]=Duplicata["Codigo da Empresa"]   And
      [Numero do Documento]=Duplicata["Numero do Documento"] And
      [Serie do Documento ]=Duplicata["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: "+ 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 Contagem-MG.               |"+"\n"
 Print File ARQIMP "|                                                                              |"+"\n"

 Print File ARQIMP "| Emitente: "+Duplicata["Codigo"]+" - "+ Format("W40,AL",Duplicata["Razao Social Fatura"])+Spaces(20)+"|"+"\n"
 Print File ARQIMP "| CNPJ/CPF: "+Format("W18,AL",Duplicata["CGC Fatura"])+Spaces(48)+" |"+"\n"
 Print File ARQIMP "| Endereco: "+Format("W38,AL",Duplicata["Endereco Fatura"])
 Print File ARQIMP "Bairro: "+Format("W20,AL",Duplicata["Bairro Fatura"])+" |"+"\n"
 Print File ARQIMP "| Cidade..: "+Duplicata["Cep Fatura"]+" - "+Format("W20,AL",Duplicata["Cidade Fatura"])+Spaces(5)
 Print File ARQIMP "    Uf: "+Duplicata["UF Fatura"]+Spaces(18) + " |"+"\n"
 Print File ARQIMP "|                                                                              |"+"\n"
 Print File ARQIMP "| "+COMPLETA(CIDEMP+", "+StrVal(Day(Duplicata["Data de Emissao"]))+" de "+
                        RTrim(MesExt(Month(Duplicata["Data de Emissao"])))+" de "+
                        Strval(Year(Duplicata["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"

 Skip
 If EOT() Then QuitLoop EndIf

EndWhile

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

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

Do_IT!
ClearImage
CoeditKey

Moveto "FaturaC"