;** EV_0370 ********************************************************************
;** Impressao de Etiquetas de volumes A4 Formul rio Pimaco                     *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 05/05/2017 por Rafael Matos
;Ultima Alteracao: 31/10/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes volumes

;*******************************************************************************
Proc Imprime_Etiqueta()

If netiq>0
   Then

 Print File ARQIMP CI_10CPP+CI_6LPP+"\n\n\n\n"          
 Print File ARQIMP chr(27)+"k0"
 Print File ARQIMP CI_10CPP+LINHA1+"\n"
 Print File ARQIMP CI_10CPP+LINHA2+"\n"
 Print File ARQIMP CI_IEXP+CI_INEG+LINHA3+CI_FEXP+CI_FNEG+"\n"
 Print File ARQIMP CI_IEXP+CI_10CPP+LINHA4+CI_FEXP+"\n"
 Print File ARQIMP CI_10CPP+CI_6LPP+"\n\n\n\n"
 
 QUEBRA_PAGINA=QUEBRA_PAGINA+2

EndIf

netiq =0
LINHA1=""
LINHA2=""
LINHA3=""
LINHA4=""
LINHA5=""
LINHA6=""

If QUEBRA_PAGINA=10
   Then QUEBRA_PAGINA = 0
        Print File ARQIMP "\f"
EndIf

Endproc

Proc Inicio()

;********* Imprime Certificados *******
ArqImp=PrivDir()+"EtVol.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

QUEBRA_PAGINA=0
netiq=0
Imprime_Etiqueta()

Fim=False
CoEdit "Answer"
Scan
  GetRecord "\\sistemas\\cadastro\\destinat" [Codigo] to REGCLIE
  If Retval
     Then RAZAOSOCIAL = REGCLIE["Razao Social"          ]
          CIDADE      = REGCLIE["Cidade"                ]
          ESTADO      = REGCLIE["UF"                    ] 
  EndIf
  
  GetRecord "\\sistemas\\vendas\\faturac" [Numero da OF] to REGOF
  If Retval
     Then VOLUMES = REGOF["Numero de Volumes"]
  EndIF   
  If VOLUMES=0 Or VOLUMES<0 Or IsBlank(VOLUMES)
     Then VOLUMES=1
  EndIf   

  For wi From 1 To VOLUMES
    AGUARDE("Imprimindo Etiquetas")

    LINHA1=LINHA1+RAZAOSOCIAL
    LINHA2=LINHA2+CIDADE+"/"+ESTADO
    LINHA3=LINHA3+[Tipo do Documento] + ": " + [Numero do Documento]
    LINHA4=LINHA4+strval(wi)+"/"+strval(VOLUMES)+" VOLUMES"

    netiq=netiq+1
    If netiq=2
       Then Imprime_Etiqueta()
       Else LINHA1=Completa(LINHA1,44," ")
            LINHA2=Completa(LINHA2,44," ")
            LINHA3=Completa(LINHA3,22," ")
            LINHA4=Completa(LINHA4,22," ")
    EndIf

  EndFor
  If Fim Then QuitLoop EndIf
EndScan
Imprime_Etiqueta()
Do_It!
ClearAll

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

EndProc

Inicio()
LIMPAGUARDE()
Release Vars Fim, wwi, NomedaEmpresa,
        RAZAOSOCIALEMP, CIDADEEMP, ESTADOEMP,
        LINHA1,LINHA2,LINHA3,LINHA4, netiq 
Release Procs Imprime_Etiqueta, Inicio
