'Nome       : IMPSEC.STD
'Tipo       : LST
'Data       : 2006/07/19
'Versao     : 1.3a
'Descricao  : Imputacao a seccoes

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0a 2000/01/20 ---------------------------------------------------
'Versao base

'- Versao : 1.0b 2000/01/27 ---------------------------------------------------
'O Titulo tinha cedilhas e tiles

'- Versao : 1.0c 2000/06/28 ---------------------------------------------------
'Formatar valor consoante moeda da empresa

'- Versao : 1.0d 2000/11/14 ---------------------------------------------------
'Impressao no formato grafico

'- Versao : 1.0e 2000/12/04 ---------------------------------------------------
'Formatar valores consoante decimais indicados pelo programa

'- Versao : 1.0f 2001/03/21 ---------------------------------------------------
'Desactivar limite de seccoes

'- Versao : 1.1  2002/03/20 ---------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 1.2  2002/05/03 ---------------------------------------------------
'Correccao no total liquido

'- Versao : 1.3  2004/10/13 ---------------------------------------------------
'Encurtar margem direita

'- Versao : 1.3a 2006/??/?? ---------------------------------------------------
'Nao apresentava o codigo da seccao correcto

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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=IMPSEC
Nome                       [DocNom]=IMPSEC,Imputacao a Seccoes

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
'Limites                    [DocEsp]=LIMSEC=00000:99999

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_Lin ; Sec ; Abo ; Des ; Div ; Tse
Listar fim                  [FxFIM]=Lst_Fim
##


#DOC
Tipo                       [DocTip]=IMPSEC
Nome                       [DocNom]=IMPSEC_G,Imputacao a Seccoes

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
'Limites                    [DocEsp]=LIMSEC=00000:99999

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabG
Listar linhas               [FxLIN]=Lst_LinG ; Sec ; Abo ; Des ; Div ; Tse
Listar fim                  [FxFIM]=Lst_FimG
##

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

'seccao
Sec      = GpeCodFrm$("SEC",Gpe_Acm_Cod$)
SecNome  = GpeTabCon$("SEC",Gpe_Acm_Cod$,"DESC")

'codigo
Cmv      = Gpe_Cmv_Cod$
Descr    = Gpe_Cmv_Descr$
Hor      = FrmVal$(GpeLstCmvTot("Q",Gpe_Cmv_Cod$),20,-5.2)
Abo      = GpeFrmMoe$("",8,GpeLstCmvTot("V",Gpe_Cmv_Cod$))
Des      = GpeFrmMoe$("",8,GpeLstCmvTot("V",Gpe_Cmv_Cod$))
Div      = GpeFrmMoe$("",8,GpeLstCmvTot("V",Gpe_Cmv_Cod$))

'totais
Thor     = FrmVal$(Total(Hor),21,-5.2)
TAbo     = GpeFrmMoe$("",8,Total(Abo))
TDes     = GpeFrmMoe$("",8,Total(Des))
TDiv     = GpeFrmMoe$("",8,Total(Div))
TLiq     = GpeFrmMoe$("",8,Total(Abo)-Total(Des))
##

#INC
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
Sub Lst_Cab
Print PrtCmd$("[10CPILN]");
FxDiv LstIde,10CPI,1
Print PrtCmd$("[10CPILN]");
?                    #
?                      @LstTit                                                 #
?
?Data : @Data                                                      Folha No: @Pag
?================================================================================
?|Codigo|     Descricao                 | Quant.  | Abonos  | Descon  |Diversos |
?================================================================================
End Sub


Sub Lst_LinSec
?|@Sec  | @SecNome                      |         |         |         |         |
End Sub


Sub Lst_LinAbo
?| @Cmv | @Descr                        |@Hor     |@Abo     |         |         |
End Sub


Sub Lst_LinDes
?| @Cmv | @Descr                        |@Hor     |         |@Des     |         |
End Sub


Sub Lst_LinDiv
?| @Cmv | @Descr                        |         |         |         |@Div     |
End Sub


Sub Lst_LinTse
?|      | Total da seccao :             |@THor    |@TAbo    |@TDes    |@TDiv    |
?|      | Total Liquido                 |         |         |         |@TLiq    |
?|      |                               |         |         |         |         |
x=TotLpz(0)           'azerar totais
End Sub


Sub Lst_Fim
?================================================================================
FxDiv LstPer,SP
End Sub

'-(Modo Grafico)-----------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub


Sub Lst_CabG
Call SigLstCab
PrWIN AJT_B,  Margem, 30                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
PrWIN GR_LI, 0, 5, MargemD, 5               	'linha

Col1=0
Col2=20
Col3=75
esp=32
Col4=Col3+(esp*1)
Col5=Col3+(esp*2)
Col6=Col3+(esp*3)
Col7=margemd

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN TX_N,  Col1,0,"Código"
PrWIN TX_N,  Col2,0,"Descrição"
PrWIN TX_N,  Col3,0,"Quantidade"
PrWIN TX_N,  Col4,0,"Abonos"
PrWIN TX_N,  Col5,0,"Descontos"
PrWIN TX_N,  Col6,0,"Diversos"
PrWIN COR_T,  Corlin                            'cor de linha
End Sub


Sub Lst_LinGSec
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN AJT_B,  Margem, 32+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col1,0,@Sec
PrWIN TX_N,    Col2,0,@SecNome
PrWIN COR_T,  Corlin                            'cor de titulo
End Sub


Sub Lst_LinGAbo
PrWIN AJT_B,  Margem, 32+Doc_CntLin*4          	'posicao base
PrWIN TX_CTR,  Col1,0,Col2,0,@Cmv
PrWIN TX_DMX,  Col2,0,Col3-Col2,@Descr
PrWIN TX_NP,    Col3,0,"N",@Hor
PrWIN TX_NP,    Col4,0,"N",@Abo
End Sub


Sub Lst_LinGDes
PrWIN AJT_B,  Margem, 32+Doc_CntLin*4          	'posicao base
PrWIN TX_CTR,  Col1,0,Col2,0,@Cmv
PrWIN TX_DMX,  Col2,0,Col3-Col2,@Descr
PrWIN TX_NP,    Col3,0,"N",@Hor
PrWIN TX_NP,    Col5,0,"N",@Des
End Sub


Sub Lst_LinGDiv
PrWIN AJT_B,  Margem, 32+Doc_CntLin*4          	'posicao base
PrWIN TX_CTR,  Col1,0,Col2,0,@Cmv
PrWIN TX_DMX,  Col2,0,Col3-Col2,@Descr
PrWIN TX_NP,    Col3,0,"N",@Hor
PrWIN TX_NP,    Col6,0,"N",@Div
End Sub


Sub Lst_LinGTse
PrWin Cor_T, CorTotGer
PrWIN AJT_B,  Margem, 32+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col2,0,"Total da secção :"
PrWIN TX_N,    Col2,4,"Total Liquido"
PrWIN TX_NP,    Col3,0,"N",@THor
PrWIN TX_NP,    Col4,0,"N",@TAbo
PrWIN TX_NP,    Col5,0,"N",@TDes
PrWIN TX_NP,    Col6,0,"N",@TDiv
PrWIN TX_NP,    Col6,4,"N",@TLiq
tmp=CntLin("INC",1)                             'acertar contador linhas
x=TotLpz(0)                        'azerar totais
End Sub


Sub Lst_FimG
PrWIN AJT_B,  Margem, 265          	'posicao base
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
Call SigLstFim
PrWin FP
End Sub
##

#INC
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##


