'Nome       : LsComPgm.std
'Tipo       : LST
'Data       : 2003/10/10
'Versao     : 1.4
'Descricao  : Dados comumns para listagens - Zona PGM

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

'- Versao : 1.1  2002/04/16 ---------------------------------------------------
'Correcao nas margens da funcao JanelaCarta

'- Versao : 1.2  2002/09/16 ---------------------------------------------------
'Forcar cor de fundo a 15 para limpeza de folha na pre-vizualizacao
'alteracao na posicao da linha da personalizacao no rodape

'- Versao : 1.3  2003/01/30 ---------------------------------------------------
'Forcar cor de fundo a 15 com PrWin Cor_F, na funcao SigLstCab

'- Versao : 1.4  2003/??/?? ---------------------------------------------------
'Forcar cor de fundo a 15 com PrWin Cor_F, na funcao SigCabNor



'------------------------------------------------------------------------------
#PGM - Programa/Funcoes
'------------------------------------------------------------------------------
'---------------------------------------------------------->'Comentario (61)
'------------------------------------->'Comentario (40)

Sub SigLstIni 'inicializacao de parametros para listagem grafica
'definicao de cores
CorPer=0					'personalizacao (0 preto)
CorTotGer=1					'total geral		
CorTitLst=1					'titulo de listagem
CorTit=1					'titulos (Movimentos)
CorLin=0					'cor de linha (movimentos)
CorTraco=1					'cor de traco
CorEmpMorada=0                                  'morada da emrpesa
CorJanelaCarta=0                                'janela de carta
SigCabNorOpcTit=1      'opcao para origem do titulo na funcao de cabecalho normal
'1 - MemTxt(1)
'2 - Titulo$

'posicoes de linhas
LinPer=274
LinhaJanelaCarta=30

'margens
Margem=10		    			'margem do papel esquerda
MargemD=202		    			'margem do papel direita

MargemJanelaCarta=Margem+90

'tamanho de fontes
FntEmpMorada=10                                  'morada da emrpesa
FntJanelaCarta=12                                'janela da carta

'call CorPrpUso                                  'preparar cores

PrWIN AJT_F, 56.7,  56.7                         'ajuste para milimetros
PrWIN ET,  2                                     'espessura de traco
PrWIN COR_B, 15                                  'cor de fundo
end sub


Sub SigCabEmpNome 'cabecalho com nme de empresa e titulo
PrWIN AJT_B ,  Margem, 11                         'posicao base
PrWin COR_T ,  CorTit
PrWIN FON   ,       9,  1                         'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")    'nome da empresa
PrWIN FON   ,      12,  1                         'activar fonte
PrWin FON, "BOLD+"                                'desactivar bold
PrWIN TX_CTR,       0,  5, MargemD, 5,Titulo$     'titulo centrado
PrWin FON, "BOLD-"                                'desactivar bold
end Sub


Sub SigCabNor 'listar cabecalho normal
PrWIN COR_F, 15                                  'cor de fundo
PrWIN AJT_B ,  Margem, 11                          'posicao base
PrWin COR_T ,  CorTit
PrWIN FON   ,       9,  1                          'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")     'nome da empresa
PrWIN FON   ,      12,  1                          'activar fonte
PrWin FON, "BOLD+"                                 'desactivar bold
if SigCabNorOpcTit=1 then
  PrWIN TX_CTR,       0,  5, MargemD, 5,MemTxt$(1) 'titulo centrado
else
  PrWIN TX_CTR,       0,  5, MargemD, 5,Titulo$    'titulo centrado
end if
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN FON  ,    9                                  'activar fonte
PrWIN TX_N ,    0, 10,"Data :"                     'data
PrWIN TX_N ,  170, 10,"Folha No :"                 'folha

PrWin COR_T ,  CorLin
PrWIN TX_N,   11, 10,@DataExt                      'listar data
PrWIN TX_N,  185, 10,@Pag                          'numero da folha
End Sub



Sub SigCabCxCor  'cabecalho com caixas e cor
PrWIN AJT_B,  Margem, 10                            'posicao base
PrWIN COR_T, 1                                      'cor de traco (azul)

PrWIN FON  ,   12,   1                              'activar fonte
PrWin FON, "BOLD+"                                  'desactivar bold
PrWIN TX_N,     2,   1,@Tit                         'titulo
PrWin FON, "BOLD-"                                  'desactivar bold
PrWIN FON  ,   10,   1                              'activar fonte
PrWIN GR_CX,    0,  10, 125, 17  ,Traco             'caixa da empresa

PrWin TX_N,    20,  11,SigLstInf$("EMPIDE")         'nome da empresa
PrWIN GR_CX,  127,   0, 187, 7   ,Traco             'caixa da pagina
PrWIN TX_N,   145,   1, @Pag                        'numero de pagina
PrWIN GR_CX,  127,  10, 187, 17 ,Traco              'caixa da data
PrWIN TX_N,   138,  11, @DataExt                    'listar data

PrWIN COR_T,0                                       'cor preto
PrWIN TX_N,     2,  11,"Empresa"                    'empresa
PrWIN TX_N,   129,   1,"P�gina"                     'pagina
PrWIN TX_N,   128,  11,"Data"                       'data
End sub

Sub SigLstFim 'funcao para fim de listagem
call SigRod
PrWin FP
end sub

Sub SigLstCab 'funcao para impressao de cabecalho
PrWIN COR_F, 15                                  'cor de fundo
'call SigCabCxCor
call SigCabNor
end sub


Sub SigLstRod 'funcao para listar rodape
call SigRod
end sub


Sub SigRod   'Rodape com personalizacao
PrWIN AJT_B,  Margem, LinPer                      'posicao base
PrWIN COR_T, CorPer                               'cor de traco (azul)
PrWIN FON  ,   8,   1                             'activar fonte
PrWin TX_N,    5,   0,SigLstInf$("PERSON")        'personalizacao
End sub


SUB CorPrpUso 'preparar uso de cores
x1=  -1000                                        'X1
y1=  -1000                                        'Y1
x2=x1+1                                           'X2
y2=y1+1                                           'Y2

PrWIN GR_CE, x1,y1,x2,y2,1                        'caixa com enchimento
end sub


Sub SigEmpMorada  'Morada da empresa
PrWIN AJT_B,  Margem, 5                           'posicao base
PrWIN COR_T,  CorEmpMorada                        'cor para morada
PrWIN FON,  FntEmpMorada                          'activar fonte
PrWin FON, "BOLD+"                                'desactivar bold
PrWIN TX_N,     0,   0,@EmpNome                   'designacao
PrWin FON, "BOLD-"                                'desactivar bold
PrWIN TX_N,     0,   5,@EmpMorada                 'morada
PrWIN TX_N,     0,   10,@EmpLocal                 'localidade
PrWIN TX_N,     0,   15,@EmpCpost                 'cod postal
End Sub


Sub JanelaCarta  'Dados do cliente em janela de carta
PrWIN AJT_B,  MargemJanelaCarta, LinhaJanelaCarta    'posicao base
PrWIN COR_T,  CorJanelaCarta                         'cor para morada

PrWIN FON  ,  FntJanelaCarta                         'activar fonte
PrWin FON, "BOLD+"                                   'desactivar bold
PrWIN TX_N,     0,    0,@CtNome                      'morada
PrWin FON, "BOLD-"                                   'desactivar bold
PrWIN TX_N,     0,    5,@CtMorada                    'morada
PrWIN TX_N,     0,   10,@CtLocal                     'localidade
PrWIN TX_N,     0,   15,@CtCpost                     'cod postal

PrWIN AJT_B,  Margem, 30                             'posicao base
PrWIN TX_N,     0,   15,@CtCod                       'conta
End Sub

Sub JanelaCarta2  'Informacao em  janela de carta 
PrWIN AJT_B,  MargemJanelaCarta, LinhaJanelaCarta    'posicao base
PrWIN COR_T,  CorJanelaCarta                         'cor para morada

PrWIN FON  ,  FntJanelaCarta                         'activar fonte
PrWin FON, "BOLD+"                                   'desactivar bold
PrWIN TX_N,     0,    0,@JanelaCartaL1               'morada
PrWin FON, "BOLD-"                                   'desactivar bold
PrWIN TX_N,     0,    5,@JanelaCartaL2               'localidade
PrWIN TX_N,     0,   10,@JanelaCartaL3               'cod postal
PrWIN TX_N,     0,   15,@JanelaCartaL4               'cod postal
End Sub

Sub DataPag_A4  'data e folha para tamanho A4
PrWIN FON  ,    9                                    'activar fonte
PrWIN COR_T,  CorTitLst                              'cor de titulo
PrWIN TX_N ,    0, 10,"Data :"                       'data
PrWIN TX_N ,  170, 10,"Folha No :"                   'folha
PrWin COR_T ,  CorLin                                'cor para linha
PrWIN TX_N,   11, 10,@DataExt                        'listar data
PrWIN TX_N,  185, 10,@Pag                            'numero da folha
end sub

Sub MeioPaginaA4 'marcar meio de folha A4
PrWIN AJT_B,0,148                      		     'posicao base
PrWIN GR_LI,     0,  0, 5, 0            	     'linha
End sub
##


