;** Et_Z431V *******************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica - Zebra - Itens/Vendedores                  **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 03/04/2019 por Anivel Augusto Rodrigues
;Ultima Alteracao: 08/04/2019 por Bruno Carvalho 
;Motivo Alteracao: Ajustes no tamanho da etique de "q800" para "q720" na proc Monta_Comandos() e "A50" para "A30" na proc  Monta_Etiqueta()  
;Ultima Alteracao: 24/04/2019 por Bruno Carvalho 
;Motivo Alteracao: Ajustes p/ ignorar representante 0010 e ajustes ao mostrar o pre‡o, p/ ser exibido mais um pre‡o quando localizado a mesma referˆncia, por‚m com *
;Ultima Alteracao: 26/04/2019 por Anivel Augusto Rodrigues 
;Motivo Alteracao: Ajustes pega j  pronto na tabela CODPreco
;Ultima Alteracao: 31/05/2019 por Bruno Carvalho  
;Motivo Alteracao: Ajustes na impressÆo da etiqueta por representante de acordo com a op‡Æo de escolha no pr¢prio script "RE_0010"
;Ultima Alteracao: 15/07/2019 por Bruno Carvalho  
;Motivo Alteracao: Ajustes na impressÆo do "cabe‡alho" p/ ser impresso na proc Monta_Etiqueta()  
           
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta(qtd)
private qtd
  
Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q720\n"     
Print File Arquivo "Q400,24\n"
Print File Arquivo "S2\n"
Print File Arquivo "D15\n"
Print File Arquivo "ZT\n"  
  
Print File Arquivo "A30,015,0,2,2,2,N,\""+linha1+"\"\n"
Print File Arquivo "A30,060,0,2,2,2,N,\""+linha2+"\"\n"
Print File Arquivo "A30,105,0,2,2,2,N,\""+linha3+"\"\n"
Print File Arquivo "A30,155,0,2,2,2,N,\""+linha4+"\"\n"
Print File Arquivo "A30,200,0,2,2,2,N,\""+linha5+"\"\n"
Print File Arquivo "A30,245,0,2,2,2,N,\""+linha6+"\"\n"
Print File Arquivo "A30,290,0,2,2,2,N,\""+linha7+"\"\n"
Print File Arquivo "A30,335,0,2,2,2,N,\""+linha8+"\"\n"

Print File Arquivo "P"+strval(qtd)+"\n"

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()
private DESC_ITEM,DESC_COMPLEMENTAR,HOJE,Vendedores,wc

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

HOJE=AlinhM(strval(Day(Today())),2)+AlinhM(strval(Month(Today())),2)+substr(strval(Year(Today())),3,2)

moveto "Answer"
scan
  DESC_ITEM         = [Descricao do Item     ]
  DESC_COMPLEMENTAR = [Descricao Complementar]
  If DESC_COMPLEMENTAR<>"" And Len(DESC_COMPLEMENTAR)>Len(DESC_ITEM) 
     Then DESC_ITEM=DESC_COMPLEMENTAR 
  EndIf 
  
  linha1 = "  ART: "+Format("W6,AL",[Referencia])+Spaces(1)+
                     SubStr(DESC_ITEM,01,13)
  linha2 = "       "+SubStr(DESC_ITEM,14,20)
  linha3 = " LARG: "+[Largura   ]
  linha4 = " COMP: "+[Composicao]
  linha5 = " PECA: "+[Peca      ]
  linha6 = "  COD: "+[CODPreco  ]
  linha7 = " REND: "+[Rendimento]
  For ii From 1 To DynArraySize(REPRESENTANTE)
    GetRecord "\\Sistemas\\Cadastro\\Represen" REPRESENTANTE[ii] To REG_REPRESENTANTE
    linha8 = " VEND: "+Format("W13",LTRIM(REG_REPRESENTANTE["Nome Fantasia Represent"]))+" "+HOJE
    Monta_Etiqueta([Quantidade]) 
  Endfor
Endscan

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
Release Vars linha1,linha2,linha3,linha4,linha5,linha6,linha7,linha8
