;** Et_Z008 ********************************************************************
;* Monta Etiqueta p/ Impressora Termica - Intermec- Interno 2  CODE128         *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 14/03/2007 por Anivel Augusto Rodrigues
;Ultima Alteracao: 22/03/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes EAN13 -> BAR128
;Ultima Alteracao: 29/03/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes contador ce
;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: 05/11/2018 por Bruno Carvalho
;Motivo Alteracao: Ajustes padrÆo p/ codigo de barras EAN8, EAN13 ou COD128 

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

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,\""+EMPRESA+"\"\n"
        Linha02="A70,126,0,1,1,1,N,\""+"Em  caso  haja  defeito  de\""+"\n"
        Linha03="A70,146,0,1,1,1,N,\""+"fabrica‡„o troca-se somente\""+"\n"
        Linha04="A70,166,0,1,1,1,N,\""+"com essa etiqueta\""+"\n"
        Switch
          Case Search("EAN13",TPBARRA[1])>0 : Linha05="B85,196,0,E30,2,2,75,B,\""+CITEM[1]+"\"\n"
          Case Search("EAN8",TPBARRA[1])>0  : Linha05="B85,196,0,E80,2,2,75,B,\""+CITEM[1]+"\"\n"
          OtherWise                         : Linha05="B85,196,0,1,2,2,75,B,\""+CITEM[1]+"\"\n" 
        EndSwitch
        Linha06="A30,316,0,2,1,1,N,\""+DITEA[1]+"\"\n"
        Linha07="A50,346,0,2,2,2,N,\"Ref: "+REFEA[1]+"\"\n"
        Linha08="A60,397,0,4,1,1,N,\""+"A Vista:\""+"\n"
        Linha09="A60,426,0,4,1,1,N,\""+"A Prazo:\""+"\n"
        Linha10="A25,506,0,3,2,2,N,\"Ref: "+REFEA[1]+"\"\n"
EndIf

If Not IsBlank(CITEM[2])
   Then
        Linha01=Linha01+"A450,66,0,3,2,2,N,\""+EMPRESA+"\"\n"
        Linha02=Linha02+"A480,126,0,1,1,1,N,\""+"Em  caso  haja  defeito  de\""+"\n"
        Linha03=Linha03+"A480,146,0,1,1,1,N,\""+"fabrica‡„o troca-se somente\""+"\n"
        Linha04=Linha04+"A480,166,0,1,1,1,N,\""+"com essa etiqueta\""+"\n"
        Switch
          Case Search("EAN13",TPBARRA[2])>0 : Linha05=Linha05+"B495,196,0,E30,2,2,75,B,\""+CITEM[2]+"\"\n"
          Case Search("EAN8",TPBARRA[2])>0  : Linha05=Linha05+"B495,196,0,E80,2,2,75,B,\""+CITEM[2]+"\"\n"
          OtherWise                         : Linha05=Linha05+"B495,196,0,1,2,2,75,B,\""+CITEM[2]+"\"\n" 
        EndSwitch
        Linha06=Linha06+"A430,316,0,2,1,1,N,\""+DITEA[2]+"\"\n"
        Linha07=Linha07+"A460,346,0,2,2,2,N,\"Ref: "+REFEA[2]+"\"\n"
        Linha08=Linha08+"A470,397,0,4,1,1,N,\""+"A Vista:\""+"\n"
        Linha09=Linha09+"A470,426,0,4,1,1,N,\""+"A Prazo:\""+"\n"
        Linha10=Linha10+"A425,506,0,3,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, TPBARRA
EndIf

Switch
  Case SYS_CODIGO_CLIENTE="0171" : EMPRESA="  Venus Modas  "
  Case SYS_CODIGO_CLIENTE="0322" : EMPRESA = "Moreira & Silva"
  OtherWise                      : EMPRESA = ""
EndSwitch

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

Arquivo=PrivDir()+"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]=""
            TPBARRA[i]=""  
              REFEA[i]=""
            EndFor
            ne=1
    EndIf
    DITEA[ne]=[Descricao do Item]
    REFEA[ne]=[Referencia]
    CITEM[ne]=[Codigo de Barras]
  TPBARRA[ne]=Upper([Tipo Codigo_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
