'Nome       : ImoBem.std
'Tipo       : LST WIN
'Data       : 2006/10/19
'Versao     : 2.0
'Descricao  : Listagem de Bens

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0   2006/10/19 --------------------------------------------------
'listagem em modo gráfico

'- Versao : 1.0a  2000/11/30 --------------------------------------------------
'Alteracao do aspecto das listagens

'- Versao : 1.0   1999/09/22 --------------------------------------------------
'Versao base


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


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


'==============================================================================
#DOC - Modo TEXTO/DOS
'==============================================================================
Tipo                       [DocTip]=LstBem
Nome                       [DocNom]=BemDos,Listagem de Bens (Texto)
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemDos_Cab
Listar linhas               [FxLIN]=BemDos_Lin;Inf
Listar fim                  [FxFIM]=BemDos_Fim
##


'==============================================================================
#DOC - Modo Pagina Texto
'==============================================================================
Tipo                       [DocTip]=LstBem
Nome                       [DocNom]=BemPag,Listagem de Bens - PAG/Texto
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocPrt]=PAG_T
'Saida/Impressora           [DocPrt]=PAG_T,PRV
Linhas por pagina          [DocLpg]=55
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemPag_Cab
Listar linhas               [FxLIN]=BemPag_Lin;Inf
Listar fim                  [FxFIM]=BemPag_Fim
##


'==============================================================================
#DOC - Modo WINDOWS
'==============================================================================
Tipo                       [DocTip]=LstBem
Nome                       [DocNom]=BemWin,Listagem de Bens (Gráfico)
Vias                       [DocVia]=
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocPrt]=PAG_W
'Saida/Impressora           [DocPrt]=PAG_W,PRV
Linhas por pagina          [DocLpg]=45
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemWin_Cab
Listar linhas               [FxLIN]=BemWin_Lin;Inf
Listar fim                  [FxFIM]=BemWin_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

'variaveis a listar
Cod      =Imo_Mst_Cod$                
Nom      =Imo_Mst_Nome$
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'------------------------------------------------------------------------------
' Funcoes para inicializacao
'------------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
'modo WIN
PrWIN AJT_F, 56.7,  56.7                                'ajuste para milimetros
PrWIN AJT_D,  0.0,   0.0                                'deslocamento de ajuste 
PrWIN IMG_F, 1, VarTx$("[SIG_DIR.DIV],OliLogo.bmp","R") 'imagem (logotipo)
PrWIN ET,  2                                            'espessura de traco 

'modo pagina
PrPAG AJT_D,  0,  0                                     'deslocamento de ajuste 
PrPAG AJT_B,  0,  0                                     'posicao base
PrPAG DIM, 70,80                                        'dimensao
PrPAG MGR, 1                                            'modo grafico

call SigLstIni
end sub


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


'------------------------------------------------------------------------------
' Listagem em modo WINDOWS
'------------------------------------------------------------------------------
SUB BemWin_CabIni 'inicializacao do documento
cabX0=  3                                          'X minimo
cabX1=  3                                          'X1
cabX2= 40                                          'X2
cabX3=140                                          'X3
cabX4=190                                          'X4
cabXm=190                                          'X maximo

cabYb=  5                                          'Y base
cabY0= 25                                          'Y minimo
cabY1= 30                                          'Y1
cabY2= 40                                          'Y2
cabYm=270                                          'Y maximo
end sub


SUB BemWin_CabFim 'finalizar documento
end sub


SUB BemWin_Cab 'cabecalho
'PrWIN COR_F, 000,000,250                           'cor de fundo RGB
PrWIN COR_F, 15                                     'cor de fundo 
PrWIN AJT_B, 0.0, 0.0                               'posicao base

'cabecalho
PrWIN FON, 10, 1                                    'activar fonte
PrWIN TX_N,cabXm-100,  5,EmpCurIde$("IDE")          'nome da empresa
PrWin FON, "BOLD+"                                  'activar bold
PrWIN FON, 18, 1                             	    'activar fonte
PrWIN TX_CTR,cabX1,cabYb,cabXm,cabY1,"Listagem de Bens"      'titulo
PrWIN FON, 10, 1                                    'activar fonte
PrWin FON, "BOLD-"                                  'desactivar bold

'data
px1=cabX1+3                                         'posicao X1
px2=px1+20                                          'posicao X2
py=cabY1-5                                          'posicao Y
PrWIN FON, 10, 1                                    'activar fonte (tamanho/numero registado)
PrWIN TX_N,px1, py,"Data :"                         'identificador
PrWIN TX_N,px2, py,FrmVal$(Sig_DtHoje,45,0)         'data

'pagina
px=cabXm-30                                         'posicao X
py=cabY1-5                                          'posicao Y
PrWIN TX_N, px, py,"Pagina :"+str$(Doc_CntPag)      'pagina


'colunas
PrWIN COR_E, 200, 200, 200                          'cor de enchimento RGB
PrWIN GR_ME, 0                                      'modo de enchimento
PrWIN GR_CE,cabX0,cabY1,cabXm,cabY2, 2              'caixa do cabecalho
PrWIN GR_CX,cabX0,cabY2,cabXm,cabYm, 2              'caixa de moldura

'PrWIN GR_LI,cabX1,cabY2,cabX1, cabYm, 2             'separador vertical
PrWIN GR_LI,cabX2,cabY1,cabX2, cabYm, 2             'separador vertical
PrWIN GR_LI,cabX3,cabY1,cabX3, cabYm, 2             'separador vertical

PrWin FON, "BOLD+"                                  'activar bold
PrWIN TX_CTR,cabX1,cabY1,cabX2,cabY2,"Codigo"       'coluna 1
PrWIN TX_CTR,cabX2,cabY1,cabX3,cabY2,"Nome"         'coluna 2
PrWIN TX_CTR,cabX3,cabY1,cabX4,cabY2,"Obervações"   'coluna 3
PrWin FON, "BOLD-"                                  'desactivar bold
end sub


SUB BemWin_Lin 'linha 
PrWIN AJT_B,  2, cabY2+Doc_CntLin*5-1               'posicao base

PrWIN TX_N,cabX1,  0,MemTxt$(51)                    'codigo
PrWIN TX_N,cabX2,  0,MemTxt$(52)                    'nome

'PrWIN TX_N,cabX3,  0,Doc_CntLin                     'contador de linhas - DEBUG
end sub


SUB BemWin_Fim 'fim de pagina
PrWIN FP                                            'fim de pagina
end sub


'------------------------------------------------------------------------------
' Listagem em modo Pagina/Texto
'------------------------------------------------------------------------------
SUB BemPag_CabIni 'inicializacao do documento
end sub


SUB BemWin_PagFim 'finalizar documento
end sub


SUB BemPag_Cab 'cabecalho
PrPAG MGR,  1                                       'modo grafico
PrPAG MGR,  2                                       'modo grafico
PrPAG MGR,  0                                       'modo grafico

PrPAG AJT_B,  0,  0                                 'posicao base
'PrPAG CMD, 1, 10CPI                                'comando
PrPAG GR_CX, 1, 1, 80, 64                           'moldura
PrPAG TX_CTR, 1,  3, 80, 3,"Listagem de Bens"       'titulo

'data
PrPAG TX_N,   2,   5,"Data :"                       'identificador
PrPAG TX_N,   9,   5, FrmVal$(Sig_DtHoje,45,0)      'data

'pagina
PrPAG TX_N,  67,   5,"Pagina :"                     'identificador
PrPAG TX_N,  75,   5,Doc_CntPag                     'pagina


'titulo para colunas
PrPAG GR_LHV, "H",  1,  6, 80                       'linha
PrPAG TX_CTR,  1,   7, 20,  7,"Codigo"              'titulo
PrPAG TX_CTR, 20,   7, 80,  7,"Nome"                'titulo
PrPAG GR_LHV, "H",  1,  8, 80                       'linha
PrPAG GR_LHV, "V", 20,  6, 59                       'linha
end sub


SUB BemPag_Lin 'linha 
PrPAG AJT_B,  0,   8+Doc_CntLin                     'posicao base

PrPAG TX_N,    3,  0,@Cod                           'codigo
PrPAG TX_N,   22,  0,@Nom                           'nome

'PrPAG TX_N,   70,  0,Doc_CntLin                     'contador de linhas - DEBUG
end sub


SUB BemPag_Fim 'fim de pagina
PrPAG FP                                            'fim de pagina
end sub


'------------------------------------------------------------------------------
' Listagem em modo TEXTO/DOS
'------------------------------------------------------------------------------
SUB BemDos_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI","Listagem de Bens")
?Data : @DataExt                                                 Folha No : @Pag#
?================================================================================
?Codigo           Nome
?================================================================================
end sub


SUB BemDos_Lin
?@Cod             @Nom                                                          #
end sub


SUB BemDos_Fim
?================================================================================
?@Tco                                                                           #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd("[SP]");
end sub
##

