'Nome       : Imobiliz.std
'Tipo       : LST
'Data       : 2006/09/15
'Versao     : 3.0
'Descricao  : Imobilizado

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 3.0  2006/09/15 ---------------------------------------------------
'passa a usar decimais da moeda (FrmMoe)

'- Versao : 2.0  2001/07/10 ---------------------------------------------------
'passa a usar decimais da moeda (FrmMoe)

'- Versao : 1.3  2001/05/24 ---------------------------------------------------
'correcao do valor da linha no modelo 9

'- Versao : 1.2  2001/03/13 ---------------------------------------------------
'permitir listar listar so totais normais e descontos na mesma pagima

'- Versao : 1.1  2000/02/29 ---------------------------------------------------
'usar novo formato da data

'- Versao : 1.0  1999/11/08 ---------------------------------------------------
'versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD,Imobilizado Geral

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=6I
Titulo da listagem         [DocEsp]=TIT=Imobilizado Geral
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Configuracao de colunas    [DocEsp]=COL=Vld;+
                                       +IvaCod;+
                                       +IvaVal;

'funcoes de listagem
Listar cabecalho            [FxCAB]=IMO_CAB
Listar linhas               [FxLIN]=IMO_LIN
Listar fim                  [FxFIM]=IMO_FIM
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD,Imobilizado Liberais

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=9I
Titulo da listagem         [DocEsp]=TIT=Imobilizado Liberais
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Configuracao de colunas    [DocEsp]=COL=Vld;+
                                       +IvaCod;+
                                       +IvaVal;

'funcoes de listagem
Listar cabecalho            [FxCAB]=IMO_CAB
Listar linhas               [FxLIN]=IMO_LIN
Listar fim                  [FxFIM]=IMO_FIM
##


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD_G,Imobilizado Geral


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

'parametros especificos
Modelo valido              [DocEsp]=CMO=6I
Titulo da listagem         [DocEsp]=TIT=Imobilizado Geral
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Configuracao de colunas    [DocEsp]=COL=Vld;+
                                       +IvaCod;+
                                       +IvaVal;

'funcoes de listagem
Listar cabecalho            [FxCAB]=IMOG_CAB
Listar linhas               [FxLIN]=IMOG_LIN
Listar fim                  [FxFIM]=IMOG_FIM
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD,Imobilizado Liberais

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

'parametros especificos
Modelo valido              [DocEsp]=CMO=9I
Titulo da listagem         [DocEsp]=TIT=Imobilizado Liberais
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Configuracao de colunas    [DocEsp]=COL=Vld;+
                                       +IvaCod;+
                                       +IvaVal;

'funcoes de listagem
Listar cabecalho            [FxCAB]=IMOG_CAB
Listar linhas               [FxLIN]=IMOG_LIN
Listar fim                  [FxFIM]=IMOG_FIM
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
TitLst   = TxTit$("TT=16CPI, LD, PT=40C",Memtxt$(1))
TitMod   = MemTxt$(2)
Pag      = Doc_CntPag
DataMod  = FrmVal$(Sig_DtHoje,45,0)
LstPar   = MemTxt$(20)
MoeEmp   = EmpTabCon$("MOEDA",Emp_Inf_Moeda,"NOME")
ST       = MemTxt$(52)

Reg      = FrmNum$(5,Ctb_Mov_NReg$)
Ndoc     = FrmNdo$("04",Ctb_Mov_Tdoc$,Ctb_Mov_Ndoc$)
Dtl      = FrmVal$(Ctb_Mov_Dtl,44,0)
Descr    = Left$(Ctb_Mov_Descr$,15)

Vliq     = FrmMoe$("",13,MemNum(31))
Tax      = FrmNum$(2,CtbIva$("TAX",0,Ctb_Mov_IvaCod))
Imposto  = FrmMoe$("",10,MemNum(33))

TotVl    = FrmMoe$("",13,Total(Vliq))
TotImp   = FrmMoe$("",10,Total(Imposto))

TotCmp   = FrmMoe$("",13,MemNum(40))
TotCImp  = FrmMoe$("",10,MemNum(41))

TotVnd   = FrmMoe$("",13,MemNum(45))
TotVImp  = FrmMoe$("",10,MemNum(46))
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComVar.std
##


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

Sub Imo_Cab
FxDiv LstIde,10CPI,1
?@TitLst                                                                       #
Print PrtCmd$("[10CPILN]");
'?  Mes: @LstPar                                               @TitMod          #
'? Data: @DataMod                                              Folha No : @Pag  #
?                                                             @TitMod           #
? Data: @LstPar                                               Folha No : @Pag   #
?================================================================================
?|Ordem |   Documento    |        C O M P R A / V E N D A                |Compra|
?|  de  |----------------|-----------------------------------------------|  ou  |
?|Regist| No. |   Data   |    Descrição    | Vl. Liquido |Taxa|  Imposto | Venda|
?================================================================================
End Sub


Sub Imo_Lin
Print "|";
Print @Reg;
Print Tab(8) "|";
Print @Ndoc;
Print Tab(14) "|";
Print @Dtl;
Print Tab(25) "|";
Print @Descr;
Print Tab(43) "|";
Print @Vliq;
Print Tab(57) "|";
Print @Tax;
Print Tab(62) "|";
Print @Imposto;
Print Tab(73) "|";

If Ctb_Mov_Tv$="C" then
  Print "Compra|"
Else
  Print "Venda |"
End If

End Sub


Sub Imo_Fim
?================================================================================
?    Total Geral                           |@Totvl       |    |@Totimp   |      |
?================================================================================
?    Total compras                         |@TotCmp      |    |@TotCImp  |      |
?================================================================================
?    Total Vendas                          |@TotVnd      |    |@TotVImp  |      |
?================================================================================
if @ST = "ST" then
?
else
FxDiv LstPer,SP
end if
End sub


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=263
End sub


'------------------------------------------------------------------------------------------------------------
'- Modelos (IMOBILIZADO) - Modo gráfico
'------------------------------------------------------------------------------------------------------------
SUB ImoG_Cab 'Modelos (imobilizado) - cabecalho (modo grafico)
Call SigLstCab
Lin1=1                         		'linha 1
Lin2=4                                  'linha 2
Lin3=6.5                                  'linha 3
esp=30 

TCol1 =  0
TCol2 = 20
TCol3 = 35
TCol4 = 60
TCol5 = 85
TCol6 =110
TCol7 =135
TCol8 =155
TCol9 =190
Cmax=TCol9

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWIN GR_CX,  0, 0, Cmax,10                     'caixa geral
PrWIN GR_CX, Tcol1 , 0, Tcol2 ,10               'caixa ordem de registo
PrWIN GR_CX, Tcol2 , 0, Tcol4 , 5               'caixa superior documento
PrWIN GR_CX, Tcol2 , 5, Tcol3 ,10               'caixa nº documento
PrWIN GR_CX, Tcol3 , 5, Tcol4 ,10               'caixa data documento
PrWIN GR_CX, Tcol4 , 0, Tcol8 , 5               'caixa compra/venda
PrWIN GR_CX, Tcol4 , 5, Tcol5 ,10               'caixa descricao
PrWIN GR_CX, Tcol5 , 5, TCol6 ,10               'caixa valor liquido
PrWIN GR_CX, Tcol6 , 5, Tcol7 ,10               'caixa taxa
PrWIN GR_CX, Tcol7 , 5, Tcol8 ,10               'caixa imposto
PrWIN GR_CX, Tcol8 , 0, Tcol9 ,10               'caixa compra ou venda

PrWin FON  , "BOLD+"                            'activar bold
PrWIN FON  ,   8,   1                           'activar fonte
PrWIN TX_CTR,  TCol1 ,Lin1,TCol2 ,Lin1,"Ordem"
PrWIN TX_CTR,  TCol1 ,Lin2,TCol2 ,Lin2,"de"
PrWIN TX_CTR,  TCol1 ,Lin3,TCol2 ,Lin3,"Registo"
PrWIN TX_CTR,  TCol2 ,Lin1,TCol4 ,Lin1,"Documento"
PrWIN TX_CTR,  TCol2 ,Lin3,TCol3 ,Lin3,"Nº"
PrWIN TX_CTR,  TCol3 ,Lin3,TCol4 ,Lin3,"Data"
PrWIN TX_CTR,  TCol4 ,Lin1,TCol8 ,Lin1,"COMPRA/VENDA"
PrWIN TX_CTR,  TCol4 ,Lin3,TCol5 ,Lin3,"Descrição"
PrWIN TX_CTR,  TCol5 ,Lin3,TCol6 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol6 ,Lin3,TCol7 ,Lin3,"Taxa"
PrWIN TX_CTR,  TCol7 ,Lin3,TCol8 ,Lin3,"Imposto"
PrWIN TX_CTR,  TCol8 ,Lin2,TCol9 ,Lin2,"Compra ou Venda"
PrWin FON  , "BOLD-"                            'desactivar bold

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=33
end sub


SUB ImoG_Lin 'modelos (imobilizado) - linha (modo grafico)
LCol1 =  6
LCol2 = 25
LCol3 = 40
LCol4 = 61
LCol5 = 89
LCol6 =121
LCol7 =139
LCol8 =160
LCol9 =180
Cmax=lCol9

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     LCol1 ,0          ,@Reg
PrWIN TX_N,     LCol2 ,0          ,@Ndoc
PrWIN TX_N,     LCol3 ,0          ,@Dtl
PrWIN TX_N,     LCol4 ,0          ,@Descr
PrWIN TX_NP,    LCol5 ,0      ,"N",@Vliq
PrWIN TX_NP,    LCol6 ,0      ,"N",@Tax
PrWIN TX_NP,    LCol7 ,0      ,"N",@Imposto

If Ctb_Mov_Tv$="C" then
   PrWIN TX_CTR,  TCol8 , 0,TCol9 , 0,"Compra"
Else
   PrWIN TX_CTR,  TCol8 , 0,TCol9 , 0,"Venda"
End If
end sub


SUB ImoG_Fim 'modelos (imobilizado)- final (modo grafico)
TCol1 =  0
TCol2 = 20
TCol3 = 35
TCol4 = 60
TCol5 = 85
TCol6 =110
TCol7 =135
TCol8 =155
TCol9 =190
Cmax=TCol9


PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

'caixa geral
PrWIN GR_CX, Tcol1 , -10, Tcol9 ,  0            'caixa geral
PrWIN GR_CX, Tcol1 , -10, Tcol5 ,  0            'caixa para texto
PrWIN GR_CX, Tcol5 , -10, Tcol6 ,  0            'valor liquido
PrWIN GR_CX, Tcol7 , -10, Tcol8 ,  0            'imposto

'caixa compras
PrWIN GR_CX, Tcol1 ,  -5, Tcol9 ,  0            'caixa geral
PrWIN GR_CX, Tcol1 ,  -5, Tcol5 ,  0            'caixa para texto
PrWIN GR_CX, Tcol5 ,  -5, Tcol6 ,  0            'valor liquido
PrWIN GR_CX, Tcol7 ,  -5, Tcol8 ,  0            'imposto

'caixa vendas
PrWIN GR_CX, Tcol1 ,   0, Tcol9 ,  5            'caixa geral
PrWIN GR_CX, Tcol1 ,   0, Tcol5 ,  5            'caixa para texto
PrWIN GR_CX, Tcol5 ,   0, Tcol6 ,  5            'valor liquido
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  5            'imposto

TeCol1=  6
TeCol2= 25
TeCol3= 40
TeCol4= 61
TeCol5= 89
TeCol6=121
TeCol7=139
TeCol8=160
TeCol9=180
Cmax=lCol9

PrWin FON  , "BOLD+"                            'activar bold

'total geral   
PrWIN TX_CTR,   TeCol1,-5,TeCol5,-5,"Total Geral"
PrWIN TX_NP,    TeCol5 ,-10      ,"N",@TotVl
PrWIN TX_NP,    TeCol7 ,-10      ,"N",@Totimp

'total compras
PrWIN TX_CTR,   TeCol1,-5,TeCol5,0,"Total Compras"
PrWIN TX_NP,    TeCol5 ,-5      ,"N",@TotCmp
PrWIN TX_NP,    TeCol7 ,-5      ,"N",@TotCImp

'total vendas
PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"Total Vendas"
PrWIN TX_NP,    TeCol5 ,1      ,"N",@TotVnd
PrWIN TX_NP,    TeCol7 ,1      ,"N",@TotVimp


Call SigLstRod
if @ST = "ST" then
   tmp=CntLin("INC",1)              'contar linhas
else
   PrWin FP
end if

PrWin FON  , "BOLD-"                            'desactivar bold
end sub
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##
