'Nome       : EstRD.STD
'Tipo       : LST
'Data       : 2005/05/02
'Versao     : 1.5
'Descricao  : Mapa de estatistico de remuneracoes e descontos


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

'- Versao : 1.0a 2000/03/23 ---------------------------------------------------
'Nao listava linhas dos codigos

'- Versao : 1.0b 2000/06/27 ---------------------------------------------------
'Formatar valores consoante moeda da empresa

'- Versao : 1.0c 2000/11/02 ---------------------------------------------------
'Alteracao do titulo a mostrar no programa

'- Versao : 1.0d 2000/11/07 ---------------------------------------------------
'Impressao grafica

'- Versao : 1.1  2000/11/29 ---------------------------------------------------
'Formatar valores consoante decimais indicados pelo programa

'- Versao : 1.2  2002/02/20 ---------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 1.3  2003/01/03 ---------------------------------------------------
'Mostrar totais na impressao grafica

'- Versao : 1.4  2003/04/11 ---------------------------------------------------
'Ajuste na impressao grafica

'- Versao : 1.5  2003/07/17 ---------------------------------------------------
'Colocar estatistica configuravel neste ficheiro

'- Versao : 1.5a 2005/??/?? ---------------------------------------------------
'Converter orientacao da listagem grafica para horizontal


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


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
Opcoes para impressora WIN   [PrWinOpc]=[ORI=L]
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=ERD
Nome                       [DocNom]=ERD,Mapa de Remunerações e Descontos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=100:999
Codigos de movimento a     [DocEsp]=CmvExt=002,051

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_; Lin,2 ; Ajt,2
Listar fim                  [FxFIM]=Lst_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVA,Analise de Abonos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=100:400
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstC_Cab
Listar linhas               [FxLIN]=LstC_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstC_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVF,Analise de Faltas

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=400:700
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstC_Cab
Listar linhas               [FxLIN]=LstC_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstC_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVD,Analise de Descontos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=700:900
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstC_Cab
Listar linhas               [FxLIN]=LstC_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstC_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVC,Analise Configuravel

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=?
Listar quantidade          [DocEsp]=LstQu=?
Listar valor               [DocEsp]=LstVl=?


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstC_Cab
Listar linhas               [FxLIN]=LstC_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstC_Fim
##


#DOC
Tipo                       [DocTip]=ERD
Nome                       [DocNom]=ERD_G,Mapa de Remunerações e Descontos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Codigos de movimento a     [DocEsp]=LimCmv=100:999
Codigos de movimento a     [DocEsp]=CmvExt=002,051

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabG
Listar linhas               [FxLIN]=Lst_LinG
Listar fim                  [FxFIM]=Lst_FimG
##

#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVA_G,Analise de Abonos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=100:400
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstCG_Cab
Listar linhas               [FxLIN]=LstCG_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstCG_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVF_G,Analise de Faltas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=400:700
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstCG_Cab
Listar linhas               [FxLIN]=LstCG_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstCG_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVD_G,Analise de Descontos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=700:900
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstCG_Cab
Listar linhas               [FxLIN]=LstCG_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstCG_Fim
##


#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD_CMVC_G,Analise Configuravel

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=?
Listar quantidade          [DocEsp]=LstQu=?
Listar valor               [DocEsp]=LstVl=?


'funcoes de listagem
Listar cabecalho            [FxCAB]=LstCG_Cab
Listar linhas               [FxLIN]=LstCG_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=LstCG_Fim
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
DatDia     = FrmDt$("EXT",Sig_DtHoje)
Pag        = Doc_CntPag

'cabecalho
EmpNome    = Emp_Inf_Nome$
CodEmp     = Gpe_Mst_Trb$
Nome       = Gpe_Mst_Nome$
Morada     = Gpe_Mst_Morada$
Local      = Gpe_Mst_Local$

DatNasc    = FrmVal$(Gpe_Mst_DtNasc,44,0)
DatAdmi    = FrmVal$(Gpe_Mst_DtAdmi,44,0)
DatFimCt   = FrmVal$(Gpe_Mst_DtFimCt,44,0)
DatProm    = FrmVal$(Gpe_Mst_DtProm,44,0)

EstCiv     = GpeFrmCodSit$("EST_C",Gpe_Mst_EstCiv)
Ndep       = Gpe_Mst_Depen
NdepDef    = Gpe_Mst_DefD
TpRend     = Gpe_Mst_TipRnd$
Titular    = GpeFrmCodSit$("TITL",Gpe_Mst_TitR)
CodDom     = Gpe_Mst_CodDom
Cat        = GpeTabCon$("CAT",Gpe_Mst_Categ,"DESC")
Sec        = GpeTabCon$("SEC",Gpe_Mst_Sec$,"DESC")

VencMes    = GpeFrmMoe$("",10,Gpe_Mst_Vbase)
VencDia    = GpeFrmMoe$("",10,GpeVenc("D",Gpe_Mst_Horas,Gpe_Mst_Vbase))
VencHor    = GpeFrmMoe$("",10,GpeVenc("H",Gpe_Mst_Horas,Gpe_Mst_Vbase))

Cont       = Gpe_Mst_Ctrb$
Crss       = GpeTabCon$("CSS",Gpe_Mst_Crss,"NOME")
NumCrss    = Gpe_Mst_CrssNb$
Sind       = GpeTabCon$("SND",Gpe_Mst_Sind,"NOME")
NumSind    = Gpe_Mst_SindSoc
Banc       = GpeTabCon$("BNC",Gpe_Mst_Banco$,"NOME")
NumBanc    = Gpe_Mst_BcNib$


TrbLin     = Gpe_Mst_Trb$+"  "+Gpe_Mst_Nome$
CodLin     = Gpe_Cmv_Cod$+" "+left$(Gpe_Cmv_Descr$,18)
CodLinx    = Gpe_Cmv_Cod$+" "+Gpe_Cmv_Descr$
Sec        = GpeCodFrm$("SEC",Gpe_Mst_Sec$)+"  "+GpeTabCon$("SEC",Gpe_Mst_Sec$,"DESC")


'linha
Cd         = Gpe_Cmv_Cod$
Descr      = left$(Gpe_Cmv_Descr$,12)
Descrx     = Gpe_Cmv_Descr$
Jan        = GpeFrmMoe$("",9,Gpe_Acm_V01)
fev        = GpeFrmMoe$("",9,Gpe_Acm_V02)
Mar        = GpeFrmMoe$("",9,Gpe_Acm_V03)
Abr        = GpeFrmMoe$("",9,Gpe_Acm_V04)
Mai        = GpeFrmMoe$("",9,Gpe_Acm_V05)
Jun        = GpeFrmMoe$("",9,Gpe_Acm_V06)
Jul        = GpeFrmMoe$("",9,Gpe_Acm_V07)
Ago        = GpeFrmMoe$("",9,Gpe_Acm_V08)
Set        = GpeFrmMoe$("",9,Gpe_Acm_V09)
Out        = GpeFrmMoe$("",9,Gpe_Acm_V10)
Nov        = GpeFrmMoe$("",9,Gpe_Acm_V11)
Dez        = GpeFrmMoe$("",9,Gpe_Acm_V12)
TLin       = GpeFrmMoe$("",9,MemNum(0))
TLin1      = GpeFrmMoe$("",9,MemNum(10))

Jan2       = GpeFrmT$("?",3.2,Gpe_Acm_H01)
fev2       = GpeFrmT$("?",3.2,Gpe_Acm_H02)
Mar2       = GpeFrmT$("?",3.2,Gpe_Acm_H03)
Abr2       = GpeFrmT$("?",3.2,Gpe_Acm_H04)
Mai2       = GpeFrmT$("?",3.2,Gpe_Acm_H05)
Jun2       = GpeFrmT$("?",3.2,Gpe_Acm_H06)
Jul2       = GpeFrmT$("?",3.2,Gpe_Acm_H07)
Ago2       = GpeFrmT$("?",3.2,Gpe_Acm_H08)
Set2       = GpeFrmT$("?",3.2,Gpe_Acm_H09)
Out2       = GpeFrmT$("?",3.2,Gpe_Acm_H10)
Nov2       = GpeFrmT$("?",3.2,Gpe_Acm_H11)
Dez2       = GpeFrmT$("?",3.2,Gpe_Acm_H12)
TLin2      = GpeFrmT$("?",3.2,MemNum(20))

'totais de seccao - valor
TotJan     = GpeFrmMoe$("",7,MemNum(31))
TotFev     = GpeFrmMoe$("",7,MemNum(32))
TotMar     = GpeFrmMoe$("",7,MemNum(33))
TotAbr     = GpeFrmMoe$("",7,MemNum(34))
TotMai     = GpeFrmMoe$("",7,MemNum(35))
TotJun     = GpeFrmMoe$("",7,MemNum(36))
TotJul     = GpeFrmMoe$("",7,MemNum(37))
TotAgo     = GpeFrmMoe$("",7,MemNum(38))
TotSet     = GpeFrmMoe$("",7,MemNum(39))
TotOut     = GpeFrmMoe$("",7,MemNum(40))
TotNov     = GpeFrmMoe$("",7,MemNum(41))
TotDez     = GpeFrmMoe$("",7,MemNum(42))
TotVl      = GpeFrmMoe$("",7,MemNum(43))

'totais de coluna - valor de abonos
TotAJan    = GpeFrmMoe$("",9,MemNum(21))
TotAFev    = GpeFrmMoe$("",9,MemNum(22))
TotAMar    = GpeFrmMoe$("",9,MemNum(23))
TotAAbr    = GpeFrmMoe$("",9,MemNum(24))
TotAMai    = GpeFrmMoe$("",9,MemNum(25))
TotAJun    = GpeFrmMoe$("",9,MemNum(26))
TotAJul    = GpeFrmMoe$("",9,MemNum(27))
TotAAgo    = GpeFrmMoe$("",9,MemNum(28))
TotASet    = GpeFrmMoe$("",9,MemNum(29))
TotAOut    = GpeFrmMoe$("",9,MemNum(30))
TotANov    = GpeFrmMoe$("",9,MemNum(31))
TotADez    = GpeFrmMoe$("",9,MemNum(32))

'totais de coluna - valor de faltas
TotFJan    = GpeFrmMoe$("",9,MemNum(41))
TotFFev    = GpeFrmMoe$("",9,MemNum(42))
TotFMar    = GpeFrmMoe$("",9,MemNum(43))
TotFAbr    = GpeFrmMoe$("",9,MemNum(44))
TotFMai    = GpeFrmMoe$("",9,MemNum(45))
TotFJun    = GpeFrmMoe$("",9,MemNum(46))
TotFJul    = GpeFrmMoe$("",9,MemNum(47))
TotFAgo    = GpeFrmMoe$("",9,MemNum(48))
TotFSet    = GpeFrmMoe$("",9,MemNum(49))
TotFOut    = GpeFrmMoe$("",9,MemNum(50))
TotFNov    = GpeFrmMoe$("",9,MemNum(51))
TotFDez    = GpeFrmMoe$("",9,MemNum(52))

'totais de coluna - valor de descontos
TotDJan    = GpeFrmMoe$("",9,MemNum(61))
TotDFev    = GpeFrmMoe$("",9,MemNum(62))
TotDMar    = GpeFrmMoe$("",9,MemNum(63))
TotDAbr    = GpeFrmMoe$("",9,MemNum(64))
TotDMai    = GpeFrmMoe$("",9,MemNum(65))
TotDJun    = GpeFrmMoe$("",9,MemNum(66))
TotDJul    = GpeFrmMoe$("",9,MemNum(67))
TotDAgo    = GpeFrmMoe$("",9,MemNum(68))
TotDSet    = GpeFrmMoe$("",9,MemNum(69))
TotDOut    = GpeFrmMoe$("",9,MemNum(70))
TotDNov    = GpeFrmMoe$("",9,MemNum(71))
TotDDez    = GpeFrmMoe$("",9,MemNum(72))

'totais de coluna - valor liquido
TotLJan   = GpeFrmMoe$("",9,MemNum(01))
TotLFev   = GpeFrmMoe$("",9,MemNum(02))
TotLMar   = GpeFrmMoe$("",9,MemNum(03))
TotLAbr   = GpeFrmMoe$("",9,MemNum(04))
TotLMai   = GpeFrmMoe$("",9,MemNum(05))
TotLJun   = GpeFrmMoe$("",9,MemNum(06))
TotLJul   = GpeFrmMoe$("",9,MemNum(07))
TotLAgo   = GpeFrmMoe$("",9,MemNum(08))
TotLSet   = GpeFrmMoe$("",9,MemNum(09))
TotLOut   = GpeFrmMoe$("",9,MemNum(10))
TotLNov   = GpeFrmMoe$("",9,MemNum(11))
TotLDez   = GpeFrmMoe$("",9,MemNum(12))

'totais de gerais (por tipo: Abono/Falta/Desconto)
TotLGer   = GpeFrmMoe$("",9,MemNum(0))
TotAGer   = GpeFrmMoe$("",9,MemNum(20))
TotFGer   = GpeFrmMoe$("",9,MemNum(40))
TotDGer   = GpeFrmMoe$("",9,MemNum(60))

'totais de seccao - quantidade (HORAS)
TJanh  = GpeFrmT$("H",3.2,MemNum(51))
TFevh  = GpeFrmT$("H",3.2,MemNum(52))
TMarh  = GpeFrmT$("H",3.2,MemNum(53))
TAbrh  = GpeFrmT$("H",3.2,MemNum(54))
TMaih  = GpeFrmT$("H",3.2,MemNum(55))
TJunh  = GpeFrmT$("H",3.2,MemNum(56))
TJulh  = GpeFrmT$("H",3.2,MemNum(57))
TAgoh  = GpeFrmT$("H",3.2,MemNum(58))
TSeth  = GpeFrmT$("H",3.2,MemNum(59))
TOuth  = GpeFrmT$("H",3.2,MemNum(60))
TNovh  = GpeFrmT$("H",3.2,MemNum(61))
TDezh  = GpeFrmT$("H",3.2,MemNum(62))
Toth   = GpeFrmT$("H",3.2,MemNum(63))

'totais de seccao - quantidade (DIAS)
TJanD  = GpeFrmT$("D",3.2,MemNum(51))
TFevD  = GpeFrmT$("D",3.2,MemNum(52))
TMarD  = GpeFrmT$("D",3.2,MemNum(53))
TAbrD  = GpeFrmT$("D",3.2,MemNum(54))
TMaiD  = GpeFrmT$("D",3.2,MemNum(55))
TJunD  = GpeFrmT$("D",3.2,MemNum(56))
TJulD  = GpeFrmT$("D",3.2,MemNum(57))
TAgoD  = GpeFrmT$("D",3.2,MemNum(58))
TSetD  = GpeFrmT$("D",3.2,MemNum(59))
TOutD  = GpeFrmT$("D",3.2,MemNum(60))
TNovD  = GpeFrmT$("D",3.2,MemNum(61))
TDezD  = GpeFrmT$("D",3.2,MemNum(62))
Totd   = GpeFrmT$("D",3.2,MemNum(63))

##

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



'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
Sub Lst_Cab
Print PrtCmd$("[10CPILN]");
?@EmpNome                                                                    #
?
Print PrtCmd$("[16CPILN]");
?                                  MAPA ESTATISTICO DE REMUNERACOES E DESCONTOS
?
?------------------------------------------------------------------------------------------------------------------------------------
?  Codigo     : @CodEmp
?
?  Nome       : @Nome                                                                     Data Admissao      : @DatAdmi              #
?  Morada     : @Morada                                                                   Data Fim Contrato  : @DatFimCt             #
?  Localidade : @Local                                                                    Data Promocao      : @DatProm              #
?
?
?  Estado Civil  : @EstCiv          No Dependentes        : @Ndep                         No Dep.deficientes : @NdepDef              #
?  Data Nasc.    : @DatNasc         Titularidade          : @Titular                                       #
?  Cod.Domicilio : @CodDom                                                                Vencimento Mes     : @VencMes              #
?  Categoria     : @Cat                                                                   Vencimento Dia     : @VencDia              #
?  Seccao        : @Sec                                                                   Vencimento Hora    : @VencHor              #
?
?  Tipo Rendimento : @TpRend                                  #
?  Contribuinte    : @Cont                                    #
?  Segur.Social    : @Crss                                              Beneficiario : @NumCrss                         #
?  Sindicato       : @Sind                                              Socio        : @NumSind                         #
?  Banco           : @Banc                                              Conta        : @NumBanc                         #
?------------------------------------------------------------------------------------------------------------------------------------
?
?
?  Data : @DatDia                                                                                                     Folha No @Pag
?
?------------------------------------------------------------------------------------------------------------------------------------
?Cod  Descricao     Jan     Fev      Mar      Abr      Mai      Jun      Jul      Ago      Set      Out      Nov      Dez    Total   #
?------------------------------------------------------------------------------------------------------------------------------------
End Sub


Sub Lst_Lin
?
?@Cd @Descr      @Jan     @Fev     @Mar     @Abr     @Mai     @Jun     @Jul     @Ago     @Set     @Out     @Nov     @Dez    @TLin   #
End Sub


Sub Lst_LinAjt
?
?
End Sub


Sub Lst_Fim
?
?------------------------------------------------------------------------------------------------------------------------------------
?Total Abonos    @TotAJan @TotAFev @TotAMar @TotAAbr @TotAMai @TotAJun @TotAJul @TotAAgo @TotASet @TotAOut @TotANov @TotADez @TotAger 
?Total Faltas    @TotFJan @TotFFev @TotFMar @TotFAbr @TotFMai @TotFJun @TotFJul @TotFAgo @TotFSet @TotFOut @TotFNov @TotFDez @TotFger 
?Total Desc.     @TotDJan @TotDFev @TotDMar @TotDAbr @TotDMai @TotDJun @TotDJul @TotDAgo @TotDSet @TotDOut @TotDNov @TotDDez @TotDger 
?------------------------------------------------------------------------------------------------------------------------------------
?Total Liquido   @TotLJan @TotLFev @TotLMar @TotLAbr @TotLMai @TotLJun @TotLJul @TotLAgo @TotLSet @TotLOut @TotLNov @TotLDez @TotLger 
?------------------------------------------------------------------------------------------------------------------------------------
Print PrtCmd$("[SP]");
x=TotLpz(0)       'limpar totalizadores
End Sub



'-----------------------------------------------------------------------------
'    Analise configuravel
'-----------------------------------------------------------------------------
Sub LstC_Cab
FxDiv LstIde,16CPI,1
Print PrtCmd$("[16CPILN]");
?                                               @Tit                                                                      #
?                                                                                                                     Pag. @Pag    #
?====================================================================================================================================
?                         |  Jan  |  Fev  |  Mar  |  Abr  |  Mai  |  Jun  |  Jul  |  Ago  |  Set  |  Out  |  Nov  |  Dez  |  Total  # 
?====================================================================================================================================
end sub

Sub LstC_Trb
?@TrbLin                                                                #
End sub


Sub LstC_Lin
if MemNum(5)>0 then
? @CodLin                (V)@Jan    @Fev    @Mar    @Abr    @Mai    @Jun    @Jul    @Ago    @Set    @Out    @Nov    @Dez    @TLin    #
end if
IF MemNum(6)>0 then
? @CodLin                (Q)@Jan2   @Fev2   @Mar2   @Abr2   @Mai2   @Jun2   @Jul2   @Ago2   @Set2   @Out2   @Nov2   @Dez2   @TLin2   #
end if

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
 tmp=CntLin("INC",1)             'contar linha extra
end if
end sub



Sub LstC_Sec
Print PrtCmd$("[16CPILD]");
?   Seccao: @Sec                                                          #
Print PrtCmd$("[16CPILN]");
end sub


Sub LstC_St
?--SubTotal---------------------------------------------------------------------------------------------------------------------------
if MemNum(5)>0 then
?                   Valores @TotJan @TotFev @TotMar @TotAbr @TotMai @TotJun @TotJul @TotAgo @TotSet @TotOut @TotNov @TotDez @TotVl   #
end if
if MemNum(6)>0 then
?                  Dias  -> @TJand  @TFevd  @TMard  @TAbrd  @TMaid  @TJund  @TJuld  @TAgod  @TSetd  @TOutd  @TNovd  @TDezd  @Totd    #
?                  Horas -> @TJanh  @TFevh  @TMarh  @TAbrh  @TMaih  @TJunh  @TJulh  @TAgoh  @TSeth  @TOuth  @TNovh  @TDezh  @Toth    #
tmp=CntLin("INC",1)             'contar linha extra
end if
x=totlpz(1)
?====================================================================================================================================

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
 tmp=CntLin("INC",1)             'contar linha extra
end if
end sub

Sub LstC_Fim
?====================================================================================================================================
FxDiv LstPer
Print PrtCmd$("[SP]");
end sub




'-(Modo Grafico)-------------------------------------------------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
fx=PrtOri("L")
End sub


Sub Lst_CabGIni
fx=PrtOri("L")
end sub

Sub Lst_CabG
Titulo$="Mapa Estatístico de Remunerações e Descontos"
MargemD=250
Call SigCabEmpNome


PrWIN FON  ,    9                               'activar fonte
PrWIN TX_N ,    0, 5,"Data :"                    'data
PrWIN TX_N ,  190, 5,"Folha No :"               'folha

PrWin COR_T ,  CorLin                           'cor preto
PrWIN TX_N,  11, 5,@DataExt                     'listar data
PrWIN TX_N, 210, 5,@Pag                     'numero da folha




Col1=MargemE
Col2=Col1+60
Col3=Col2+50
Col4=Col3+60
ColMax=270

Lin=5
Lin2=Lin*2
Lin3=Lin*3
Lin4=Lin*4
Lin5=Lin*5
Lin6=Lin*6
Lin7=Lin*7
Lin8=Lin*8
Lin9=Lin*9
Lin10=Lin*10
Lin11=Lin*11
Lin12=Lin*12
Lin13=Lin*13
Lin14=Lin*14
Lin15=Lin*15
Lin16=Lin*16
Lin17=Lin*17




PrWIN AJT_B,  Margem, 20                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0                    'linha

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


PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN TX_N,  Col1   , 5,"Codigo"
PrWIN TX_N,  Col1   ,10,"Nome"
PrWIN TX_N,  Col1   ,15,"Morada"
PrWIN TX_N,  Col1   ,20,"Local"
PrWIN TX_N,  Col1   ,30,"Estado Civil"
PrWIN TX_N,  Col2   ,30,"Nº de Dependentes"
PrWIN TX_N,  Col3   ,30,"Nº de Dep. Deficientes"
PrWIN TX_N,  Col1   ,35,"Data Nasc."
PrWIN TX_N,  Col2   ,35,"Titularidade"
PrWIN TX_N,  Col1   ,40,"Doc. Domicilio"
PrWIN TX_N,  Col3   ,40,"Vencimento Mês"
PrWIN TX_N,  Col3   ,50,"Vencimento hora"

PrWIN TX_N,  Col1   ,45,"Categoria"
PrWIN TX_N,  Col3   ,45,"Vencimento dia"
PrWIN TX_N,  Col1   ,50,"Secção"


PrWin COR_T ,  CorLin                           'cor preto
PrWIN TX_N,  Col1+15, 5,@CodEmp
PrWIN TX_N,  Col1+15,10,@Nome
PrWIN TX_N,  Col1+15,15,@Morada
PrWIN TX_N,  Col1+15,20,@Local
PrWIN TX_N,  Col1+25,30,@EstCiv
PrWIN TX_N,  Col2+35,30,@NDep
PrWIN TX_N,  Col3+45,30,@NDepDef
PrWIN TX_N,  Col1+25,35,@DatNasc
PrWIN TX_N,  Col2+25,35,@Titular
PrWIN TX_N,  Col1+25,40,@DCodDom
PrWIN TX_NP, Col3+35,40,"N",@VencMes
PrWIN TX_N,  Col1+25,45,@Cat
PrWIN TX_NP, Col3+35,45,"N",@VencDia
PrWIN TX_N,  Col1+25,50,@Sec
PrWIN TX_NP, Col3+35,50,"N",@VencHor




Col3=Col2+50

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN TX_N,  Col3   ,10,"Data Admissão"
PrWIN TX_N,  Col3   ,15,"Data Fim Contracto"
PrWIN TX_N,  Col3   ,20,"Data Promoção"

PrWin COR_T ,  CorLin                           'cor preto
PrWIN TX_N,  Col3+35,10,@DatAdmi
PrWIN TX_N,  Col3+35,15,@DatFimCt
PrWIN TX_N,  Col3+35,20,@DatProm



'«««««««
PrWIN AJT_B,  Margem+175, 25              'posicao base
PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN TX_N,  0   , 0,"Tipo rendimento"
PrWIN TX_N,  32  , 0,"Contribuinte
PrWIN TX_N,  0   , 5,"Segurança Social"
PrWIN TX_N,  0   ,10,"Benefeciario"
PrWIN TX_N,  0   ,20,"Sindicato"
PrWIN TX_N,  0   ,25,"Sócio n."
PrWIN TX_N,  0   ,35,"Banco"
PrWIN TX_N,  0   ,40,"NIB"


PrWin COR_T ,  CorLin                           'cor preto
c=20
PrWIN TX_N,  27, 0,@TpRend
PrWIN TX_N,  53, 0,@cont
PrWIN TX_N,  30, 5,@Crss
PrWIN TX_N,   c,10,@NumCrss
PrWIN TX_N,   c,20,@Sind
PrWIN TX_N,   c,25,@NumSind
PrWIN TX_N,   c,35,@Banc
PrWIN TX_N,   c,40,@NumBanc


'PrWIN TX_N,  Col1+35,60,@TpRend
'PrWIN TX_N,  Col1+25,65,@Cont
'PrWIN TX_N,  Col1+30,70,@Crss



'«««««««

InicioEscrita=77
InicioLinhas=InicioEscrita+3
Fimdoc=170


'posicao de valores
Esp=17
Col1=0
Col2=7

ini=40
Col3=Ini
Col4=Ini+(esp*1)
Col5=Ini+(esp*2)
Col6=Ini+(esp*3)
Col7=Ini+(esp*4)
Col8=Ini+(esp*5)
Col9=Ini+(esp*6)
Col10=Ini+(esp*7)
Col11=Ini+(esp*8)
Col12=Ini+(esp*9)
Col13=Ini+(esp*10)
Col14=Ini+(esp*11)
Col15=Ini+(esp*12)+4
Col16=Ini+(esp*13)


PrWIN AJT_B,  Margem, InicioEscrita+1                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, ColMax, 0               	'linha
PrWIN GR_LI, 0, 7, ColMax, 7               	'linha


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

PrWIN TX_CTR,  Col1,Lin,Col3,Lin,"Descrição"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Janeiro"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Fevereiro"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin,"Março"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Abril"
PrWIN TX_CTR,  Col7,Lin,Col8,Lin,"Maio"
PrWIN TX_CTR,  Col8,Lin,Col9,Lin,"Junho"
PrWIN TX_CTR,  Col9,Lin,Col10,Lin,"Julho"
PrWIN TX_CTR,  Col10,Lin,Col11,Lin,"Agosto"
PrWIN TX_CTR,  Col11,Lin,Col12,Lin,"Setembro"
PrWIN TX_CTR,  Col12,Lin,Col13,Lin,"Outubro"
PrWIN TX_CTR,  Col13,Lin,Col14,Lin,"Novembro"
PrWIN TX_CTR,  Col14,Lin,Col15,Lin,"Dezembro"
PrWIN TX_CTR,  Col15,Lin,Col16,Lin,"Total"
PrWin COR_T ,  CorLin
End Sub


Sub Lst_LinG
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4                        'posicao base
PrWIN TX_N,   Col1,Lin,@Cd

PrWIN TX_DMX, Col2,Lin,Col3-Col2,@Descrx
PrWIN TX_NP,  Col3,Lin,"N",@Jan
PrWIN TX_NP,  Col4,Lin,"N",@Fev
PrWIN TX_NP,  Col5,Lin,"N",@Mar
PrWIN TX_NP,  Col6,Lin,"N",@Abr
PrWIN TX_NP,  Col7,Lin,"N",@Mai
PrWIN TX_NP,  Col8,Lin,"N",@Jun
PrWIN TX_NP,  Col9,Lin,"N",@Jul
PrWIN TX_NP,  Col10,Lin,"N",@Ago
PrWIN TX_NP,  Col11,Lin,"N",@Set
PrWIN TX_NP,  Col12,Lin,"N",@Out
PrWIN TX_NP,  Col13,Lin,"N",@Nov
PrWIN TX_NP,  Col14,Lin,"N",@Dez
PrWIN TX_NP,  Col15,Lin,"N",@Tlin
End Sub


Sub Lst_FimG
PrWIN AJT_B,  Margem, FimDoc               'posicao base
Lin1=2
Lin2=5
Lin3=8
Lin4=14

ini=10
Col1=Col3
Col2=Col4
Col3=Col5
Col4=Col6
Col5=col7
Col6=col8
Col7=col9
Col8=Col10
Col9=Col11
Col10=Col12
Col11=Col13
Col12=col14
Col13=col15


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


PrWIN COR_T,  CorTotGer
PrWIN TX_N,  Col0,Lin1,"Total Abonos"
PrWIN TX_N,  Col0,Lin2,"Total Faltas"
PrWIN TX_N,  Col0,Lin3,"Total Descontos"
PrWIN TX_N,  Col0,Lin4,"Total Liquido"

PrWIN TX_NP,  Col1,Lin1,"N",@TotAJan
PrWIN TX_NP,  Col1,Lin2,"N",@TotFJan
PrWIN TX_NP,  Col1,Lin3,"N",@TotDJan
PrWIN TX_NP,  Col1,Lin4,"N",@TotLJan

PrWIN TX_NP,  Col2,Lin1,"N",@TotAFev
PrWIN TX_NP,  Col2,Lin2,"N",@TotFFev
PrWIN TX_NP,  Col2,Lin3,"N",@TotDFev
PrWIN TX_NP,  Col2,Lin4,"N",@TotLFev

PrWIN TX_NP,  Col3,Lin1,"N",@TotAMar
PrWIN TX_NP,  Col3,Lin2,"N",@TotFMar
PrWIN TX_NP,  Col3,Lin3,"N",@TotDMar
PrWIN TX_NP,  Col3,Lin4,"N",@TotLMar

PrWIN TX_NP,  Col4,Lin1,"N",@TotAAbr
PrWIN TX_NP,  Col4,Lin2,"N",@TotFAbr
PrWIN TX_NP,  Col4,Lin3,"N",@TotDAbr
PrWIN TX_NP,  Col4,Lin4,"N",@TotLAbr

PrWIN TX_NP,  Col5,Lin1,"N",@TotAMai
PrWIN TX_NP,  Col5,Lin2,"N",@TotFMai
PrWIN TX_NP,  Col5,Lin3,"N",@TotDMai
PrWIN TX_NP,  Col5,Lin4,"N",@TotLMai

PrWIN TX_NP,  Col6,Lin1,"N",@TotAJun
PrWIN TX_NP,  Col6,Lin2,"N",@TotFJun
PrWIN TX_NP,  Col6,Lin3,"N",@TotDJun
PrWIN TX_NP,  Col6,Lin4,"N",@TotLJun

PrWIN TX_NP,  Col7,Lin1,"N",@TotAJul
PrWIN TX_NP,  Col7,Lin2,"N",@TotFJul
PrWIN TX_NP,  Col7,Lin3,"N",@TotDJul
PrWIN TX_NP,  Col7,Lin4,"N",@TotLJul

PrWIN TX_NP,  Col8,Lin1,"N",@TotAAgo
PrWIN TX_NP,  Col8,Lin2,"N",@TotFAgo
PrWIN TX_NP,  Col8,Lin3,"N",@TotDAgo
PrWIN TX_NP,  Col8,Lin4,"N",@TotLAgo

PrWIN TX_NP,  Col9,Lin1,"N",@TotASet
PrWIN TX_NP,  Col9,Lin2,"N",@TotFSet
PrWIN TX_NP,  Col9,Lin3,"N",@TotDSet
PrWIN TX_NP,  Col9,Lin4,"N",@TotLSet

PrWIN TX_NP,  Col10,Lin1,"N",@TotAOut
PrWIN TX_NP,  Col10,Lin2,"N",@TotFOut
PrWIN TX_NP,  Col10,Lin3,"N",@TotDOut
PrWIN TX_NP,  Col10,Lin4,"N",@TotLOut

PrWIN TX_NP,  Col11,Lin1,"N",@TotANov
PrWIN TX_NP,  Col11,Lin2,"N",@TotFNov
PrWIN TX_NP,  Col11,Lin3,"N",@TotDNov
PrWIN TX_NP,  Col11,Lin4,"N",@TotLNov

PrWIN TX_NP,  Col12,Lin1,"N",@TotADez
PrWIN TX_NP,  Col12,Lin2,"N",@TotFDez
PrWIN TX_NP,  Col12,Lin3,"N",@TotDDez
PrWIN TX_NP,  Col12,Lin4,"N",@TotLDez

PrWIN TX_NP,  Col13,Lin1,"N",@TotAGer
PrWIN TX_NP,  Col13,Lin2,"N",@TotFGer
PrWIN TX_NP,  Col13,Lin3,"N",@TotDGer
PrWIN TX_NP,  Col13,Lin4,"N",@TotLGer

linPer=fimdoc+18
Call SigLstFim

x=TotLpz(0)       'limpar totalizadores
End Sub








'------------------------------------------------------------------------------
'  Analise configuravel
'------------------------------------------------------------------------------
Sub LstCG_Cab

Call SigLstCab

'posicao de valores
Esp=11
Col1=0
Col2=5

ini=43
Col3=Ini
Col4=Ini+(esp*1)
Col5=Ini+(esp*2)
Col6=Ini+(esp*3)
Col7=Ini+(esp*4)
Col8=Ini+(esp*5)
Col9=Ini+(esp*6)
Col10=Ini+(esp*7)
Col11=Ini+(esp*8)
Col12=Ini+(esp*9)
Col13=Ini+(esp*10)
Col14=Ini+(esp*11)
Col15=Ini+(esp*12)
Col16=Ini+(esp*13)
cmax=Ini+(esp*14)



PrWIN AJT_B,  Margem, 25                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, cmax, 0               	'linha
PrWIN GR_LI, 0, 7, cmax, 7               	'linha


PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   7,   1                        	'activar fonte
Lin=2

PrWIN TX_CTR,  Col1,Lin,Col3,Lin,"Descrição"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Janeiro"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Fevereiro"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin,"Março"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Abril"
PrWIN TX_CTR,  Col7,Lin,Col8,Lin,"Maio"
PrWIN TX_CTR,  Col8,Lin,Col9,Lin,"Junho"
PrWIN TX_CTR,  Col9,Lin,Col10,Lin,"Julho"
PrWIN TX_CTR,  Col10,Lin,Col11,Lin,"Agosto"
PrWIN TX_CTR,  Col11,Lin,Col12,Lin,"Setembro"
PrWIN TX_CTR,  Col12,Lin,Col13,Lin,"Outubro"
PrWIN TX_CTR,  Col13,Lin,Col14,Lin,"Novembro"
PrWIN TX_CTR,  Col14,Lin,Col15,Lin,"Dezembro"
PrWIN TX_CTR,  Col15,Lin,Col16,Lin,"Total"
PrWin COR_T ,  CorLin
InicioEscrita=30
AlturaLinha=3
End Sub


Sub LstCG_Lin
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*AlturaLinha*1          	'posicao base
Lin=0
if MemNum(5)>0 then
  PrWIN TX_N,   Col1,Lin,"(V)"
  PrWIN TX_DMX, Col2,Lin,Col3-Col2,@CodLin
  PrWIN TX_NP,  Col3,Lin,"N",@Jan
  PrWIN TX_NP,  Col4,Lin,"N",@Fev
  PrWIN TX_NP,  Col5,Lin,"N",@Mar
  PrWIN TX_NP,  Col6,Lin,"N",@Abr
  PrWIN TX_NP,  Col7,Lin,"N",@Mai
  PrWIN TX_NP,  Col8,Lin,"N",@Jun
  PrWIN TX_NP,  Col9,Lin,"N",@Jul
  PrWIN TX_NP,  Col10,Lin,"N",@Ago
  PrWIN TX_NP,  Col11,Lin,"N",@Set
  PrWIN TX_NP,  Col12,Lin,"N",@Out
  PrWIN TX_NP,  Col13,Lin,"N",@Nov
  PrWIN TX_NP,  Col14,Lin,"N",@Dez
  PrWIN TX_NP,  Col15,Lin,"N",@Tlin1
  Lin=AlturaLinha
end if
IF MemNum(6)>0 then
  ajt=2
  PrWIN TX_N,   Col1,Lin,"(Q)"
  PrWIN TX_DMX, Col2,Lin,Col3-Col2,@CodLin
  PrWIN TX_NP,  Col3+ajt,Lin,"N",@Jan2
  PrWIN TX_NP,  Col4+ajt,Lin,"N",@Fev2
  PrWIN TX_NP,  Col5+ajt,Lin,"N",@Mar2
  PrWIN TX_NP,  Col6+ajt,Lin,"N",@Abr2
  PrWIN TX_NP,  Col7+ajt,Lin,"N",@Mai2
  PrWIN TX_NP,  Col8+ajt,Lin,"N",@Jun2
  PrWIN TX_NP,  Col9+ajt,Lin,"N",@Jul2
  PrWIN TX_NP,  Col10+ajt,Lin,"N",@Ago2
  PrWIN TX_NP,  Col11+ajt,Lin,"N",@Set2
  PrWIN TX_NP,  Col12+ajt,Lin,"N",@Out2
  PrWIN TX_NP,  Col13+ajt,Lin,"N",@Nov2
  PrWIN TX_NP,  Col14+ajt,Lin,"N",@Dez2
  PrWIN TX_NP,  Col15+ajt,Lin,"N",@Tlin2
end if

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
 tmp=CntLin("INC",1)             'contar linha extra
end if
End Sub


Sub LstCG_Trb
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*AlturaLinha*1          	'posicao base
PrWIN TX_N,  Col1,0,@TrbLin
End sub


Sub LstCG_Sec
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*AlturaLinha*1          	'posicao base
PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN TX_N,  Col1   ,0,"Seccao"
PrWIN TX_N,  Col1+20,0,@Sec
PrWIN COR_T,  CorLin                        'cor de LINHA
end sub


Sub LstCG_St
PrWIN COR_T,  CorTraco                        'cor 
PrWIN AJT_B,  Margem+2, InicioEscrita+Doc_CntLin*AlturaLinha*1          	'posicao base
PrWIN GR_LI, 0,0,Cmax,0                  'linha
Lin=0
if MemNum(5)>0 then
  PrWIN TX_N,    Col2,Lin,"Valores"
  PrWIN TX_NP,   Col3,Lin,"N",@TotJan
  PrWIN TX_NP,   Col4,Lin,"N",@TotFev
  PrWIN TX_NP,   Col5,Lin,"N",@TotMar
  PrWIN TX_NP,   Col6,Lin,"N",@TotAbr
  PrWIN TX_NP,   Col7,Lin,"N",@TotMai
  PrWIN TX_NP,   Col8,Lin,"N",@TotJun
  PrWIN TX_NP,   Col9,Lin,"N",@TotJul
  PrWIN TX_NP,  Col10,Lin,"N",@TotAgo
  PrWIN TX_NP,  Col11,Lin,"N",@TotSet
  PrWIN TX_NP,  Col12,Lin,"N",@TotOut
  PrWIN TX_NP,  Col13,Lin,"N",@TotNov
  PrWIN TX_NP,  Col14,Lin,"N",@TotDez
  PrWIN TX_NP,  Col15,Lin,"N",@TotVl
  Lin=AlturaLinha
end if

if MemNum(6)>0 then
  PrWIN TX_N,    Col2,Lin,"Dias"
  PrWIN TX_NP,   Col3,Lin,"N",@TJand
  PrWIN TX_NP,   Col4,Lin,"N",@TFevd
  PrWIN TX_NP,   Col5,Lin,"N",@TMard
  PrWIN TX_NP,   Col6,Lin,"N",@TAbrd
  PrWIN TX_NP,   Col7,Lin,"N",@TMaid
  PrWIN TX_NP,   Col8,Lin,"N",@TJund
  PrWIN TX_NP,   Col9,Lin,"N",@TJuld
  PrWIN TX_NP,  Col10,Lin,"N",@TAgod
  PrWIN TX_NP,  Col11,Lin,"N",@TSetd
  PrWIN TX_NP,  Col12,Lin,"N",@TOutd
  PrWIN TX_NP,  Col13,Lin,"N",@TNovd
  PrWIN TX_NP,  Col14,Lin,"N",@TDezd
  PrWIN TX_NP,  Col15,Lin,"N",@Totd

  Lin=Lin+AlturaLinha
  PrWIN TX_N,    Col2,Lin,"Horas"
  PrWIN TX_NP,   Col3,Lin,"N",@TJanh
  PrWIN TX_NP,   Col4,Lin,"N",@TFevh
  PrWIN TX_NP,   Col5,Lin,"N",@TMarh
  PrWIN TX_NP,   Col6,Lin,"N",@TAbrh
  PrWIN TX_NP,   Col7,Lin,"N",@TMaih
  PrWIN TX_NP,   Col8,Lin,"N",@TJunh
  PrWIN TX_NP,   Col9,Lin,"N",@TJulh
  PrWIN TX_NP,  Col10,Lin,"N",@TAgoh
  PrWIN TX_NP,  Col11,Lin,"N",@TSeth
  PrWIN TX_NP,  Col12,Lin,"N",@TOuth
  PrWIN TX_NP,  Col13,Lin,"N",@TNovh
  PrWIN TX_NP,  Col14,Lin,"N",@TDezh
  PrWIN TX_NP,  Col15,Lin,"N",@Toth
  tmp=CntLin("INC",1)             'contar linha extra
end if
x=totlpz(1)
'PrWIN GR_LI, 0, Lin2, cmax, Lin2              	'linha

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
  tmp=CntLin("INC",1)             'contar linha extra
end if
end sub


Sub LstCG_Fim
PrWIN AJT_B,  Margem, LinPer-3        	'posicao base
PrWIN COR_T,CorTraco                      'cor de linhas
PrWIN GR_LI, 0, 0, cmax, 0                'linha
Call SigLstFim
PrWin FP                                  'fim de pagina
x=TotLpz(0)                               'limpar totalizadores
End Sub



##

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