;** Et_Z318A *******************************************************************
;* Etiqueta para Impressao dos Itens de Expedi‡Æo - MODO 2           *AQUARELA *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 22/05/2017 por Rafael Matos
;Ultima Alteracao: 04/07/2017 por Bruno Carvalho 
;Motivo Alteracao: Ajustado novo layout alterando a dire‡Æo da impressÆo -> Monta_Etiqueta_DirecaoB()  
;                  Mantido o modelo anterior em Monta_Etiqueta_DirecaoA() caso seja utilizado posteriormente
;Ultima Alteracao: 20/02/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado novas simbologias textil
;Ultima Alteracao: 01/03/2018 por Bruno Carvalho
;Motivo Alteracao: Alterado Imprime_Simbologia_Zebra() para Imprime_Simbologia() e Add na Bibliot 
;Ultima Alteracao: 27/06/2018 por Bruno Carvalho
;Motivo Alteracao: Foi ajustado a altura da etiqueta de "Q432,32" para "Q416" onde a etiqueta estava sendo impressa 
;                  em 2 etiquetas, sendo a 2§ etiqueta em branco, foi feito v rios testes, altera‡Æo de m quina,
;                  reinstala‡Æo de impressora e todos as tentativas sem sucesso, logo, feoi feito este ajuste na
;                  diminui‡Æo da altura da etiqueta, e assim ficou sendo impressa apenas 1 etiqueta.
;Ultima Alteracao: 29/08/2018 por Bruno Carvalho
;Motivo Alteracao: D7 para D12  

;*******************************************************************************
;Monta Etiqueta                                                                *
;*******************************************************************************
Proc Monta_Etiqueta_DirecaoB()                             

Print File Arquivo "q680\n"
Print File Arquivo "Q416\n"   ;"Q416
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D12\n"
Print File Arquivo "ZB\n"     ;ZT *Print Direct
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

Print File Arquivo "A40,70,0,3,1,1,N,\""+"        ARTIGO: "+"\"\n"
Print File Arquivo "A250,70,0,2,2,1,N,\""+ARTIGO+"\"\n"

Print File Arquivo "A40,100,0,3,1,1,N,\""+"    COMPOSICAO: "+"\"\n"
Print File Arquivo "A250,100,0,2,1,1,N,\""+COMPOSICAO+"\"\n"

Print File Arquivo "A40,130,0,3,1,1,N,\""+"       LARGURA: "+"\"\n"
Print File Arquivo "A250,130,0,2,1,1,N,\""+LARGURA+"\"\n"

Print File Arquivo "A400,130,0,3,1,1,N,\""+"METRAGEM: "+"\"\n"
Print File Arquivo "A530,130,0,3,1,1,N,\""+ITEM_QTD+"\"\n"

Print File Arquivo "A40,160,0,3,1,1,N,\""+"PAIS DE ORIGEM: "+"\"\n"
Print File Arquivo "A250,160,0,2,1,1,N,\""+PAIS+"\"\n"

Print File Arquivo "A210,320,0,3,1,1,N,\""+"AQUARELA TECIDOS LTDA"+"\"\n"              
Print File Arquivo "A168,350,0,2,1,1,N,\""+"(37) 3246-1010 / (37) 3246-1558"+"\"\n"
Print File Arquivo "A215,370,0,2,1,1,N,\""+"CNPJ: 07.598.599/0001-56"+"\"\n"  

Imprime_Simbologia("ZEBRA","60","220","6")

Print File Arquivo "P1\n"

EndProc

;*******************************************************************************
;Monta Etiqueta                                                                *
;*******************************************************************************
Proc Monta_Etiqueta_DirecaoA()

;Print File Arquivo "q712\n"
;Print File Arquivo "Q240,32\n"
;Print File Arquivo "rN\n"
;Print File Arquivo "S3\n"
;Print File Arquivo "D7\n"
;Print File Arquivo "ZT\n"  
;Print File Arquivo "JF\n"
;Print File Arquivo "O\n"
;Print File Arquivo "N\n"                           
;                              
;Print File Arquivo "A40,10,0,3,1,1,N,\""+"        ARTIGO: "+"\"\n"
;Print File Arquivo "A250,10,0,2,2,1,N,\""+ARTIGO+"\"\n"
;
;Print File Arquivo "A40,40,0,3,1,1,N,\""+"    COMPOSICAO: "+"\"\n"
;Print File Arquivo "A250,40,0,2,1,1,N,\""+COMPOSICAO+"\"\n"
;
;Print File Arquivo "A40,70,0,3,1,1,N,\""+"       LARGURA: "+"\"\n"
;Print File Arquivo "A250,70,0,2,1,1,N,\""+LARGURA+"\"\n"
;
;Print File Arquivo "A400,70,0,3,1,1,N,\""+"METRAGEM: "+"\"\n"
;Print File Arquivo "A530,70,0,2,2,1,N,\""+ITEM_QTD+"\"\n"
;
;Print File Arquivo "A40,100,0,3,1,1,N,\""+"PAIS DE ORIGEM: "+"\"\n"
;Print File Arquivo "A250,100,0,2,1,1,N,\""+PAIS+"\"\n"
;
;Print File Arquivo "A215,280,0,3,1,1,N,\""+"AQUARELA TECIDOS LTDA"+"\"\n"              
;Print File Arquivo "A173,310,0,2,1,1,N,\""+"(37) 3246-1010 / (37) 3246-1558"+"\"\n"
;Print File Arquivo "A220,330,0,2,1,1,N,\""+"CNPJ: 07.598.599/0001-56"+"\"\n"  
;
;Imprime_Simbologia_Zebra()
;
;Print File Arquivo "P1\n"

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()
If IsAssigned(ARTIGO) Then Release Vars ARTIGO, ITEM_QTD, COMPOSICAO, LARGURA, PAIS EndIF
If Not IsAssigned(TIPO_IMPRESSORA) Then TIPO_IMPRESSORA = "ZEBRA" EndIf

Arquivo=PrivDir()+"Et_Z318A.ext"
Deleta_Arquivo(Arquivo)

AUX_CODIGO_ITEM = [Codigo do Item]
GetRecord "\\Sistemas\\Estoque\\Itens" AUX_CODIGO_ITEM To ITEM
If RetVal
   Then PAIS = ITEM["Pais"]
   Else PAIS = "" 
EndIf 

GetRecord "\\Sistemas\\Estoque\\Iten_tec" AUX_CODIGO_ITEM To REG_TECIDO
If RetVal
   Then ARTIGO     = REG_TECIDO["Artigo"]
        COMPOSICAO = REG_TECIDO["Composicao"]
        LARGURA    = REG_TECIDO["Largura"]
        SIMBOLOGIA = REG_TECIDO["Simbologia_Impressao"]
   Else ARTIGO     = ""
        COMPOSICAO = ""
        LARGURA    = ""
        SIMBOLOGIA = "" 
EndIf

ITEM_QTD = StrVal([Quantidade_Expedida])
 
CONT_SIMBOL=0
DynArray SIMBOL[]
If SIMBOLOGIA<>""
   Then PosI = Search("-",SIMBOLOGIA)
        If PosI>0
           Then While PosI>0
                  CONT_SIMBOL         = CONT_SIMBOL +1
                  SIMBOL[CONT_SIMBOL] = SubStr(SIMBOLOGIA,1,PosI-1)
                  SIMBOLOGIA = SubStr(SIMBOLOGIA,PosI+1,Len(SIMBOLOGIA))
                  PosI = Search("-",SIMBOLOGIA)
                  If PosI=0
                     Then CONT_SIMBOL         = CONT_SIMBOL +1
                          SIMBOL[CONT_SIMBOL] = SIMBOLOGIA
                          QuitLoop
                  EndIf   
                EndWhile
           Else SIMBOL[1]=SIMBOLOGIA
        EndIf
   Else SIMBOL[1]=""
EndIf

Monta_Etiqueta_DirecaoB()

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta_DirecaoA,Monta_Etiqueta_DirecaoB,Monta_Comandos
