'Nome       : FREMUN.STD
'Tipo       : LST
'Data       : 2004/10/06
'Versao     : 1.0
'Descricao  : Folha de remuneracoes guine

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


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=Fremun_G,Folha de Remuneracoes

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=37
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Listar resumo              [DocEsp]=LstRes=0
Ordenacao                  [DocEsp]=ORD=TRB

'funcoes de listagem
Listar cabecalho            [FxCAB]=Frm_CabG
Listar linhas               [FxLIN]=Frm_LinG
Listar fim                  [FxFIM]=Frm_FimG
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag         = Doc_CntPag
Data        = FrmVal$(Sig_DtHoje,45,0)
lin=       doc_cntlin


Trb       = Gpe_Mst_Trb$
Nome      = Gpe_Mst_Nome$
trbCat    = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
Vbase     = GpeFrmMoe$("",10,gpe_mst_vbase)
renda     = gpeFrmMoe$("",10,Gpesomacmv("","111",0,"V"))
chefia    = gpeFrmMoe$("",10,Gpesomacmv("","112",0,"V"))
horario   = gpeFrmMoe$("",10,Gpesomacmv("","113",0,"V"))

abonos    = GpeFrmMoe$("",10,GpeAcmSal("ABO"))
faltas    = GpeFrmMoe$("",10,Gpesomacmv("","410",0,"V"))
iprof     = GpeFrmMoe$("",10,Gpesomacmv("","702",0,"V"))
iselo     = GpeFrmMoe$("",10,Gpesomacmv("","703",0,"V"))
ProvSoc   = GpeFrmMoe$("",10,Gpesomacmv("","704",0,"V"))
Vales     = GpefrmMoe$("",10,Gpesomacmv("","501",0,"V"))
descontos = GpeFrmMoe$("",10,GpeAcmSal("DES"))
valrec    = GpeFrmMoe$("",10,GpeAcmSal("SAL"))

tabonos    = GpeFrmMoe$("",10,total(abonos))
tfaltas    = GpeFrmMoe$("",10,total(faltas))
tiprof     = GpeFrmMoe$("",10,total(iprof))
tiselo     = GpeFrmMoe$("",10,total(iselo))
tProvSoc   = GpeFrmMoe$("",10,total(provsoc))
tVales     = GpefrmMoe$("",10,total(vales))
tdescontos = GpeFrmMoe$("",10,total(descontos))

tvalrec    = GpeFrmMoe$("",10,total(valrec))

##


#INC
Funcoes comuns                 =[SIG_Dir.Div],LsComVar.Std
##


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

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


'-----------------------------------------------------------------------------
Sub Frm_CabGIni
'-----------------------------------------------------------------------------
fx=PrtOri("L")
margem=5
end sub


'-----------------------------------------------------------------------------
Sub Frm_CabG
'-----------------------------------------------------------------------------
Titulo$="Folha de Remunerações"
Call SigCabNor              

esp=17
Col1=0
Col2=53

Col3=col2+20         'valor base
Col4=col3+esp         'subsidio renda
Col5=col4+esp         'chefia
Col6=col5+esp         'isencao horario
Col7=col6+esp         'salario liquido

Col8=col7+esp         'faltas
Col9=col8+esp           'imposto profissional
Col10=col9+esp          'selo
Col11=col10+esp         'providencia social
Col12=col11+esp         'desconto vales
Col13=col12+esp         'total descontos
Col14=col13+esp         'liquido receber
Col15=col14+esp         'liquido receber
ColMax=Col15            'coluna maxima

Lin=0
lin2=4
PrWIN IMG_F, 1, VarTx$("[SIG_DIR.DIV],Logoaudi.bmp","R")     'imagem (logotipo)
PrWIN IMG_V,1, 0, -10, 70, 15                  'imagem (logotipo)
PrWIN AJT_B,  Margem, 27                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, colmax,0               	'linha
PrWIN GR_LI, 0, 8, colmax, 8               	'linha

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte

PrWIN TX_CTR, Col1,Lin2,Col2-Col1,lin2,"Empregado"
PrWIN TX_N,   Col2,Lin2,"Categoria"
PrWIN TX_N,   Col3,Lin2,"Valor base"

PrWIN TX_CTR,   Col4, Lin,Col5, lin,"Subsidio"
PrWIN TX_CTR,   Col4,Lin2,Col5,Lin2,"Renda"

PrWIN TX_CTR,   Col5, Lin,Col6, Lin,"Subsidio
PrWIN TX_CTR,   Col5,Lin2,Col6,Lin2,"Chefia"

PrWIN TX_CTR,   Col6, Lin,Col7, Lin,"Isenção"
PrWIN TX_CTR,   Col6,Lin2,Col7,Lin2,"horaria"

PrWIN TX_CTR, Col7, Lin,Col8, Lin,"Salario"
PrWIN TX_CTR, Col7,Lin2,Col8,Lin2,"Liquido"

PrWIN TX_CTR, Col8,Lin2,Col9,Lin2,"Faltas"

PrWIN TX_CTR,  Col9, Lin,Col10, Lin,"Imposto"
PrWIN TX_CTR,  Col9,Lin2,Col10,Lin2,"profissional"

PrWIN TX_CTR, Col10, Lin,Col11, Lin,"Imposto
PrWIN TX_CTR, Col10,Lin2,Col11,Lin2,"selo"

PrWIN TX_CTR, Col11, Lin,Col12, Lin,"Providencia
PrWIN TX_CTR, Col11,Lin2,Col12,Lin2,"social "

PrWIN TX_CTR, Col12, Lin,Col13, Lin,"Desconto
PrWIN TX_CTR, Col12,Lin2,Col13,Lin2,"vales"

PrWIN TX_CTR, Col13, Lin,Col14, Lin,"Total"
PrWIN TX_CTR, Col13,Lin2,Col14,Lin2,"Descontos"

PrWIN TX_CTR, Col14, Lin,Col15, Lin,"Valor"
PrWIN TX_CTR, Col14,Lin2,Col15,Lin2,"receber"

PrWin COR_T, CorLin
mxl=0
inicioLinhas=32
end Sub


'-----------------------------------------------------------------------------
Sub Frm_LinG
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col1,0,@Trb
PrWIN TX_DMX,  Col1+10,0,Col2-Col1-10,@Nome
PrWIN TX_DMX,  Col2,0,Col3-Col2,@trbCat

PrWIN TX_NP,   Col3,0,"N",@Vbase
PrWIN TX_NP,   Col4,0,"N",@renda
PrWIN TX_NP,   Col5,0,"N",@chefia
PrWIN TX_NP,   Col6,0,"N",@horario
PrWIN TX_NP,   Col7,0,"N",@abonos
PrWIN TX_NP,   Col8,0,"N",@faltas

PrWIN TX_NP,   Col9,0,"N",@iprof
PrWIN TX_NP,  Col10,0,"N",@iselo
PrWIN TX_NP,  Col11,0,"N",@ProvSoc
PrWIN TX_NP,  Col12,0,"N",@Vales
PrWIN TX_NP,  Col13,0,"N",@descontos
PrWIN TX_NP,  Col14,0,"N",@valrec

PrWIN GR_LI, 0, 4, colmax, 4               	'linha separadora
mxl=mxl+1

End Sub



'-----------------------------------------------------------------------------
Sub Frm_FimGAjt
'-----------------------------------------------------------------------------
linha=doc_cntlin
linhaescrita=iniciolinhas+linha*4
PrWIN AJT_B,  Margem, linhaescrita

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0               	'linha
PrWIN GR_LI, 0, 4, ColMax,4                	'linha


PrWIN COR_T,  CorTotGer
PrWIN TX_N,  Col12,0,"listagem incompleta, continua ...."

LinPer=linhaescrita+4
Call SigLstRod


PrWin FP
End Sub


'-----------------------------------------------------------------------------
Sub Frm_FimG
'-----------------------------------------------------------------------------
linha=doc_cntlin+1
linhaescrita=iniciolinhas+linha*4

PrWIN AJT_B,  Margem, linhaescrita

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0               	'linha
PrWIN GR_LI, 0, 4, ColMax,4                	'linha


PrWIN COR_T,  CorTotGer
PrWIN TX_N,  30,0,"Totais ..."

PrWIN TX_NP,   Col7,0,"N",@tabonos
PrWIN TX_NP,   Col8,0,"N",@tfaltas
PrWIN TX_NP,   Col9,0,"N",@tiprof
PrWIN TX_NP,  Col10,0,"N",@tiselo
PrWIN TX_NP,  Col11,0,"N",@tProvSoc
PrWIN TX_NP,  Col12,0,"N",@tVales
PrWIN TX_NP,  Col13,0,"N",@tdescontos
PrWIN TX_NP,  Col14,0,"N",@tvalrec

x=TotLpz(0)                                   'azerar totalizadores

LinPer=linhaescrita+4
Call SigLstRod
PrWin FP
End Sub
##




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