'Nome       : Etiq.STD
'Tipo       : CIRC
'Data       : 2001/03/29
'Versao     : 1.0
'Descricao  : Etiquetas com moradas


'-----------------------------------------------------------------------------
' Definicao global do documento
'-----------------------------------------------------------------------------
'NOTA: O Programa, apenas mostra circulares, cujo tipo do documento seja CIRC
#DEF
Caracteres invalidos             [CarInv]=#{}
##


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
'Limites a listar                  [EspLim]=?
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=CIRC
Nome                       [DocNom]=Inst,Etiquetas
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=8
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=Lst_Lin
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=
##

'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag       = Doc_CntPag
Data      = FrmVal$(Sig_DtHoje,45,0)
Ct        = Cta_Mst_Ct$
Nome      = left$(Cta_Mst_Nome$,40)
Morada    = Cta_Ang_Morada$
CPost     = Cta_Ang_Cpost$
Local     = Cta_Ang_Local$
Grp       = Cta_Ang_Grupo$

EmpNom    = Emp_Inf_Nome$
EmpMorada = Emp_Inf_Morada$
EmpCpost  = Emp_Inf_Cpost$
EmpLoc    = Emp_Inf_Local$
EmpTel    = Emp_Inf_Telef$
##


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
SUB Lst_AJT
end sub

'- Defino do documento ----------------------------------------------------
SUB Lst_Lin
Print PrtCmd$("[10CPILN]");
?                                             #
?  @Nome                                      #
?  @Morada                                    #
?  @Local                                     #
?  @Cpost                                     #
?
'Descomentar ou comentar pontos de interrogacao tantos quantas linhas de ajuste
'entre as etiquetas seja necessarios
'?
'?
'?
'?
'?
End sub

##

