'Nome       : Folha56.etq
'Tipo       : LST
'Data       : 2003/01/15
'Versao     : 1.1
'Descricao  : Listagem de etiquetas

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0   2001/04/20 --------------------------------------------------
'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 56 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
PrWIN AJT_B, 0.0, 0.0                  'posicao base
PrWIN COR_F, 15                        'cor de fundo 
PrWIN AJT_F, 56.7,  56.7                   'ajuste para milimetros
PrWIN AJT_D,    0,  0              'deslocamento de ajuste 
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   'definicoes da etiqueta
'------------------------------------------------------------------------------

'ajuste global da folha 
AjAltura=30
AjLargura=-800


EtqCol=4                              'numero de colunas 
EtqLin=14                             'numero de linhas 

EtqLargura=53                         'largura etiqueta
EtqAltura=20                          'altura etiqueta

'margem detro da etiqueta
MargemLargura=0                       'margem esquerda (dentro da etiqueta)
MargemAltura=0                        'margem superior (dentro da etiqueta)


'preparar impressao
Col=MemNum(8)                         'coluna inicial
Lin=MemNum(9)                         'linha inicial
end sub



SUB Etg_Lin 'linha
Col=Col+1
if Col>EtqCol-1 then
  col=0
  Lin=Lin+1
end if

If Lin=EtqLin then
  PrWin FP
  Col=0
  Lin=0
end if


'posicao impressao da etiqueta 
Coluna=Col*EtqLargura
Linha=Lin*EtqAltura


'=========================================================================
' Definir  etiqueta
'=========================================================================
'PrWIN AJT_B,   Coluna+MArgemLargura ,Linha+MargemAltura                          'posicao base
PrWIN AJT_B,   Coluna+MArgemLargura+ajtLargura ,Linha+MargemAltura+AjtAltura                          'posicao base
PrWIN GR_ME, 0                                        'modo de enchimento

PrWIN FON, 8, 1                                       'activar fonte

PrWIN TX_N, 0  ,  0,StcCodFrm$(Stc_Mst_Art$)
PrWIN TX_N, 0  ,  3,Stc_Mst_Nome1$

'PrWIN FON, 10, 1                       'activar fonte
PrWIN CBAR, 0   ,  7,"EAN13",8,0.4,Stc_Mst_CodBar$
PrWIN TX_NP,0   ,  16,"N",Stc_Mst_CodBar$


'tx$=+FrmNum$(11.2,Stc_Mst_Pv1)+ "  Eur"
'PrWIN TX_N, 0   ,  25,tx$

'PrWIN TX_NP,0     ,  50,"N",@EmpNome
end sub



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

##
