;* ;** Et_Z0345A ***************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica - Bematech - Interno      ** Vitoria Textil **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 07/12/2016 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                  
;Motivo Alteracao:         

;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "q824\n"
Print File Arquivo "Q400,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 "A10,015,0,4,1,1,N,\""+DITEA+"\"\n"
Print File Arquivo "A10,050,0,4,1,1,N,\""+DITEB+"\"\n"
Print File Arquivo "A10,085,0,4,1,1,N,\""+DITEC+"\"\n"
Print File Arquivo "A10,120,0,4,1,1,N,\""+DITED+"\"\n"
Print File Arquivo "A10,155,0,4,1,1,N,\""+DITEE+"\"\n"

Print File Arquivo "P1\n"

EndProc                 

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

;DITEA = "    ARTIGO: 12345  CODIGO: 12345"
;DITEB = " DESCRICAO: 123456789012345678901234567890"
;DITEC = "COMPOSICAO: 38 POSICOES"
;DITED = "      PE€A: 12MTS  LARG: 12345  GRAMATURA: 12345"

If VSDGTABELA="" And VSDGTABELA2<>""
   Then VSDGTABELA = VSDGTABELA2
EndIf
DATA = Format("D13",Today())

Arquivo="Et_Z0345.ext"
Deleta_Arquivo(Arquivo)

Coedit "Answer"
Scan
  GetRecord "\\Sistemas\\Estoque\\Itens" [Codigo do Item] To ITEM
  If RetVal
     Then DESC_ITEM         = ITEM["Descricao do Item"]
          DESC_COMPLEMENTAR = ITEM["Descricao Complementar"]
     Else DESC_ITEM         = ""
          DESC_COMPLEMENTAR = ""
  EndIf   
  
  GetRecord "\\Sistemas\\Estoque\\Iten_tec" [Codigo do Item] To REG_TECIDO
  If RetVal
     Then ARTIGO     = REG_TECIDO["Artigo"]
          COMPOSICAO = REG_TECIDO["Composicao"]
          PECA       = REG_TECIDO["Peca"]
          LARGURA    = REG_TECIDO["Largura"]
          GRAMATURA  = REG_TECIDO["Gramatura"]
          RENDIMENTO = REG_TECIDO["Rendimento"]
     Else ARTIGO     = ""
          COMPOSICAO = ""
          PECA       = ""
          LARGURA    = ""
          GRAMATURA  = ""
          RENDIMENTO = ""
  EndIf   
   
  CITEM = [Codigo do Item]
  For i from 1 To 10
     If SubStr(CITEM,1,1)="0"
        Then CITEM = SubStr(CITEM,2,Len(CITEM))
        Else QuitLoop
     EndIf                               
  EndFor
  If SYS_CODIGO_CLIENTE="0345"
     Then ARTIGO = CITEM
  EndIf   
       
  GetRecord "\\Sistemas\\Vendas\\TbPrIte" VSDGTABELA,[Codigo do Item] To REG_PRECO
  If RetVal
     Then PRECO = Strval(REG_PRECO["Preco Unitario"])
     Else PRECO = ""
  EndIf  

  te=[Quantidade]
  ce=0
  While True            
    ce=ce+1
    DITEA = "    ARTIGO: "+Format("W10,AL",ARTIGO)+"  "+"COD: "+PRECO+" ";+DATA
    DITEB = " DESCRICAO: "+DESC_ITEM
    DITEC = "COMPOSICAO: "+SubStr(COMPOSICAO,1,38)
    DITED = "      PE€A: "+Format("W12",PECA)+"   LARGURA: "+Format("W12",LARGURA)
    DITEE = " GRAMATURA: "+Format("W10",GRAMATURA)+"  RENDIMENTO: "+Format("W12",RENDIMENTO)    
    Monta_Etiqueta()
    If ce>=te Then QuitLoop EndIf
  EndWhile
EndScan
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
