'Nome       : Sinel5por13
'Tipo       : LST
'Data       : 2006/04/27
'Versao     : 1.1
'Descricao  : Listagem de etiquetas (13 linhas 5 colunas)

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0   2002/03/05 --------------------------------------------------
'Versao base


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


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


'------------------------------------------------------------------------------
#DOC - Etiqueta - Grafico
'------------------------------------------------------------------------------
Tipo                       [DocTip]=StcEtq
Nome                       [DocNom]=EtqGra,Folha com 24 Etq
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocPrt]=PAG_W

Linhas por pagina          [DocLpg]=500
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Etg_Cab
Listar linhas               [FxLIN]=Etg_Lin
Listar fim                  [FxFIM]=Etg_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
'------------------------------------------------------------------------------
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


'------------------------------------------------------------------------------

SUB Etg_CabIni 'inicializar
end sub

SUB Etg_CabFim 'terminar
end sub


SUB Etg_Cab 'cabecalho
call Inicializar
end sub


Sub Inicializar
PrWIN AJT_D,  -280.0,   -280.0         'deslocamento de ajuste 

PrWIN AJT_B, 0.0, 0.0                  'posicao base
PrWIN COR_F, 15                        'cor de fundo 

EtqLin=13                              'etiquetas por linha
EtqCol=5                               'etiquetas por coluna

Col=MemNum(8)                          'coluna inicial
Lin=MemNum(9)                          'linha inicial


end sub



SUB Etg_Lin 'linha
Col=Col+1                               'contar coluna
if Col>EtqCol-1 then                    'mudar de coluna?
  col=0                                 'coluna inicial
  Lin=Lin+1                             'mudar de linha
end if

If Lin>EtqLin-1 then                    'mudar de folha?
  PrWin FP                              'forcar fim de pagina
  Col=0                                 'coluna inicial
  Lin=0                                 'linha inicial
end if

'calcular posicao de etiquetas
Coluna=Col*38                           'largura entre etiquetas
Linha=Lin*21                            'altura entre etiquetas


'adicionar margens fixas
Coluna=Coluna+16
Linha=Linha +11



'imprimir etiqueta
PrWIN AJT_B,   Coluna,Linha                    'posicao base
PrWIN GR_ME, 0                                 'modo de enchimento
PrWIN FON, 8, 1                               'activar fonte

cl=2

PrWIN TX_N, cl  ,   5,Stc_Mst_Nome1$             'nome do artigo
PrWIN CBAR, cl  ,  9,"EAN13", 7,0.35,Stc_Mst_CodBar$   'mostrar codigo barras (grafico)
PrWIN TX_NP,cl  ,  17,"N",Stc_Mst_CodBar$             'mostrar codigo barras (numero)

end sub



SUB Etg_Fim 'fim de listagem
PrWIN FP                               'fim de pagina
end sub

##
