'Nome       : Etron.etq
'Tipo       : LST
'Data       : 2001/04/20
'Versao     : 1.0
'Descricao  : Listagem de etiquetas em ETRON TLP 2046

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0   2001/??/?? --------------------------------------------------
'Versao base


'------------------------------------------------------------------------------
#DEF - Definicao global do documento
'------------------------------------------------------------------------------
Caracteres invalidos             [CarInv]=#
##


'------------------------------------------------------------------------------
#ESP - Campos especificos
'------------------------------------------------------------------------------
'Zoom para preview             [PrvZoom]=2.2
'Zoom para preview             [PrvZoom]=1.5
Zoom para preview             [PrvZoom]=1.0
Opcoes para impressora WIN   [PrWinOpc]=[ORI=P]
##


'------------------------------------------------------------------------------
#DOC - Etiqueta - Texto
'------------------------------------------------------------------------------
Tipo                       [DocTip]=StcEtq
Nome                       [DocNom]=EtqTx,Etiqueta (Texto)
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=
Etiquetas por pagina       [DocLpg]=16
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Etq_Cab
Listar linhas               [FxLIN]=Etq_Lin
Listar fim                  [FxFIM]=Etq_Fim
##



'------------------------------------------------------------------------------
#DOC - Etiqueta - Texto
'------------------------------------------------------------------------------
Tipo                       [DocTip]=StcEtq1
Nome                       [DocNom]=EtqTx,Etiqueta (Texto)
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=
Etiquetas por pagina       [DocLpg]=16
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Etq_Cab
Listar linhas               [FxLIN]=Etq_Lin
Listar fim                  [FxFIM]=Etq_Fim
##


'------------------------------------------------------------------------------
#VAR - Variaveis
'------------------------------------------------------------------------------
'MemNum(11)    - contador geral
'MemNum(12)    - contador por artigo

'identificadores
Pag      = Doc_CntPag
DtExt    = FrmDt$(Doc_DtHoje,45,0)
DtAmd    = FrmDt$(Doc_DtHoje,45,0)

'variaveis a listar
Art      = StcCodFrm$(Stc_Mst_Art$)                
Nom1     = Stc_Mst_Nome1$
Unid     = Stc_Mst_Unid$
##


'------------------------------------------------------------------------------
#PGM - Programa/Funcoes
'------------------------------------------------------------------------------
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
SUB FxIni 'funcao de inicializacao
'modo WIN
PrWIN AJT_F, 56.7,  56.7               'ajuste para milimetros
PrWIN AJT_D,-280.0,-280.0              'deslocamento de ajuste 
PrWIN ET,  2                           'espessura de traco 
end sub


SUB FxFim 'funcao de finalizacao
PrWIN FON, "REG"                       'limpar registo de fontes
end sub


SUB Lst_AJT
end sub


'- Etiqueta ------------------------------------------------------------------
SUB Etq_CabIni 'inicializar
cntLin=0                               'limpar contador por linha
cntGer=0                               'limpar contador geral
LpgMax=8                               'linha da pagina - maximo
LpgCnt=1                               'linha da pagina - numero

etqLin=1                               'etiquetas por linha
end sub


SUB EtqVarLpz 'limpar variaveis
cmp11$=""
cmp12$=""
cmp13$=""
cmp14$=""
cmp15$=""
cmp16$=""
cmp17$=""
cmp18$=""

cmp21$=""
cmp22$=""
cmp23$=""
cmp24$=""
cmp25$=""
cmp26$=""
cmp27$=""
cmp28$=""

cmp31$=""
cmp32$=""
cmp33$=""
cmp34$=""
cmp35$=""
cmp36$=""
cmp37$=""
cmp38$=""

cmp41$=""
cmp42$=""
cmp43$=""
cmp44$=""
cmp45$=""
cmp46$=""
cmp47$=""
cmp48$=""
end sub


SUB EtqMem1 'guardar dados da etiqueta 1
cBar$="B5,5,0,E30,3,3,4,B,"+chr$(34)+Stc_Mst_Art$+chr$(34)
cmp11$="<-------------------------------------->"
'cmp12$=str$(cntGer)
cmp12$=cBar$
cmp13$=StcCodFrm$(Stc_Mst_Art$)
cmp14$=Stc_Mst_Nome1$
cmp15$=""
cmp16$="ESC:  "+FrmNum$(9.2,Stc_Mst_Pv1)
cmp17$="EURO: "+FrmNum$(9.2,Stc_Mst_Pv1/200.482)
cmp18$="<-------------------------------------->"
end sub


SUB EtqMem2 'guardar dados da etiqueta 2
cmp21$="<-------------------------------------->"
cmp22$=str$(cntGer)
cmp23$=StcCodFrm$(Stc_Mst_Art$)
cmp24$=Stc_Mst_Nome1$
cmp25$=""
cmp26$="ESC:  "+FrmNum$(11.2,Stc_Mst_Pv1)
cmp27$="EURO: "+FrmNum$(11.2,Stc_Mst_Pv1/200.482)
cmp28$="<-------------------------------------->"
end sub


SUB EtqMem3 'guardar dados da etiqueta 3
cmp31$="<-------------------------------------->"
cmp32$=str$(cntGer)
cmp33$=StcCodFrm$(Stc_Mst_Art$)
cmp34$=Stc_Mst_Nome1$
cmp35$=""
cmp36$="ESC:  "+FrmNum$(11.2,Stc_Mst_Pv1)
cmp37$="EURO: "+FrmNum$(11.2,Stc_Mst_Pv1/200.482)
cmp38$="<-------------------------------------->"
end sub


SUB EtqMem4 'guardar dados da etiqueta 4
cmp41$="<-------------------------------------->"
cmp42$=str$(cntGer)
cmp43$=StcCodFrm$(Stc_Mst_Art$)
cmp44$=Stc_Mst_Nome1$
cmp45$=""
cmp46$="ESC:  "+FrmNum$(11.2,Stc_Mst_Pv1)
cmp47$="EURO: "+FrmNum$(11.2,Stc_Mst_Pv1/200.482)
cmp48$="<-------------------------------------->"
end sub


SUB Etq_Cab 'cabecalho
end sub


SUB Etq_Lin 'linha
cntGer=cntGer+1                        'contar geral
cntLin=cntLin+1                        'contar por linha
if cntLin>etqLin then                  'acima do limite ?
   call Etq_LinLst                     'listar linha
   cntLin=1                            'reinicializar
   call EtqVarLpz                      'limpar variaveis
end if

if cntLin=1 then
   call EtqMem1                        'guardar dados da etiqueta 1
end if

if cntLin=2 then
   call EtqMem2                        'guardar dados da etiqueta 2
end if

if cntLin=3 then
   call EtqMem3                        'guardar dados da etiqueta 3
end if

if cntLin=4 then
   call EtqMem4                        'guardar dados da etiqueta 4
end if
end sub


SUB Etq_LinLst 'listar linha
if etqLin=1 then
   print tab(1) cmp11$
   print tab(1) cmp12$
   print tab(1) cmp13$
   print tab(1) cmp14$
   print tab(1) cmp15$
   print tab(1) cmp16$
   print tab(1) cmp17$
   print tab(1) cmp18$
end if

if etqLin=2 then
   print tab(1) cmp11$ tab(41) cmp21$
   print tab(1) cmp12$ tab(41) cmp22$
   print tab(1) cmp13$ tab(41) cmp23$
   print tab(1) cmp14$ tab(41) cmp24$
   print tab(1) cmp15$ tab(41) cmp25$
   print tab(1) cmp16$ tab(41) cmp26$
   print tab(1) cmp17$ tab(41) cmp27$
   print tab(1) cmp18$ tab(41) cmp28$
end if

if etqLin=3 then
   print tab(1) cmp11$ tab(41) cmp21$ tab(81) cmp31$
   print tab(1) cmp12$ tab(41) cmp22$ tab(81) cmp32$
   print tab(1) cmp13$ tab(41) cmp23$ tab(81) cmp33$
   print tab(1) cmp14$ tab(41) cmp24$ tab(81) cmp34$
   print tab(1) cmp15$ tab(41) cmp25$ tab(81) cmp35$
   print tab(1) cmp16$ tab(41) cmp26$ tab(81) cmp36$
   print tab(1) cmp17$ tab(41) cmp27$ tab(81) cmp37$
   print tab(1) cmp18$ tab(41) cmp28$ tab(81) cmp38$
end if

if etqLin=4 then
   print tab(1) cmp11$ tab(41) cmp21$ tab(81) cmp31$ tab(121) cmp41$
   print tab(1) cmp12$ tab(41) cmp22$ tab(81) cmp32$ tab(121) cmp42$
   print tab(1) cmp13$ tab(41) cmp23$ tab(81) cmp33$ tab(121) cmp43$
   print tab(1) cmp14$ tab(41) cmp24$ tab(81) cmp34$ tab(121) cmp44$
   print tab(1) cmp15$ tab(41) cmp25$ tab(81) cmp35$ tab(121) cmp45$
   print tab(1) cmp16$ tab(41) cmp26$ tab(81) cmp36$ tab(121) cmp46$
   print tab(1) cmp17$ tab(41) cmp27$ tab(81) cmp37$ tab(121) cmp47$
   print tab(1) cmp18$ tab(41) cmp28$ tab(81) cmp38$ tab(121) cmp48$
end if

LpgCnt=LpgCnt+1                        'contar linha da pagina
if LpgCnt>LpgMax then                  'acima do limite
   LpgCnt=1                            'reinicializar
else
   print                               'separar
end if
end sub


SUB Etq_Fim 'fim de listagem
if cntGer>0 then                       'dados pendentes ?
    call Etq_LinLst                    'listar linha
end if
Print PrtCmd$("[SP]");
end sub

##
