;** NP_0053  ********************************************************************
;** Impressao de Nota Promissoria                 ** CURTUME SAO SEBASTIAO     *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 12/11/2003 por Karen Lauar Nery
;Alterado em     :   /  /     por
;Motivo Alteracao:
;Alterado em     : 16/06/2006 por Antonio Marcelo Alves
;Motivo Alteracao: Inclusao ImpriArq()
;Ultima Alteracao: 14/08/2007 por Antonio Marcelo Alves
;Motivo Alteracao: Ajustes Deleta_Arquivo
;Ultima Alteracao: 03/02/2010 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes NUMCOPIA=1     
;Ultima Alteracao: 13/09/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes modo ordem da duplicata numero/letra

;*******************************************************************************

;**** Teste da Impressora ****
Moveto "FaturaC"
AGUARDE("Imprimindo Vencimentos")

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

Print File ARQIMP CI_15CPP
Print File ARQIMP CI_6LPP
;********* Imprime Vencimentos*********
Array dia[12]
Array mes[12]
Array ano[12]

For I From 1 To 12
    dtvencto[i]=BlankDate()
    valorven[i]=BlankNum()
    dia[i] =""
    mes[i] =""
    ano[i] =""
EndFor

Moveto "FaturaV"
Moveto [Numero da OF]
Locate [FaturaC->Numero da OF]
If RetVal
   Then i=0
        While [Numero da OF] = [FaturaC->Numero da OF]
          i=i+1
          dtvencto[i] = [Data ]
          valorven[i] = [Valor]
          dia[i]      = Day([Data])
          mes[i]      = MESEXT(Month([Data]))
          ano[i]      = Year([Data])
          Skip
          If EOT()
             Then QuitLoop
          Endif
        EndWhile
Endif
Moveto "FaturaC"
i=1

getsys_modo_ordemdup()

While valorven[i] <> BlankNum()

      ESCEXT(valorven[i])

      Print File ARQIMP Spaces(73)+Format("W10,AR",(dia[i]))+Spaces(15)+Format("W24,AL",(mes[i]))+Format("W7,AL",(ano[i]))

      Print File ARQIMP "\n\n"

      Print File ARQIMP Spaces(33)+"C="+[Codigo]+" R="+[Codigo do Representante]

      switch
        case sys_modo_ordemdup="N":
          If Not IsBlank(dtvencto[2])
             Then Print File ARQIMP Format("W12,AR",(NOTAFISC+"/"+strval(i)))+Spaces(46)+Format("W20.2,EIC",valorven[i])+"\n"
             Else Print File ARQIMP Format("W14,AR",(NOTAFISC+"  "))+Spaces(46)+Format("W20.2,EIC",valorven[i])+"\n"
          EndIf
        
        otherwise                 :
          If Not IsBlank(dtvencto[2])
             Then Print File ARQIMP Format("W12,AR",(NOTAFISC+"/"+CHR(65+i-1)))+Spaces(46)+Format("W20.2,EIC",valorven[i])+"\n"
             Else Print File ARQIMP Format("W14,AR",(NOTAFISC+"  "))+Spaces(46)+Format("W20.2,EIC",valorven[i])+"\n"
          EndIf
      
      endswitch
      
      Print File ARQIMP "\n\n\n\n\n\n"
      Print File ARQIMP Spaces(40)+SubStr(EXTENSO,001,91)+"\n\n"
      Print File ARQIMP Spaces(21)+SubStr(EXTENSO,092,91)+"\n"
      Print File ARQIMP "\n\n"

      Print File ARQIMP Spaces(36)+Format("W40,Al",[Razao Social])

      Print File ARQIMP Spaces(14)+"SAO GONCALO DO PARA, "+Format("D13",[Data de Emissao])+"\n"

      Print File ARQIMP "\n"

      Print File ARQIMP Spaces(36)+Format("W18,AL",[CGC])+"\n"


      Print File ARQIMP Spaces(36)+[Endereco]+" - "+ [Cidade]+"\n"

      Moveto [Codigo]
      Ativa_Lookup()
      Moveto [Codigo]
      Locate [Faturac->Codigo]
      If RetVal
         Then Print File ARQIMP Spaces(35)+[Codigo da Area   ]+"\n"
         Else Print File ARQIMP "\n"
      EndIf
      KeyPress "ESC"

      Moveto "FaturaC"

      Print File ARQIMP "\n\n\n"

      i=i+1

EndWhile

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

UnlockRecord

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



LIMPAGUARDE()

