'Nome       : QPS.Std
'Tipo       : LST
'Data       : 2001/11/21
'Versao     : 1.0g
'Descricao  : Listagem de quadros de pessoal 


'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0  1999/03/19 ---------------------------------------------------
'Versao base

'- Versao : 1.0a 2000/06/29 ---------------------------------------------------
'Formatar valores consoante moeda da empresa

'- Versao : 1.0b 2000/09/07 ---------------------------------------------------
'Permitir indicar a situa��o dos trabalhadores a listar

'- Versao : 1.0c 2000/11/03 ---------------------------------------------------
'Novos impressos para quadro pessoal

'- Versao : 1.0d 2000/11/14 ---------------------------------------------------
'Correccao na apresentacao de valores no quadro pessoal da empresa

'- Versao : 1.0e 2000/11/20 ---------------------------------------------------
'Apenas permitia vencimentos at� 99 contos
'Reajuste de posicoes

'- Versao : 1.0f 2000/11/29 ---------------------------------------------------
'Reajuste de posicoes

'- Versao : 1.0g 2000/??/?? ---------------------------------------------------
'Nao Imprimia correctamente o nome e contribuinte do Crss do Establecimento
'Nao apresentava o valor das horas extra


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=QPS
Nome                       [DocNom]=QPS_Emp,Empresa

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Emp_Cab
Listar linhas               [FxLIN]=Emp_Lin
Listar fim                  [FxFIM]=Emp_Fim
##


#DOC
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=QPS_TRB,Trabalhador

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=13
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Ordenacao                  [DocEsp]=ORD=QPS
Situacoes permitidas       [DocEsp]=TRBSIT=11
Listar valores a 0         [DocEsp]=LstZer=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=Trb_Cab
Listar linhas               [FxLIN]=Trb_Lin;Nor,3;Ajt,3
Listar fim                  [FxFIM]=Trb_Fim
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
'cabecalho
Folha        = FrmVal$(Doc_CntPag,21,3.0)
DatAno       = left$(FrmVal$(Sig_DtHoje,44,0),4)
DatDia       = right$(FrmVal$(Sig_DtHoje,44,0),2)
DatMes       = FrmVal$(Sig_DtHoje,46,0)

'empresa
EmpCont      = Emp_Inf_Contrib$
EmpNome      = Emp_Inf_Nome$
EmpMorada    = Emp_Inf_Morada$
EmpLocal     = Emp_Inf_Local$
EmpCPost     = Emp_Inf_CPost$
EmpDistrito  = Emp_Inf_Dist$
EmpConcelho  = Emp_Inf_Conc$
EmpFreguesia = Emp_Inf_Freg$
EmpTelef     = Emp_Inf_Telef$
EmpFax       = Emp_Inf_Fax$

EmpAssocPtr  = Emp_Inf_AssPtr$
EmpActiv     = Emp_Inf_Activ$
EmpNatJur    = Emp_Inf_NatJur$
EmpFormGes   = Emp_Inf_FormGes$
EpNumPes     = Emp_Inf_NumPes
EpACon       = FrmDt$("A4",Emp_Inf_DtConst)

EmpCapSoc    = FrmVal$(Emp_Inf_CapSoc,21,13)
EpCpScN      = FrmVal$(Emp_Inf_CapSocNac,21,3.1)
EpCpScE      = FrmVal$(Emp_Inf_CapSocEst,21,3.1)
EpCpScP      = FrmVal$(Emp_Inf_CapsocPub,21,3.1)
EmpVendas    = FrmMoe$("",12,Emp_Inf_VolVend)

'dados do estabelecimento para empresa
EstNome      = GpeTabCon$("EST",MemTxt$(10),"NOME")
EstMorada    = GpeTabCon$("EST",MemTxt$(10),"MORADA")
EstLocal     = GpeTabCon$("EST",MemTxt$(10),"LOC")
EstCPost     = GpeTabCon$("EST",MemTxt$(10),"CPOST")
EstDistrito  = GpeTabCon$("EST",MemTxt$(10),"DIST")
EstConcelho  = GpeTabCon$("EST",MemTxt$(10),"CONC")
EstFreguesia = GpeTabCon$("EST",MemTxt$(10),"FREG")
EstTelef     = GpeTabCon$("EST",MemTxt$(10),"TELEF")
EstFax       = GpeTabCon$("EST",MemTxt$(10),"FAX")
EstActiv     = GpeTabCon$("EST",MemTxt$(10),"ACTV")
EstNumPes    = GpeTabCon$("EST",MemTxt$(10),"NPESS")
EstIrt       = GpeTabCon$("EST",MemTxt$(10),"IRTDES")
EstBolTE     = trim$(GpeTabCon$("EST",MemTxt$(10),"IRTBLT"))+ "  "+ FrmDt$("A",GpeTabCon$("EST",MemTxt$(10),"IRTDTPUB"))+" "+FrmDt$("M",GpeTabCon$("EST",MemTxt$(10),"IRTDTPUB"))+" "+FrmDt$("D",GpeTabCon$("EST",MemTxt$(10),"IRTDTPUB"))
EstUltTabSal = FrmDt$("A",GpeTabCon$("EST",MemTxt$(10),"IRTDTULTTB"))+" "+FrmDt$("M",GpeTabCon$("EST",MemTxt$(10),"IRTDTULTTB"))

'EstCssNome   = GpeTabCon$("CSS",Gpe_Mst_Crss,"NOME")
'EstCssCont   = GpeTabCon$("CSS",Gpe_Mst_Crss,"CTRB")
EstCssNome   = GpeTabCon$("CSS",GpeTabCon$("EST",MemTxt$(10),"CSS"),"NOME")
EstCssCont   = GpeTabCon$("CSS",GpeTabCon$("EST",MemTxt$(10),"CSS"),"CTRB")

'dados do estabelecimento para o trabalhador
EstTrbNome      = GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")
EstTrbMorada    = GpeTabCon$("EST",Gpe_Mst_Est$,"MORADA")
EstTrbLocal     = GpeTabCon$("EST",Gpe_Mst_Est$,"LOC")
EstTrbCPost     = GpeTabCon$("EST",Gpe_Mst_Est$,"CPOST")              
EstTrbIrt       = GpeTabCon$("EST",Gpe_Mst_Est$,"IRTDES")                                                                      
                                                              
EstTrbBolTE     = GpeTabCon$("EST",Gpe_Mst_Est$,"IRTBLT") +"  "FrmDt$("A",GpeTabCon$("EST",Gpe_Mst_Est$,"IRTDTPUB"))+" "+FrmDt$("M",GpeTabCon$("EST",Gpe_Mst_Est$,"IRTDTPUB"))+FrmDt$("D",GpeTabCon$("EST",Gpe_Mst_Est$,"IRTDTPUB"))
EstTrbUltTabSal = GpeTabCon$("EST",Gpe_Mst_Est$,"IRTDTULTTB")

'linha 1
L               = CntL
Nome            = Gpe_Mst_Nome$
DtNa            = mid$(FrmVal$(Gpe_Mst_DtNasc,44,0),3,5)
DtAd            = mid$(FrmVal$(Gpe_Mst_DtAdmi,44,0),3,5)
DtPr            = mid$(FrmVal$(Gpe_Mst_DtProm,44,0),3,5)

Vbase           = FrmVal$(GpeAcmLst("V","QPS","VB"),21,9.0)
PreR            = FrmVal$(GpeAcmLst("V","QPS","PR")+GpeAcmLst("V","QPS","DIA"),21,8)
PreI            = FrmVal$(GpeAcmLst("V","QPS","PI"),21,8)
HeV             = FrmVal$(GpeAcmLst("V","QPS","HX"),21,3)

Hn              = FrmVal$(GpeAcmLst("H","QPS","HN"),21,3)
He              = FrmVal$(GpeAcmLst("H","QPS","HX"),21,3)
Hs              = FrmVal$(Gpe_Mst_Horas,21,3)

'linha 2
Categ           = Left$(GpeTabCon$("CAT",Gpe_Mst_Categ,"DESC"),30)
Prof            = Left$(GpeTabCon$("PROF",Gpe_Mst_Prof$,"DESC"),30)
Hab             = Left$(GpeTabCon$("HAB",Gpe_Mst_Habil$,"DESC"),28)



CodDiv          = Gpe_Mst_Pais+" "+Gpe_Mst_2098$+" "+Gpe_Mst_SitProf$+" "+Gpe_Mst_TipContr$+" "+Gpe_Mst_DurTrb$+" "+GpeFrmCodSit$("SEXO_N",Gpe_Mst_Sexo$)
CodDiv0         =             Gpe_Mst_2098$+" "+Gpe_Mst_SitProf$+" "+Gpe_Mst_TipContr$+" "+Gpe_Mst_DurTrb$+" "+GpeFrmCodSit$("SEXO_N",Gpe_Mst_Sexo$)

CrssNb          = Gpe_Mst_CrssNb$
##

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
'------Valores da empresa ----------------------------------------------------
Sub Emp_Cab
Print PrtCmd$("[10CPI]")
?
?
?         #
?                   @EmpNome                                                                                                      @DatAno
?
?                         @EmpMorada                                                                                                   #
?
?               @EmpLocal                            @EmpTelef       @EmpFax                                                            #
?
?                @EmpCPost                                    @EmpMail                                                                  #
?
?                         @EmpDistrito                @EmpConcelho                @EmpFreguesia                                        #
?
?                                  @EmpAssocPtr                                                                                        #
?
?
?
?                           @EmpActiv                                                                                                 #
?
?                   @EmpNatJur                                                                                                @EpACon  #
?
?                                                    @EmpCont                                                                  @EpNumPes
? 
?                                                                                                                            @EpCpScN #
?
?                                             @EmpCapSoc                                                                     @EpCpScE #
?  
?                                                                                                                            @EpCpScP #
?  
?                                                                                                                     @EmpVendas       #
?
?
?
?                         @EstNome                                                                                                     #
?
?                         @EstMorada                                                                                                   #
?
?                @EstLocal                           @EstTelef       @EstFax                                                           #
?
?                @EstCPost                                      @EstMail                                                          #
?
?                          @EstDistrito                @EstConcelho                @EstFreguesia                                    #
?  
?                            @EstCssNome                                @EstCssCont                                                 #
?
?                                 @EstActiv                                                                                         #
?
?                                                                          @EstNumPes                                                  #
? 
?                                       @EstIrt                                                                                        #
?
?                                                                  @EstBolTE                                                           #
? 
?                                                                                         @EstUltTabSal                                #
End Sub


Sub Emp_Lin
?
End Sub


Sub Emp_Fim
?
?
?
?
?
?
?
?  @EmpLocal              @DatDia     @DatMes          @DatAno
?
?
Print PrtCmd$("[10PCILN]");
Print PrtCmd$("[SP]");
End Sub


'------Valores dos trabalhadores----------------------------------------------------
Sub Trb_Cab
Print PrtCmd$("[10CPILN]");
?
?
?                                                                                                                               @DatAno#
?                    @EstNome                                                                  @EmpCont           #
?
?         @EstMorada                                        @EstLocal                   @EstCPost                   #
?
?                                    @EstIrt                                                                         #
?
?                                                         @EstBolTE                                  @EstUltTabSal  #
?
?
?
?
?
?
?
?
?
?
?
?
?
CntL=0
End Sub


Sub Trb_Lin
CntL=Cntl+1
?@L @Nome                                     @DtNa  @DtAd  @DtPr @Vbase    @PreR    @Ts      @Pirg    @Hn @He @Hs #
If Gpe_Mst_Pais=0 then
?@Categ                         @Prof                          @Hab                             @CodDiv0  @CrssNb  #
else
?@Categ                         @Prof                          @Hab                         @CodDiv       @CrssNb  #
end if
?
End Sub


Sub Trb_LinAjt
?
?
?
End Sub


Sub Trb_Fim
?
?  @EmpLocal              @DatDia     @DatMes          @DatAno
?
Print PrtCmd$("[10PCILN]");
Print PrtCmd$("[SP]");
end sub

##