;** Et_Z008B *******************************************************************
;* Monta Etiqueta p/ Impressora Termica - Intermec- Interno 2 EAN13            *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 10/04/2007 por Anivel Augusto Rodrigues
;Ultima Alteracao: 20/04/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Altura/Largura Codigo de Baras
;Ultima Alteracao: 15/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Run
;Ultima Alteracao: 29/02/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes DispositivoI
;Ultima Alteracao: 26/03/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 05/04/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 22/11/2016 por Bruno Carvalho
;Motivo Alteracao: Ajustes na impressÆo da 1§ etiqueta, solicita‡Æo #26812#
;Ultima Alteracao: 09/01/2017 por Rafael Matos
;Motivo Alteracao: Ajustes tamanho da Referencia
;Ultima Alteracao: 03/04/2018 por Bruno Carvalho
;Motivo Alteracao: Ajustes p/ a impressÆo correta do c¢digo de barras na impressora ZEBRA

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

Proc Monta_Etiqueta()
Moveto "Answer"

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q816\n"
Print File Arquivo "Q592,24\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Linha01=""
Linha02=""
Linha03=""
Linha04=""
Linha05=""
Linha06=""
Linha07=""
Linha08=""
Linha09=""
Linha10=""

If Not IsBlank(CITEM[1])
   Then
        Linha01="A40,66,0,3,2,2,N,\""+NEMPR+"\"\n"
        Linha02="A70,121,0,1,1,1,N,\""+"Em  caso  haja  defeito  de\""+"\n"
        Linha03="A70,136,0,1,1,1,N,\""+"fabrica‡„o troca-se somente\""+"\n"
        Linha04="A70,151,0,1,1,1,N,\""+"com essa etiqueta\""+"\n"
        Linha05="B40,181,0,E30,3,2,110,B,\""+CITEM[1]+"\"\n"
        Linha06="A20,321,0,2,1,1,N,\""+DITEA[1]+"\"\n"
        Linha07="A50,351,0,2,2,2,N,\"Ref: "+REFEA[1]+"\"\n"
        Linha08="A60,402,0,4,1,1,N,\""+"A Vista:\""+"\n"
        Linha09="A60,431,0,4,1,1,N,\""+"A Prazo:\""+"\n"
        Linha10="A40,506,0,2,2,2,N,\"Ref: "+REFEA[1]+"\"\n"
EndIf

If Not IsBlank(CITEM[2])
   Then
        Linha01=Linha01+"A450,66,0,3,2,2,N,\""+NEMPR+"\"\n"
        Linha02=Linha02+"A480,121,0,1,1,1,N,\""+"Em  caso  haja  defeito  de\""+"\n"
        Linha03=Linha03+"A480,136,0,1,1,1,N,\""+"fabrica‡„o troca-se somente\""+"\n"
        Linha04=Linha04+"A480,151,0,1,1,1,N,\""+"com essa etiqueta\""+"\n"
        Linha05=Linha05+"B450,181,0,E30,3,2,110,B,\""+CITEM[2]+"\"\n"
        Linha06=Linha06+"A430,321,0,2,1,1,N,\""+DITEA[2]+"\"\n"
        Linha07=Linha07+"A460,351,0,2,2,2,N,\"Ref: "+REFEA[2]+"\"\n"
        Linha08=Linha08+"A470,402,0,4,1,1,N,\""+"A Vista:\""+"\n"
        Linha09=Linha09+"A470,431,0,4,1,1,N,\""+"A Prazo:\""+"\n"
        Linha10=Linha10+"A460,506,0,2,2,2,N,\"Ref: "+REFEA[2]+"\"\n"
EndIf

Print File Arquivo Linha01
Print File Arquivo Linha02
Print File Arquivo Linha03
Print File Arquivo Linha04
Print File Arquivo Linha05
Print File Arquivo Linha06
Print File Arquivo Linha07
Print File Arquivo Linha08
Print File Arquivo Linha09
Print File Arquivo Linha10

If CITEM[1]=CITEM[2]
   Then Print File Arquivo "P"+StrVal(CR)+"\n"
        ce=ce+((CR-1)*2)
   Else Print File Arquivo "P1\n"
EndIf
ne=2

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()
If IsAssigned(DITEA)
   Then Release Vars DITEA, DITEB, CITEM, MARCA, PRUNI
EndIf

If SYS_CODIGO_CLIENTE = "0171"    
   Then NEMPR="Venus  Modas"
   Else NEMPR="            "
EndIf   

Array DITEA[2]
Array CITEM[2]
Array REFEA[2]

Arquivo="Venus.ipl"
Deleta_Arquivo(Arquivo)

ne=2
Coedit "Answer"
Scan
  te=[Quantidade]
  If (te-(2-ne))>2
     Then CR=Int((te-(2-ne))/2)
     Else CR=1
  EndIf
  ce=0
  While True
    ce=ce+1
    ne=ne+1
    If ne=3
       Then For i From 1 To 2
              DITEA[i]=""
              CITEM[i]=""
              REFEA[i]=""
            EndFor
            ne=1
    EndIf
    DITEA[ne]=Substr([Descricao do Item],1,25)+Substr([Descricao do Item],28,3)
    REFEA[ne]=RTrim([Referencia])+RTrim(SubStr([Descricao do Item],28,3))
    CITEM[ne]=[Codigo de Barras]

    If ne=2   Then Monta_Etiqueta() EndIf
    If ce>=te Then QuitLoop         EndIf
  EndWhile
EndScan
If ne<2 Then Monta_Etiqueta() EndIf
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
