'Nome       : Godex.etq
'Tipo       : LST
'Data       : 2004/12/03
'Versao     : 1.0
'Descricao  : Ovation2 Thermal

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


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


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


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

'formato
Impressora                 [DocPrt]=
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]=Ean13_Cab
Listar linhas               [FxLIN]=Ean13_Lin
Listar fim                  [FxFIM]=Ean13_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
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
SUB FxIni 'funcao de inicializacao
end sub


SUB FxFim 'funcao de finalizacao
end sub


SUB Lst_AJT
end sub


'- Etiqueta EAN 13 -----------------------------------------------------------
SUB Ean13_CabIni 'inicializar
end sub


SUB Ean13_Cab 'cabecalho
end sub

'лллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
'Usando a fonte 2, cada linha mede 0010
'exemplo:
'A primeira linha etiqueta sera a 0100
'A segunda  linha etiqueta sera a 0090
'A terceira linha etiqueta sera a 0080
'A quarta   linha etiqueta sera a 0070

'A antepenultima linha da etiqueta sera a 0020
'A     penultima linha da etiqueta sera a 0010
'A        ultima linha da etiqueta sera a 0000
'лллллллллллллллллллллллллллллллллллллллллллллллллллллллллл


Sub Ean13_Lin
'iniciar etiqueta
print chr$(2)+"L"+chr$(13)                   

'tamanho do dot da impressao
print "D11"+chr$(13)

'impressao de texto
texto$ = stc_mst_nome1$
fonte$="3"
coluna$ = "0050"
linha$ = "0090"
call print_tx()

'impressao de texto
texto$ = stc_mst_nome2$
fonte$="2"
coluna$ = "0050"
linha$ = "0080"
call print_tx()

'impressao de texto
texto$ = "Preco venda:"+ FrmNum$(8.2,Stc_Mst_Pv1)
fonte$="3"
coluna$ = "0050"
linha$ = "0060"
call print_tx()

'impressao codigo barras
txv$=stc_mst_codbar$
altura$="030"
linha$="0000"
coluna$="0020"
print "1A61"+altura$+linha$+coluna$+txv$+chr$(13)


'terminar etiqueta
print "E"
end sub


SUB Ean13_Fim 'fim de listagem
'Print PrtCmd$("[SP]");
end sub

Sub Print_tx
print "1"+fonte$+"11000"+linha$+coluna$+texto$+chr$(13)
end sub

##

