;** Et_Z431V *******************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica - Zebra - 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
           
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta(qtd)
private qtd
  
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,VENDEDOR,Vendedores,wc

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

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"

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

wc=0
DynArray Vendedores[]

view "\\sistemas\\cadastro\\represen"
scan for [Inativo Represent]<>"s"
  ;Foi solicitado p/ ser ignorado o vendedor 0010 em 24/04/2019
  If [Codigo do Representante]="0010" Then Loop EndIf
  wc=wc+1
  Vendedores[wc]=[Nome Fantasia Represent]
endscan
ClearImage

view "\\sistemas\\estoque\\itens"
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 wc from 1 to DynArraySize(Vendedores)
   linha8 = " VEND: "+Format("W13,AL",Vendedores[wc])+" "+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,Vendedores
