'Nome       : Circ_Eur.STD
'Tipo       : CIRC
'Data       : 1998/03/18
'Versao     : 1.0
'Descricao  : Pedido de Facturas em Euro


'-----------------------------------------------------------------------------
' 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]=CIRC,Facturas em Euro
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
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


'- Pedido de facturas com valor em euros -------------------------------------
SUB Lst_Lin
Print PrtCmd$("[10CPILD]");
?@EmpNom                                                                    #
Print PrtCmd$("[16CPILN]");
?@EmpMorada                                                                 #
?@EmpLoc                                                                    #
?@EmpCpost                                                                  #
?
?                                       
?                                     @Grp  @Ct                             #            
?                                     @Nome                                 #
?                                     @Morada                               #
?                                     @Cpost                                #
?
?
?

'adicionar linhas em branco
For n%=1 to 10
?
Next
?                            @Data                                          #
?  Exmo. Srs
?
?        Devido à proximidade da entrada no Euro no sistema monetário
?      Português, seria do vosso melhor interesse que a partir do dia
?      1 de Agosto de 1999, nos documentos por vós enviados, estivesse
?      mencionado o valor em Euros.
?
?
?
?
?                                              A Gerência                    
Print PrtCmd$("[SP]");
End sub