'Nome       : Eps_L60.etq
'Tipo       : LST
'Data       : 2005/03/16
'Versao     : 1.0
'Descricao  : Listagem de etiquetas em EPSON TM L90

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


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=StcEtq1
Nome                       [DocNom]=EtqTx,Etiqueta
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=NULA
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 - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=StcEtq1
Nome                       [DocNom]=EtqTxa,Ajustar inicio impressao
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=NULA
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_CabA
Listar linhas               [FxLIN]=Etq_LinA
Listar fim                  [FxFIM]=Etq_FimA
##



'==============================================================================
#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$
Preco    = FrmNum$(10.2,Stc_Mst_Pv1)+"e"


##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB FxIni 'funcao de inicializacao
end sub


SUB FxFim 'funcao de finalizacao
end sub


SUB Lst_AJT
end sub


'- Etiqueta ------------------------------------------------------------------
SUB Etq_CabIni 'inicializar
end sub


Sub Etq_LinA  'linha em branco para ajuste
?
end sub


Sub Etq_Cab
print chr$(27)+"@";                          'inicializar impressora
end sub


SUB Etq_Lin 'linha
sl$=chr$(13)                                'salto de linha


'codigo de barras
cbar$=""
cbar$=cbar$+chr$(29)+"H"+chr$(2)
cbar$=cbar$+chr$(29)+"f"+chr$(1)             '?
cbar$=cbar$+chr$(29)+"h"+chr$(40)            'altura codigo de barras
cbar$=cbar$+chr$(29)+"w"+chr$(2)             'largura codigo barras
cbar$=cbar$+chr$(29)+"k"+chr$(2)             'iniciar codigo de barras
cbar$=cbar$+left$(Stc_Mst_codbar$,13)        'codigo de barras
cbar$=cbar$+chr$(0)                          'terminar codigo barras
cbar$=cbar$+chr$(29)+"J"+chr$(5)             '?



'print chr$(27)+"a0"                        'centrar texto esquerda
'print chr$(27)+"a1"                        'centrar texto 

print chr$(27)+"M1"                        'tipo de fonte


'efectuar impressao

?@nom1                             'nome
?P.V.P:@Preco                      'preco
print cbar$                        'codigo de barras


'ajustar fim de etiqueta
'print sl$                                      'linha ajuste
'print sl$                                      'linha ajuste
'print sl$                                      'linha ajuste
'print sl$                                      'linha ajuste

end sub


##
