;** Np_0397 ********************************************************************
;*  Emissao de Duplicatas                                                     **  
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 15/05/2020 por Bruno Carvalho
;Alterado em     : 17/06/2020 por Bruno Carvalho            
;Motivo Alteracao: Ajustes para permitir apenas [Forma de Pagamento]="NP"   

;*******************************************************************************
;* 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      ]
        UFEMP  =[UF Empresa          ]
   Else EMPRESA=""
        CNPJEMP=""
        CIDEMP =""
        UFEMP  =""
EndIf   
KeyPress "ESC"

CIDADE_ESTADO=CIDEMP
If CIDEMP<>"" Then CIDADE_ESTADO = CIDEMP + "-" + UFEMP EndIf 

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        

{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

CONTADOR = 0

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

 if [Forma de Pagamento]="NP" 
    Then ndiasvencimento=blanknum()
         if [Data Vencimento]>DUPC["Data de Emissao"]
            then ndiasvencimento=[Data Vencimento]-DUPC["Data de Emissao"]
         endif        
        
         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(08)
            Else Print File ARQIMP Spaces(10)
         EndIf
        
         Print File ARQIMP COMPLETA("Vencimento: "+StrVal(Day([Data Vencimento]))+" de "+
                                    RTrim(MesExt(Month([Data Vencimento])))+" de "+
                                    Strval(Year([Data Vencimento]))+"  ["+strval(ndiasvencimento)+" Dias]",53," ")+"|"+"\n"
          Print File ARQIMP "|"+Spaces(30)+"Valor: "+LTrim(Format("W13.2,EIC,AR",[Valor Duplicata]))+Spaces(26)
         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 "|"+Format("W78"," em moeda corrente deste pais, pag vel na pra‡a de "+CIDADE_ESTADO+".")+"|"+"\n"
         Print File ARQIMP "|                                                                              |"+"\n"
        
         Print File ARQIMP "| Emitente: "+DUPC["Codigo"]+" - "+ Format("W29,AL",DUPC["Razao Social Fatura"])+Spaces(3)+"CNPJ/CPF: "+Format("W18,AL",DUPC["CGC Fatura"])+"|"+"\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..: "+Format("W67",DUPC["Cep Fatura"]+" - "+DUPC["Cidade Fatura"]+"/"+DUPC["UF Fatura"])+"|"+"\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"])),36," ")
         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
         
         CONTADOR = CONTADOR + 1
         If CONTADOR=3 
            Then CONTADOR = 0
                 Print File ARQIMP "\f"
            Else Print File ARQIMP "\n"      
         EndIf    
 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)

Moveto "FaturaC"

release vars ndiasvencimento
