'Nome       : Tlp2742.etq
'Tipo       : LST
'Data       : 2002/05/06
'Versao     : 1.0
'Descricao  : Listagem de etiquetas - ETRON TLP 2742

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


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=StcEtq
Nome                       [DocNom]=EtqTx,Etiqueta (TLP 2742)
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]=Etq_Cab
Listar linhas               [FxLIN]=Etq_Lin
Listar fim                  [FxFIM]=Etq_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=StcEtq
Nome                       [DocNom]=EtqTx,Etiqueta (TLP 2742)
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]=Etq_Cab
Listar linhas               [FxLIN]=Etq_Lin
Listar fim                  [FxFIM]=Etq_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
'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 

'modo TLP 2742
spLin$ = chr$(13)                      'separador de linha
cAspa$ = string$(5,34)                 'caractere aspa
end sub


SUB FxFim 'funcao de finalizacao
'PrWIN FON, "REG"                       'limpar registo de fontes
end sub


SUB Lst_AJT
end sub


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


SUB Etq_Cab 'cabecalho
end sub


SUB Etq_Lin 'linha
'preparar comandos
cmdLpz$= "N" + spLin$                  'limpar buffer
cmdOri$="OD" + spLin$                  'orientacao de escrita
cmdDim$= "Q109,24" + spLin$            'dimensao da etiqueta
cmdPrt$= "P1" + spLin$                 'imprimir
taxa$=" + Iva Taxa "+IvaTax(Stc_Mst_CodIva)

'preparar dados a listar
'
artIde$="A200,5,0,3,1,1,N," + cAspa$ + Stc_Mst_Art$ + cAspa$ + spLin$
artNom$="A200,35,0,3,1,1,N," + cAspa$ + Stc_Mst_Nome1$ + cAspa$ + spLin$
artPvp$="A200,65,0,3,1,1,N," + cAspa$ + "PVP:"+ FrmNum$(4.2,Stc_Mst_Pv1) + taxa$ + cAspa$ + spLin$
artCba$="B220,95,0,E30,3,7,70,B,"+ cAspa$ +Stc_Mst_CodBar$+ cAspa$ + spLin$


'listar etiqueta
'print cmdOri$                          'orientacao
print cmdLpz$                          'limpar buffer
'print cmdDim$                          'dimensao

print artIde$                          'identificacai do artigo
print artNom$                          'identificacai do artigo
print artPvp$                          'preco de venda
print artCba$                          'codigo de barras

print cmdPrt$                          'imprimir
end sub



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

##
