;** Et_Z361 ********************************************************************
;* Etiqueta para Impressao dos Itens de Expedi‡Æo - MODO 2  *IGARATINGA TECIDOS*
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 22/10/2015 por Andrey Fillipe
;Ultima Alteracao: 20/01/2016 por Bruno Carvalho 
;Motivo Alteracao: Adicionado impressÆo da data de hoje no final da etiqueta
;Ultima Alteracao: 20/05/2016 por Bruno Carvalho
;Motivo Alteracao: Ajustes "Iten_Com" -> [Codigo Concentrador]

;*******************************************************************************
;Monta Etiqueta                                                                *
;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q712\n"
Print File Arquivo "Q240,32\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Print File Arquivo "A40,10,0,3,1,1,N,\""+"REFERENCIA: "+"\"\n"
Print File Arquivo "A200,10,0,2,1,1,N,\""+ITEM+"\"\n"

Print File Arquivo "A40,40,0,3,1,1,N,\""+"   LARGURA: "+"\"\n"
Print File Arquivo "A200,40,0,2,1,1,N,\""+ITEM_CON+"\"\n"

Print File Arquivo "A40,70,0,3,1,1,N,\""+"  METRAGEM: "+"\"\n"
Print File Arquivo "A200,70,0,2,1,1,N,\""+ITEM_QTD+"\"\n"

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

Print File Arquivo "A40,130,0,3,1,1,N,\""+"       COR:"+"\"\n"
Print File Arquivo "A200,130,0,2,1,1,N,\""+ITEM_COR+"\"\n"

Print File Arquivo "A270,160,0,4,1,1,N,\""+"IGARATINGA TECIDOS"+"\"\n"
Print File Arquivo "A270,200,0,3,1,1,N,\""+Format("W18",StrVal(Today()))+"\"\n\n"              
Print File Arquivo "P"+StrVal(1)+"\n"

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()
If IsAssigned(DITEA)
   Then Release Vars ITEM_COD, ITEM_QTD, ITEM_COR, ITEM_DES, ITEM_DESC, ITEM_CON, REG_ITEM
EndIf

GetRecord "\\Sistemas\\Estoque\\Itens" [Codigo do Item] To REG_ITEM
If Not RetVal
   Then Mensagem("O Item "+[Codigo do Item]+" n„o est  cadastro dos itens!")
        Return
EndIf   

GetRecord "\\Sistemas\\Estoque\\Iten_Com" [Codigo do Item] To REG_ITEMCOMP     
If RetVal
   Then CONCENTRADOR = REG_ITEMCOMP["Codigo Concentrador"]
   Else CONCENTRADOR = ""
EndIf   

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

;---- Se alterar o modo para referˆncia, comentar a linha Codigo do Item e demarcar a linha Referencia --------
ITEM_COD = [Codigo do Item]             
;ITEM_COD = [Referencia]
;--------------------------------------------------------------------------------------------------------------
PAIS     = REG_ITEM["Pais"]
ITEM_DES = REG_ITEM["Descricao do Item"]
ITEM     = Format("W10,AR",ITEM_COD) + " " + ITEM_DES
ITEM_QTD = StrVal([Quantidade_Expedida])
If PAIS <> ""
   Then ITEM_COR = Format("W15",[Descricao da Cor_Tecido]) + "  Origem: "+Format("W15",PAIS)
   Else ITEM_COR = [Descricao da Cor_Tecido] 
EndIf   
ITEM_DESC= Format("W41",REG_ITEM["Descricao Complementar"])
ITEM_CON = CONCENTRADOR

Monta_Etiqueta()
ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)

EndProc
;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
