;** Np_0404 ********************************************************************
;*  Emissao de Duplicatas                                                      *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 19/11/2018 por Bruno Carvalho
;Ultima Alteracao: 17/12/2018 por Nikolas
;Motivo Alteracao: campo ano ao ao lado a assinatura aumentado o espaco
;Ultima Alteracao: 25/01/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes #0404

;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************
proc imprimenp()
private regempresas,MESMAFOLHA

ArqImp=PrivDir()+"NP_0404.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

{TableAdd} {DupI}

GetRecord "\\Sistemas\\cadastro\\empresas" [FaturaC->Codigo da Empresa] To regempresas
If Not RetVal
   Then Mensagem("Empresa nÆo encontrada, Verificar !")
        Return       
EndIf

GetRecord "\\Sistemas\\Vendas\\DupC" [FaturaC->Codigo da Empresa], NOTAFISC, SERIEFISC To Duplicata
If Not RetVal
   Then Mensagem("Duplicata nÆo encontrada, Verificar !")
        Return       
EndIf


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

MESMAFOLHA = True

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

  if [Forma de Pagamento]="NP" 
     then
  
   ;;;Print File ARQIMP chr(27)+chr(67)+chr(33) ;Imprime 33 Linhas por pagina
   Print File ARQIMP chr(27)+chr(67)+chr(66) ;Imprime 66 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 Divinopolis-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(regempresas["Cidade Empresa"]+", "+StrVal(Day(Duplicata["Data de Emissao"]))+" de "+
                          RTrim(MesExt(Month(Duplicata["Data de Emissao"])))+" de "+
                          Strval(Year(Duplicata["Data de Emissao"])),35," ")
   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"
           MESMAFOLHA = False
      Else Print File ARQIMP CI_6LPP+"\f"
           MESMAFOLHA = True
   EndIf
  
  endif

 Skip
 If EOT() Then QuitLoop EndIf

EndWhile

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

If not MESMAFOLHA
   Then Print File ARQIMP "\f"
EndIf

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

endproc

;*******************************************************************************
;* Rotina principal                                                            *
;*******************************************************************************

imprimenp()

Do_It!
moveto "DupI" ClearImage

Moveto "FaturaC"
CoeditKey

Release procs imprimenp
