;** Carne    ********************************************************************
;** Impressao de Carnˆ         ** CONCRETOS VICO ** chamado pelo balcao
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 24/05/2004 por Davi Pereira Carrano
;Alterado em     : 08/10/2004 por Davi Pereira Carrano
;Motivo Alteracao: Inclusao do Campo Codigo do Cliente
;Alterado em     : 29/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: 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()+"Carne.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ArqImp)
EndIf

Print File ARQIMP CI_15CPP
Print File ARQIMP CI_6LPP
;*********Imprime Vencimentos*********
Array dia[36]
Array mes[36]
Array ano[36]
Array ord[36]
Array valorven[36]

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

getsys_modo_ordemdup()

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
          valorven[i] = [Valor]
          dia[i]      = Day([Data])
          mes[i]      = Month([Data])
          ano[i]      = Year([Data])

          switch
            case sys_modo_ordemdup="N":
              ord[i]      = strval(i)
            
            otherwise                 :
              ord[i]      = CHR(64+i)
          
          endswitch

          Skip
          If EOT()
             Then QuitLoop
          Endif
        EndWhile

        N_FATURAS=i
        If N_FATURAS=1
           Then ord[1]=""
        EndIf
   Else Mensagem("NÆo existe carnˆ!")
        Return
EndIf
Moveto "FaturaC"
i=1

While i<=N_FATURAS
      ESCEXT(valorven[i])
      DATA_IMP=AlinhM(StrVal(Dia[i]),2)+"/"+AlinhM(StrVal(Mes[i]),2)+"/"+StrVal(ano[i])



      Print File ARQIMP Spaces(20)+Format("W4,Al",[Codigo])+" - "+Format("W33,Al",[Razao Social])+Spaces(29)+Format("W4,Al",[Codigo])+" - "+Format("W33,Al",[Razao Social])+"\n"
      Print File ARQIMP Spaces(20)+Format("W40,Al",[Endereco    ])+Spaces(29)+Format("W40,Al",[Endereco    ])+"\n"
      Print File ARQIMP "\n"
      Print File ARQIMP CI_10CPP
      PARCELA=AlinhM(StrVal(i),2)+"/"+AlinhM(StrVal(N_Faturas),2)
      Print File ARQIMP Spaces(5)+Format("W14,AR",PARCELA)+ Format("W22,AR",DATA_IMP) +Spaces(3)+Format("W14,AR",PARCELA)
      Print File ARQIMP Format("W22,AR",DATA_IMP)+"\n"
      Print File ARQIMP "\n"

      If (N_FATURAS = 1)
         Then Print File ARQIMP Spaces(5)+Format("W14,AR",StrVal(valorven[i]))+Format("W22,AR",NOTAFISC)+SPACES(3)+Format("W14,AR",StrVal(valorven[i]))
              Print File ARQIMP Format("W22,AR",NOTAFISC)+"\n"
         Else Print File ARQIMP Spaces(5)+Format("W14,AR",StrVal(valorven[i]))+Format("W22,AR",NOTAFISC+"/"+ord[i])+SPACES(3)+Format("W14,AR",StrVal(valorven[i]))
              Print File ARQIMP Format("W22,AR",NOTAFISC+"/"+ord[i])+"\n"
      EndIf

      Print File ARQIMP "\n \n \n \n \n \n \n \n \n"

      Moveto "FaturaC"

      Print File ARQIMP "\n\n\n"

      i=i+1
      Print File ARQIMP CI_15CPP

EndWhile

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

UnlockRecord
;---- Imprime Arquivo Impressao ------------------------------------------------
ImpriArq(ARQIMP)


LIMPAGUARDE()
