'Nome       : Folha24etq
'Tipo       : LST
'Data       : 2002/03/05
'Versao     : 1.1
'Descricao  : Listagem de etiquetas (24 por folha A4)

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

'- Versao : 1.1   2003/??/?? --------------------------------------------------
'Permitir definir linha e coluna inicial pelo programa

'------------------------------------------------------------------------------
#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=8                               'etiquetas por linha
EtqCol=3                               '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*70                           'largura entre etiquetas
Linha=Lin*40                            'altura entre etiquetas

'adicionar margens fixas
Coluna=Coluna+15                        'largura entre etiquetas
Linha=Linha                             'altura entre etiquetas


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

'PrWIN TX_N, 0  ,  5,StcCodFrm$(Stc_Mst_Art$)   'codigo de artigo
PrWIN TX_N, 0  ,  10,Stc_Mst_Nome1$             'nome do artigo

tx$=StcPrcFrm$(10,Stc_Mst_Pv1)+ "  Euro"        'variavel com preco
PrWIN TX_N, 5   ,  16,tx$                      'mostrar preco


'PrWIN CBAR, 0     ,  20,"EAN13",8,0.4,Stc_Mst_CodBar$   'mostrar codigo barras (grafico)
PrWIN CBAR, 0     ,  20,"EAN13",20,0.4,Stc_Mst_CodBar$   'mostrar codigo barras (grafico)
PrWIN FON, 8, 1                               'activar fonte
PrWIN TX_NP,0     ,  40,"N",Stc_Mst_CodBar$             'mostrar codigo barras (numero)

'PrWIN TX_N,0     ,  32,Emp_Inf_Nome$                'nome da empresa
end sub



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

##
