'Nome       : Est_fx
'Tipo       : LST
'Data       : 2016/08/03
'Versao     : 1.2a
'Descricao  : Listagem estatisticas

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.2a 2016/??/?? ---------------------------------------------------
'Ajustes no contador de linhas

'- Versao : 1.2  2015/05/13 ---------------------------------------------------
'trabalhadores a contrato

'- Versao : 1.1  2013/10/31 ---------------------------------------------------
'Ajustes diversos ( listagens texto descontinuadas )

'- Versao : 1.0  2008/09/26 ---------------------------------------------------
'Versao base



'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
'cabecalho
DatDia    = FrmVal$(Sig_DtHoje,45,0)
Pag       = Doc_CntPag

'linha
Cod       = Gpe_Mst_Trb$
Nome      = Gpe_Mst_Nome$
CodCat    = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
CodSec    = GpeTabCon$("SEC",Gpe_Mst_Sec$,"ABRV")

Mor       = Gpe_Mst_Morada$
Loc       = Gpe_Mst_Local$
Cpos      = Gpe_Mst_Cpost$
Freg      = Gpe_Mst_Freg$
Conc      = Gpe_Mst_Conc$
Dist      = Gpe_Mst_Dist$
Tel       = Gpe_Mst_Telef$

Cont      = Gpe_Mst_Ctrb$
Domic     = FrmVal$(Gpe_Mst_CodDom,21,-4)
DtAdm     = FrmVal$(Gpe_Mst_DtAdmi,44,0)

LpgGrpInf       = "Local Pagamento "+GpeCodFrm$("EST",MemTxt$(10))+" - "+GpeTabCon$("EST",MemTxt$(10),"NOME")+" - "+GpeTabCon$("EST",MemTxt$(10),"LOC")
CatGrpInf       = "Categoria "+GpeCodFrm$("CAT",MemTxt$(10))+"      - "+GpeTabCon$("CAT",MemTxt$(10),"ABRV")
SecGrpInf       = "Seccao "+GpeCodFrm$("SEC",MemTxt$(10))+" - "+GpeTabCon$("SEC",MemTxt$(10),"DESC")
CssGrpInf       = "IPSS "+GpeCodFrm$("CSS",MemTxt$(10))+"    - "+GpeTabCon$("CSS",MemTxt$(10),"ABRV")
EstGrpInf       = "Estabelecimento "+GpeCodFrm$("EST",MemTxt$(10))+" - "+GpeTabCon$("EST",MemTxt$(10),"NOME")
SegGrpInf       = "Seguradora "+GpeCodFrm$("SEG",MemTxt$(10))+"      - "+GpeTabCon$("SEG",MemTxt$(10),"ABRV")
BncGrpInf       = "Banco "+GpeCodFrm$("BNC",MemTxt$(10))+"  - "+GpeTabCon$("BNC",MemTxt$(10),"ABRV")
SndGrpInf       = "Sindicato "+GpeCodFrm$("SND",MemTxt$(10))+"      - "+GpeTabCon$("SND",MemTxt$(10),"ABRV")
HabGrpInf       = "Habilitação "+GpeCodFrm$("HAB",MemTxt$(10))+" - "+GpeTabCon$("HAB",MemTxt$(10),"ABRV")
ProfGrpInf      = "Profissao "+GpeCodFrm$("PROF",MemTxt$(10))+" - "+GpeTabCon$("PROF",MemTxt$(10),"ABRV")
SitProfGrpInf   = "situacao "+GpeCodFrm$("SIT",MemTxt$(10))+" - "+GpeTabCon$("SIT",MemTxt$(10),"ABRV")


Cat       = GpeCodFrm$("CAT",Gpe_Mst_Categ)
Sec       = GpeCodFrm$("SEC",Gpe_Mst_Sec$)
Crss      = GpeCodFrm$("CSS",Gpe_Mst_Crss)
Est       = GpeCodFrm$("EST",Gpe_Mst_Est$)
Seg       = GpeCodFrm$("SEG",Gpe_Mst_CodSeg)
Bnc       = GpeCodFrm$("BNC",Gpe_Mst_Banco$)
Snd       = GpeCodFrm$("SND",Gpe_Mst_Sind)
Hab       = GpeCodFrm$("HAB",Gpe_Mst_Habil$)
Prof      = GpeCodFrm$("PROF",Gpe_Mst_Prof$)
SitProf   = GpeCodFrm$("SIT",Gpe_Mst_SitProf$)


LpgInf       = GpeTabCon$("SEC",Gpe_Mst_Sec$,"DESC")
CatInf       = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
SecInf       = GpeTabCon$("SEC",Gpe_Mst_Sec$,"ABRV")
CssInf       = GpeTabCon$("CSS",Gpe_Mst_Crss,"ABRV")
EstInf       = GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")
SegInf       = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"ABRV")
BncInf       = GpeTabCon$("BNC",Gpe_Mst_Banco$,"ABRV")
SndInf       = GpeTabCon$("SND",Gpe_Mst_Sind,"ABRV")
HabInf       = GpeTabCon$("HAB",Gpe_Mst_Habil$,"ABRV")
ProfInf      = GpeTabCon$("PROF",Gpe_Mst_Prof$,"ABRV")
SitProfInf   = GpeTabCon$("SIT",Gpe_Mst_SitProf,"ABRV")



BenCrss   = Gpe_Mst_CrssNb$
Nib       = Gpe_Mst_BcNib$

SitEmp    = GpeFrmCodSit$("SIT_E",Gpe_Mst_SitEmp)

DtNas     = FrmVal$(Gpe_Mst_DtNasc,44,0)
DtSit     = FrmVal$(Gpe_Mst_DtSit,44,0)
DtAdm     = FrmVal$(Gpe_Mst_DtAdmi,44,0)
DtPro     = FrmVal$(Gpe_Mst_DtProm,44,0)
DtFct     = FrmVal$(Gpe_Mst_DtFimCt,44,0)

AmDtNas     = GpeDataIdadeAm$(""AA.MM"",GPE_MST_DtNasc)
AmDtSit     = GpeDataIdadeAm$(""AA.MM"",GPE_MST_DtSit)
AmDtAdm     = GpeDataIdadeAm$(""AA.MM"",GPE_MST_DtAdmi)
AmDtPro     = GpeDataIdadeAm$(""AA.MM"",GPE_MST_DtProm)
AmDtFct     = GpeDataIdadeAm$(""AA.MM"",GPE_MST_DtFimCt)

Sex       = GpeFrmCodSit$("SEXO",Gpe_Mst_Sexo$)

SocSnd    = GpeFrmMoe$("",7,Gpe_Mst_SindSoc)
Quota     = GpeFrmMoe$("",8,Gpe_Mst_SindQ)
Lpag      = GpeFrmCodTab$(2,Gpe_Mst_Lpag$)
Mpag      = GpeFrmCodSit$("M_PAG",Gpe_Mst_Mpag)
Obs       = Gpe_Mst_ObsQp$

EstCiv    = GpeFrmCodSit$("EST_C",Gpe_Mst_EstCiv)
Tit       = GpeFrmCodSit$("TITL",Gpe_Mst_TitR)
DtDecl    = FrmVal$(Gpe_Mst_DtDecl,44,0)
Ndepen    = FrmVal$(Gpe_Mst_Depen,21,2.0)

Conj      = Gpe_Mst_ConjN$
ConjCtrb  = Gpe_Mst_ConjC$
DecDef    = FrmVal$(Gpe_Mst_DefP,61,1.0)
ConjDef   = FrmVal$(Gpe_Mst_DefC,61,1.0)
NdepenDef = FrmVal$(Gpe_Mst_DefD,21,2.0)

TipTmp    = GpeFrmCodSit$("TEMPO",Gpe_Mst_Calc)
HorSem    = FrmVal$(Gpe_Mst_Horas,21,2.1)
HorMes    = FrmVal$(GpeHrCnv("SM",Gpe_Mst_Horas),21,3.2)
VencBas   = GpeFrmMoe$("",11,Gpe_Mst_Vbase)
VencHora  = GpeFrmMoe$("",8,GpeVenc("H",Gpe_Mst_Horas,Gpe_Mst_Vbase))
VencDia   = GpeFrmMoe$("",8,GpeVenc("D",Gpe_Mst_Horas,Gpe_Mst_Vbase))

TpIrs     = Gpe_Mst_IrsTp
TxIrs     = FrmVal$(Gpe_Mst_IrsTx,21,2.1)
Tr        = Gpe_Mst_TipRnd$

ValEsp1   = GpeFrmMoe$("",12,Gpe_Mst_Vesp1)
ValEsp2   = GpeFrmMoe$("",12,Gpe_Mst_Vesp2)
ValEsp3   = GpeFrmMoe$("",12,Gpe_Mst_Vesp3)
ValEsp4   = GpeFrmMoe$("",12,Gpe_Mst_Vesp4)

TipMva    = FrmVal$(Gpe_Mst_TipMva,21,1.0)

CodSbt    = MemTxt$(10)


TotalInf  = TotalInf$

Titulo.lst    = Titulo.lst$

MediaVl      = MediaVl$
MediaTotal   = MediaTotal$

##


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


'-----------------------------------------------------------------------------
' Formato do documento (Cabecalho, Linhas e Fim)
'-----------------------------------------------------------------------------
#PGM


'=============================================================================
' Funcoes de suporte
'=============================================================================


'-----------------------------------------------------------------------------
'                            FORMATO GRAFICO
'-----------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
mediaacm=0
End sub


'-----------------------------------------------------------------------------
Sub TotalGrupoG
'-----------------------------------------------------------------------------
vlm=GPESTAACMSEX(1,"M","*")               'consultar masculino
vlf=GPESTAACMSEX(1,"F","*")               'consultar feminino
reg=vlm+vlf                               'registos listados


vmed=mediaAcm/reg
MediaTotal$=frmval$(vmed,21,2.1)

if tipototal$="MF" then
 TotalInf$="Registos: "+ Reg +"       Homens: "+vlm+"       Mulheres: "+vlf
end if

if tipototal$="RG" then
 TotalInf$="Registos: "+ Reg 
end if

if TipoTotal$="MED" then
' vmed=mediaAcm/reg
' MediaTotal$=frmval$(vmed,21,2.1)
 TotalInf$="Registos: "+ Reg +space$(58)+"Media: "+ MediaTotal$     
 mediaFinal=mediaFinal+mediaAcm
 mediaacm=0
end if

if TipoTotal$="TOTAL" then
' vmed=mediaAcm/reg
' MediaTotal$=frmval$(vmed,21,2.1)
 TotalInf$="Registos: "+ Reg +"       Homens: "+vlm+"       Mulheres: "+vlf+"     Media: "+MediaTotal$
 mediaFinal=mediaFinal+mediaAcm
 mediaacm=0
end if

PrWIN AJT_B,  Margem, 30+Doc_CntLin*5          'posicao base
PrWIN TX_N,0,0,TotalInf$
end sub


'-----------------------------------------------------------------------------
Sub TotalGeralG
'-----------------------------------------------------------------------------
vlm=GPESTAACMSEX(2,"M","*")               'consultar masculino
vlf=GPESTAACMSEX(2,"F","*")               'consultar feminino
reg=vlm+vlf                               'registos listados

if tipototal$="MF" then
 TotalInf$="Registos: "+ Reg +"       Homens: "+vlm+"       Mulheres: "+vlf
end if


if tipototal$="RG" then
 TotalInf$="Registos: "+ Reg 
end if

if TipoTotal$="MED" then
 vmed=mediaFinal/reg
 MediaTotal$=frmval$(vmed,21,2.1)
 TotalInf$="Registos: "+ Reg +space$(58)+"Media: "+ MediaTotal$     
 mediafinal=0
end if

if TipoTotal$="TOTAL" then
 vmed=mediafinal/reg
 MediaTotal$=frmval$(vmed,21,2.1)
 TotalInf$="Registos: "+ Reg +"       Homens: "+vlm+"       Mulheres: "+vlf+"     Media: "+MediaTotal$
 mediafinal=0
end if

end sub


'-----------------------------------------------------------------------------
Sub Pw_CabComum     'cabecalho comum
'-----------------------------------------------------------------------------
PrWIN COR_F, 15                                    'cor de fundo
SigCabNorOpcTit=2              'usar titulo indicado
Call SigCabNor
PrWIN AJT_B,  Margem, 30                     'posicao base
End sub



'-----------------------------------------------------------------------------
Sub Gr_Cab      'titulo de listagem Grafico
'-----------------------------------------------------------------------------
Call Pw_CabComum

Col1=0        'codigo
Col2=Col1+10       'nome
Col3=Col2+70          'nascimento
Col4=col3+16           'admissao
Col5=col4+20          'promocao
col6=col5+20          'vencimento
col7=col6+20         'venc.dia
col8=col7+20          'venc.hora
col9=col8+20
ColMax=Col9

PrWIN FON  ,  8,   1                           'activar fonte
PrWIN AJT_B,  Margem, 30                    'posicao base
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,  CorTitLst                         'cor de titulo
PrWIN TX_N,  Col1,0,"Código"
PrWIN TX_CTR,  Col2,0,Col3,0,"Nome"
PrWIN TX_N,  Col3,0,"Nascimento"
PrWIN TX_N,  Col4,0,"Admissão"
PrWIN TX_N,  Col5,0,"Promoção"
PrWIN TX_N,  Col6,0,"Vencimento"
PrWIN TX_N,  Col7,0,"Venc.Dia"
PrWIN TX_N,  Col8,0,"Venc.Hora"
'PrWIN TX_N,  Col9,0,"Seg."
'PrWIN TX_N,  Col10,0,"Sind"
'PrWIN TX_N,  Col11,0,"Banco"
PrWIN COR_T,  Corlin                            'cor de linha
End Sub


'-----------------------------------------------------------------------------
Sub Gr_Cab2      'titulo de listagem 
'-----------------------------------------------------------------------------
Call Pw_CabComum

Col1=0        'codigo
Col2=Col1+10       'nome
Col3=Col2+70          'seccao
Col4=col3+21           'categoria
Col5=col4+18          'vencimento
col6=col5+20          'nascimento
col7=col6+19         'admissao
col8=col7+19          'promocao
col9=col8+25
ColMax=Col9

PrWIN FON  ,  8,   1                        'activar fonte
PrWIN AJT_B,  Margem, 30                    'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0                 'linha
PrWIN GR_LI, 0, 5, ColMax, 5                 'linha

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,  Col1,0,"Código"
PrWIN TX_CTR,  Col2,0,Col3,0,"Nome"
PrWIN TX_N,  Col3,0,"Secção"
PrWIN TX_N,  Col4,0,"Categoria"
PrWIN TX_N,  Col5,0,"Vencimento"
PrWIN TX_N,  Col6,0,"Nascimento"
PrWIN TX_N,  Col7,0,"Admissão"
PrWIN TX_N,  Col8,0,"Promoção"
PrWIN COR_T,  Corlin                            'cor de linha
End Sub


'-----------------------------------------------------------------------------
Sub Gr_CabDatas2     'titulo de listagem 
'-----------------------------------------------------------------------------
Call Pw_CabComum
Col1=0
Col2=Col1+10    'nome
Col3=col2+61    'nascimento
Col4=col3+18    'admissao
Col5=col4+15    'promocao
col6=col5+12    'vencimento
col7=col6+20    'categoria
col8=col7+25    'habilitacoes
Col9=col8+25
ColMax=col9

PrWIN FON  ,  8,   1                          'activar fonte
PrWIN AJT_B,  Margem, 30                      'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0                 'linha
PrWIN GR_LI, 0, 5, ColMax, 5                 'linha

Lin=1
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,    Col1,Lin,"Código"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_N,    Col3,Lin,"Nascimento"
PrWIN TX_N,    Col4,Lin,"Admissão"
PrWIN TX_N,    Col5,Lin,"Promoção"
PrWIN TX_N,    Col6+3,Lin,"Vencimento"
PrWIN TX_N,    Col7,Lin,"Categoria"
PrWIN TX_N,    Col8,Lin,"Habilitações"
PrWIN COR_T,  Corlin                            'cor de linha
End Sub


'-----------------------------------------------------------------------------
Sub Gr_Lin1
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,   Col1,0,@Cod
PrWIN TX_DMX, Col2,0,Col3-Col2,@Nome
PrWIN TX_N,   Col3,0,@DtNas
PrWIN TX_N,   Col4,0,@DtAdm
PrWIN TX_N,   Col5,0,@DtPro
PrWIN TX_NP,  Col6,0,"N",@Vencbas
PrWIN TX_NP,  Col7,0,"N",@VencDia
PrWIN TX_NP,  Col8,0,"N",@VencHora
'PrWIN TX_N,   Col9,0,@Seg
'PrWIN TX_N,  Col10,0,@Snd
'PrWIN TX_N,  Col11,0,@bnc
End Sub


'-----------------------------------------------------------------------------
Sub Gr_Lin2
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,   Col1,0,@Cod
PrWIN FON  ,  7,   1                          'activar fonte
PrWIN TX_DMX, Col2,0,Col3-Col2,@Nome
PrWIN TX_DMX, Col3,0,Col4-Col3,@SecInf
PrWIN TX_DMX, Col4,0,Col5-Col4,@CatInf
PrWIN FON  ,  8,   1                          'activar fonte
PrWIN TX_NP,  Col5,0,"N",@Vencbas
PrWIN TX_N,   Col6,0,@AmDtNas
PrWIN TX_N,   Col7,0,@AmDtAdm
PrWIN TX_N,   Col8,0,@AmDtPro
End Sub

'-----------------------------------------------------------------------------
Sub Gr_Lin3
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  Col1,0,@Cod
PrWIN TX_DMX,Col2,0,Col3-Col2,@Nome
PrWIN TX_CTR,Col3,0,Col4,0,@AmDtNas
PrWIN TX_CTR,Col4,0,Col5,0,@AmDtAdm
PrWIN TX_CTR,Col5,0,Col6,0,@AmDtPro
PrWIN TX_NP,  Col6,0,"N",@Vencbas
PrWIN TX_NP,  Col7,0,"N",@VencDia
PrWIN TX_NP,  Col8,0,"N",@VencHora
'PrWIN TX_N,  Col9,0,@Seg
'PrWIN TX_N,  Col10,0,@Snd
'sPrWIN TX_N,  Col11,0,@bnc
End Sub

'-----------------------------------------------------------------------------
Sub Gr_LinDatas2
'-----------------------------------------------------------------------------
'msgbox "","Linhas"
MediaAcm=MediaAcm+val(MediaVl$)
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  Col1,0,@Cod
PrWIN TX_DMX,Col2,0,Col3-Col2,@Nome
PrWIN TX_CTR,Col3,0,Col4,0,@AmDtNas
PrWIN TX_CTR,Col4,0,Col5,0,@AmDtAdm
PrWIN TX_N,  Col5+2,0,@AmDtPro
PrWIN TX_NP,  Col6,0,"N",@Vencbas
PrWIN TX_N,  Col7,0,@CatInf
PrWIN TX_N,  Col8,0,@HabInf
End Sub

'-----------------------------------------------------------------------------
Sub Gr_Fim
'-----------------------------------------------------------------------------
call TotalGeralG
PrWIN AJT_B,  Margem, 270            'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0,1                 'linha
PrWIN GR_LI, 0,10, ColMax,10,1                 'linha
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N,15,5,@TotalInf
PrWin FP
End Sub

'-----------------------------------------------------------------------------
Sub Gr_FimSimples
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 270            'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Col9, 0                 'linha
PrWin FP
End Sub

'-----------------------------------------------------------------------------
Sub Gr_FimAjt
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 270+4                'posicao base
PrWIN GR_LI, 0, 0, 195, 0                 'linha
PrWIN TX_N,180,0,"Continua"
PrWin FP
end sub




'-----------------------------------------------------------------------------
Sub Sec_CabG      'por seccao Grafico
'-----------------------------------------------------------------------------
Titulo$="Estatística por Seccao"
TipoTotal$="MF"
call Gr_Cab
End Sub


Sub Sec_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Sec_LinG
call Gr_Lin1
End Sub


Sub Sec_LingStot  'sub-total
Call TotalGrupoG
End Sub


'-----------------------------------------------------------------------------
Sub Lpg_CabG      'por local pagamento Grafico
'-----------------------------------------------------------------------------
Titulo$="Local de Pagamento"
TipoTotal$="MF"
call Gr_Cab
End Sub


Sub Lpg_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@lpgGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Lpg_LinG
Call Gr_Lin1
End Sub


Sub Lpg_LinGStot  'sub-total
Call TotalGrupoG
End Sub


'-----------------------------------------------------------------------------
Sub Cat_CabG      'por categoria Grafico
'-----------------------------------------------------------------------------
Titulo$="Categoria"
TipoTotal$="MF"
call Gr_Cab
End Sub


Sub Cat_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@CatGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Cat_LinG
call Gr_Lin1
End Sub


Sub Cat_LinGStot  'sub-total
Call TotalGrupoG
End Sub

'-----------------------------------------------------------------------------
Sub HAb_CabG      'habilitacoes
'-----------------------------------------------------------------------------
Titulo$="Habilitacoes"
TipoTotal$="MF"
call Gr_Cab2
End Sub


Sub Hab_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@HabGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Hab_LinG
call Gr_Lin2
End Sub


Sub Hab_LinGStot  'sub-total
Call TotalGrupoG
End Sub


'-----------------------------------------------------------------------------
Sub Venc_CabG      'Vencimentos
'-----------------------------------------------------------------------------
Titulo$="Vencimentos por seccao"
TipoTotal$="MF"
call Gr_Cab2
End Sub

Sub Venc_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub

Sub Venc_LinG
call Gr_Lin2
End Sub

Sub Venc_LinGStot  'sub-total
Call TotalGrupoG
End Sub

'-----------------------------------------------------------------------------
Sub Nasc_CabG      'Nascimento 
'-----------------------------------------------------------------------------
Titulo$="Estatistica por data de nascimento"
TipoTotal$="TOTAL"
call Gr_CabDatas2
End Sub

Sub Nasc_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub

Sub Nasc_LinG
MediaVl$=GpeDataIdadeAm$("ANO",Gpe_Mst_DtNasc)
call Gr_LinDatas2
End Sub

Sub Nasc_LinGStot  'sub-total
Call TotalGrupoG
End Sub


'-----------------------------------------------------------------------------
Sub Admi_CabG      'admissao Grafico
'-----------------------------------------------------------------------------
Titulo$="Estatística por data de admissão"
TipoTotal$="TOTAL"
call Gr_CabDatas2
End Sub


Sub Admi_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Admi_LinG
MediaVl$=GpeDataIdadeAm$("ANO",Gpe_Mst_DtAdmi)
call Gr_LinDatas2
End Sub


Sub Admi_LinGStot  'sub-total
Call TotalGrupoG
End Sub



'-----------------------------------------------------------------------------
Sub Prom_CabG      'admissao Grafico
'-----------------------------------------------------------------------------
Titulo$="Estatistica por data de promoção"
TipoTotal$="TOTAL"
call Gr_CabDatas2
End Sub


Sub Prom_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Prom_LinG
MediaVl$=GpeDataIdadeAm$("ANO",Gpe_Mst_DtProm)
call Gr_LinDatas2
End Sub


Sub Prom_LinGStot  'sub-total
Call TotalGrupoG
End Sub


'-----------------------------------------------------------------------------
Sub Ctr_CabG      'contratados
'-----------------------------------------------------------------------------
Titulo$="Trabalhadores em contrato"
TipoTotal$="TOTAL"

Call Pw_CabComum
Col1=0
Col2=Col1+10    'nome
Col3=col2+63    'admissao
Col4=col3+25    'fimct
Col5=col4+15    'fimct-tempo
col6=col5+20    'vencimento
col7=col6+20    'categoria
col8=col7+25    'habilitacoes
Col9=col8+25
ColMax=col9

PrWIN FON  ,  8,   1                          'activar fonte
PrWIN AJT_B,  Margem, 30                      'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0                 'linha
PrWIN GR_LI, 0, 5, ColMax, 5                 'linha

Lin=1
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,    Col1,Lin,"Código"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_N,    Col3,Lin,"Admissão"
PrWIN TX_N,    Col4,Lin,"Fim de Contrato"
PrWIN TX_N,    Col5,Lin,""
'PrWIN TX_N,    Col6+3,Lin,"Vencimento"
'PrWIN TX_N,    Col7,Lin,"Categoria"
'PrWIN TX_N,    Col8,Lin,"Habilitações"
PrWIN COR_T,  Corlin                            'cor de linha
End Sub


Sub Ctr_LinGTit   'titulo
PrWIN FON  , 10,   1                          'activar fonte
PrWin FON, "BOLD+"
PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  0,0,@SecGrpInf
PrWIN FON  , 8,   1                          'activar fonte
PrWin FON, "BOLD-"
end sub


Sub Ctr_LinG
'MediaVl$=GpeDataIdadeAm$("ANO",Gpe_Mst_DtFimCt)
'MediaAcm=MediaAcm+val(MediaVl$)

PrWIN AJT_B,  Margem, 30+Doc_CntLin*5            'posicao base
PrWIN TX_N,  Col1,0,@Cod
PrWIN TX_DMX,Col2,0,Col3-Col2,@Nome
PrWIN TX_CTR,Col3,0,Col4,0,@DtAdm
PrWIN TX_CTR,Col4,0,Col5,0,@DtFct
PrWIN TX_N,  Col5+2,0,@AmDtFct
'PrWIN TX_NP,  Col6,0,"N",@Vencbas
'PrWIN TX_N,  Col7,0,@CatInf
'PrWIN TX_N,  Col8,0,@HabInf
End Sub


Sub Ctr_LinGStot  'sub-total
Call TotalGrupoG
End Sub



##


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