'Nome       : FREMUN.STD
'Tipo       : LST
'Data       : 2012/12/19
'Versao     : 1.1
'Descricao  : Folha de remuneracoes guine

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0  2011/12/19 ---------------------------------------------------
'compatibilizar totalizadores de salario com nova versao

'- Versao : 1.0  2008/08/29 ---------------------------------------------------
'ajustes graficos
'apresentar periodo no titulo
'colocar totais

'- Versao : 1.0  2008/??/?? ---------------------------------------------------
'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]=36
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Listar resumo              [DocEsp]=LstRes=0
Ordenacao                  [DocEsp]=ORD=TRB
Listar ltitulo             [DocEsp]=LSTTIT=1
Listar continuo            [DocEsp]=LSTCNT=1

'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$("",12,gpe_mst_vbase)
renda     = gpeFrmMoe$("",12,Gpesomacmv("","111",0,"V"))
chefia    = gpeFrmMoe$("",12,Gpesomacmv("","112",0,"V"))
horario   = gpeFrmMoe$("",12,Gpesomacmv("","113",0,"V"))
familia   = gpeFrmMoe$("",12,Gpesomacmv("","114",0,"V"))
tecnico   = gpeFrmMoe$("",12,Gpesomacmv("","115",0,"V"))
abonos    = GpeFrmMoe$("",12,GpeAcmSalCon("ABO"))

tVbase     = GpeFrmMoe$("",13,total(vbase))
trenda     = gpeFrmMoe$("",13,total(renda))
tchefia    = gpeFrmMoe$("",13,total(chefia))
thorario   = gpeFrmMoe$("",13,total(horario))
tfamilia   = gpeFrmMoe$("",13,total(familia))
ttecnico   = gpeFrmMoe$("",13,total(tecnico))
tabonos    = GpeFrmMoe$("",13,total(abonos))



faltas    = GpeFrmMoe$("",11,Gpesomacmv("","410",0,"V"))
iprof     = GpeFrmMoe$("",11,Gpesomacmv("","702",0,"V"))
iselo     = GpeFrmMoe$("",11,Gpesomacmv("","703",0,"V"))
ProvSoc   = GpeFrmMoe$("",11,Gpesomacmv("","704",0,"V"))
Vales     = GpefrmMoe$("",11,Gpesomacmv("","501",0,"V"))
descontos = GpeFrmMoe$("",12,GpeAcmSalCon("DES"))
valrec    = GpeFrmMoe$("",12,GpeAcmSalCon("LIQ"))

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

tvalrec    = GpeFrmMoe$("",13,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 periodo
t1$=FrmDt$("MES",Sig_DtHoje)
t2$=FrmDt$("A4",Sig_dthoje)
PeriodoLst$=t1$+" de "+t2$
end sub


'-----------------------------------------------------------------------------
Sub Frm_CabG
'-----------------------------------------------------------------------------
SigCabNorOpcTit=2
call periodo
tx$="Folha de Remunerações"
Titulo$=tx$+ " - "+PeriodoLst$

Call SigCabNor              

esp=20

Col1=0
Col1a=col1+esp
Col2=col1a+esp         'renda
Col3=col2+esp         'chefia
Col4=col3+esp         'horario
Col5=col4+esp         'familia
Col6=col5+esp         'tecnico
Col7=col6+esp         'salario liquido

esp=18

Col8=col7+esp         'faltas
Col9=col8+esp           'imposto profissional
Col10=col9+esp          'selo
Col11=col10+esp         'providencia social
Col12=col11+esp         'desconto vales

esp=20
Col13=col12+esp         'total descontos
Col14=col13+esp         'liquido receber
Col15=col14+esp         'liquido receber
ColMax=Col15            'coluna maxima

Lin=0
lin2=4
lin3=8

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_N, Col1,Lin,"Empregado"

'PrWIN TX_N,   Col4,Lin1,"Categoria"
PrWIN TX_N,   Col1,Lin2,"Valor base"

PrWIN TX_CTR,   Col1a, Lin,Col2, lin,"Subsidio"
PrWIN TX_CTR,   Col1a,Lin2,Col2,Lin2,"Renda"

PrWIN TX_CTR,   Col2, Lin,Col3, Lin,"Subsidio
PrWIN TX_CTR,   Col2,Lin2,Col3,Lin2,"Chefia"

PrWIN TX_CTR,   Col3,Lin ,Col4, Lin,"Isenção"
PrWIN TX_CTR,   Col3,Lin2,Col4,Lin2,"Horária

PrWIN TX_CTR,   Col4,Lin,Col5, Lin,"Abono"
PrWIN TX_CTR,   Col4,Lin2,Col5,Lin2,"Familia"

PrWIN TX_CTR,   Col5,Lin,Col6, Lin,"Subsídio"
PrWIN TX_CTR,   Col5,Lin2,Col6,Lin2,"Tecnicidade"

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

PrWIN TX_CTR, Col7,Lin2,Col8,Lin2,"Faltas"

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

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

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

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

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

PrWIN TX_CTR, Col13, Lin,Col14, Lin,"Valor"
PrWIN TX_CTR, Col13,Lin2,Col14,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
ln=lin2

PrWIN TX_N,    Col1,0,@Trb
PrWIN TX_N,   Col1+10,0,@Nome
PrWIN TX_N,  Col4,0,@trbCat

PrWIN TX_NP, Col1,lin2,"N",@Vbase


PrWIN TX_NP,   Col1a,ln,"N",@renda
PrWIN TX_NP,   Col2,ln,"N",@chefia
PrWIN TX_NP,   Col3,ln,"N",@horario
PrWIN TX_NP,   Col4,ln,"N",@familia
PrWIN TX_NP,   Col5,ln,"N",@tecnico
PrWIN TX_NP,   Col6,ln,"N",@abonos
PrWIN TX_NP,   Col7,ln,"N",@faltas

PrWIN TX_NP,   Col8,ln,"N",@iprof
PrWIN TX_NP,  Col9,ln,"N",@iselo
PrWIN TX_NP,  Col10,ln,"N",@ProvSoc
PrWIN TX_NP,  Col11,ln,"N",@Vales
PrWIN TX_NP,  Col12,ln,"N",@descontos
PrWIN TX_NP,  Col13-3,0,"N",@valrec

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

fx=cntlin("INC",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, 8, ColMax,8                	'linha


PrWIN COR_T,  CorTotGer
'PrWIN TX_N,  30,0,"Totais ..."
ajt=2



PrWIN TX_NP,   Col1-ajt,lin2,"N",@tVbase
PrWIN TX_NP,  Col1a-ajt,0  ,"N",@trenda
PrWIN TX_NP,   Col2-ajt,lin2  ,"N",@tchefia
PrWIN TX_NP,   Col3-ajt,0  ,"N",@thorario
PrWIN TX_NP,   Col4-ajt,lin2  ,"N",@tfamilia
PrWIN TX_NP,   Col5-ajt,0  ,"N",@ttecnico



ajt=3


PrWIN TX_NP,   Col6-ajt+1,lin2,"N",@tabonos
PrWIN TX_NP,   Col7-ajt,0,"N",@tfaltas
PrWIN TX_NP,   Col8-ajt,lin2,"N",@tiprof
PrWIN TX_NP,   Col9-ajt,0,"N",@tiselo
PrWIN TX_NP,  Col10-ajt,lin2,"N",@tProvSoc
PrWIN TX_NP,  Col11-ajt,0,"N",@tVales
PrWIN TX_NP,  Col12-ajt+1,lin2,"N",@tdescontos
PrWIN TX_NP,  Col13-ajt,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
##
