'Nome       : Folha65.etq
'Tipo       : LST
'Data       : 2014/05/29
'Versao     : 1.1
'Descricao  : Listagem de etiquetas

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.1a   ____/__/__ -------------------------------------------------
'Usar fim de pagina intermedia para poder listar para PDF

'- 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 65 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     = left$(Stc_Mst_Nome1$,20)
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
'nada a executar
end sub


'==============================================================================
'- [GRF] - Listar em modo grafico ---------------------------------------------
'==============================================================================
SUB Etg_CabIni 'inicializar
'nada a executar
end sub

SUB Etg_CabFim 'terminar
'nada a executar
end sub


'------------------------------------------------------------------------------
'- [GRF] - Etiqueta - Folha de 65 ---------------------------------------------
'------------------------------------------------------------------------------
'ajuste global da folha 
AjAltura=11
AjLargura=-800

EtqCol=5                              'numero de colunas 
EtqLin=13                             'numero de linhas 

EtqLargura=38                         'largura etiqueta
EtqAltura=21.3                        'altura etiqueta

'margem detro da etiqueta
MargemLargura=11                      '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                          'actualizar coluna
cmx = EtqCol - 1                       'coluna maxima

if Col > cmx then                      'ultrapassou numero de colunas permitido
   col = 0                             'inicializar coluna
   Lin = Lin + 1                       'actualizar linha
end if

If Lin = EtqLin then                   'pagina completa ?
   PrWin FPI                           'fim de pagina intermedia
   Col = 0                             'limpar coluna
   Lin = 0                             'limpar linha
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+10                         'posicao base
PrWIN GR_ME, 0                                        'modo de enchimento

PrWIN FON, 8, 1                                       'activar fonte

tx$=FrmNum$(10.2,Stc_Mst_Pv1)+"€"                     'formatar preco
PrWIN TX_N, 0  ,  0,StcCodFrm$(Stc_Mst_Art$)+tx$      'codigo barras+preco
PrWIN FON, 5, 1 
PrWIN TX_N, 0  ,  3,Stc_Mst_Nome1$                    'nome artigo
PrWIN FON, 8, 1 

PrWIN CBAR, 0   ,  7,"EAN13",8,0.3,Stc_Mst_CodBar$    'codigo barras
PrWIN TX_NP,0   ,  16,"N",Stc_Mst_CodBar$             'codigo barras
end sub


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