'Nome       : FREMUN.STD
'Tipo       : LST
'Data       : 2014/03/20
'Versao     : 1.1
'Descricao  : Mapa de salarios - angola

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.1  2014/??/?? ---------------------------------------------------
'No valor do salario considerar faltas

'- Versao : 1.0  2012/07/30 ---------------------------------------------------
'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,Mapa de salários

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=43
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
Identificador de listagem  [DocEsp]=LstId=MAPSAL


'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       = FrmVal$(val(Gpe_Mst_Trb$),21,2.0)
Nome      = Gpe_Mst_Nome$
trbCat    = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")

InfSal1   = "Salário "+EmpTabCon$("MOEDA",Gpe_Esp_Moeda1,"ABRV")
InfSal2   = "Salário "+EmpTabCon$("MOEDA",Gpe_Esp_Moeda2,"ABRV")

InfLIq1   = "Líquido "+EmpTabCon$("MOEDA",Gpe_Esp_Moeda1,"ABRV")
InfLIq2   = "Líquido "+EmpTabCon$("MOEDA",Gpe_Esp_Moeda2,"ABRV")

VB        = GpeFrmMoe$("",12,GpeAcmLst("V","REM","VB")-GpeAcmLst("V","REM","FLT"))
VBMe      = GpeFrmMoe$("",12,MoeCnv("N",GpeAcmLst("V","REM","VB")-GpeAcmLst("V","REM","FLT"),Gpe_Esp_Moeda1,Gpe_Esp_Moeda2))


SA        = GpeFrmMoe$("",12,GpeAcmLst("V","REM","SA"))
SF        = GpeFrmMoe$("",12,GpeAcmLst("V","REM","SF"))
AF        = GpeFrmMoe$("",12,GpeAcmLst("V","REM","AF"))

ILQ       = GpeFrmMoe$("",12,Gpesomacmv(gpe_mst_trb$,"004",0,"V"))

SS        = GpeFrmMoe$("",12,GpeAcmLst("V","REM","SS"))
IRT       = GpeFrmMoe$("",12,GpeAcmLst("V","REM","IRT"))
FLT       = GpeFrmMoe$("",12,GpeAcmLst("V","REM","FLT"))
ODS       = GpeFrmMoe$("",12,GpeAcmLst("V","REM","ODS"))
DSC       = GpeFrmMoe$("",12,GpeAcmLst("V","REM","SS;IRT;FLT;ODS"))

LIQ       = GpeFrmMoe$("",12,GpeAcmLst("V","REM","VB;SA;SF;AF")-GpeAcmLst("V","REM","SS;IRT;FLT;ODS"))
LIQME     = GpeFrmMoe$("",12,MoeCnv("N",GpeAcmLst("V","REM","VB;SA;SF;AF")-GpeAcmLst("V","REM","SS;IRT;FLT;ODS"),Gpe_Esp_Moeda1,Gpe_Esp_Moeda2))



TVB        = GpeFrmMoe$("",12,total(VB))
TVBMe      = GpeFrmMoe$("",12,total(VBME))
TSA        = GpeFrmMoe$("",12,total(SA))
TSF        = GpeFrmMoe$("",12,total(SF))
TAF        = GpeFrmMoe$("",12,total(AF))
TILQ       = GpeFrmMoe$("",12,total(ILQ))
TSS        = GpeFrmMoe$("",12,total(SS))
TIRT       = GpeFrmMoe$("",12,total(IRT))
TFLT       = GpeFrmMoe$("",12,total(FLT))
TODS       = GpeFrmMoe$("",12,total(ODS))
TDSC       = GpeFrmMoe$("",12,total(DSC))
TLIQ       = GpeFrmMoe$("",12,total(LIQ))
TLIQME     = GpeFrmMoe$("",12,total(LIQME))


TIlq8      = GpeFrmMoe$("",12,Gpesomacmv("*","094",0,"V"))
TIlq3      = GpeFrmMoe$("",12,Gpesomacmv("*","704",0,"V"))
TIlq11     = GpeFrmMoe$("",12,Gpesomacmv("*","704",0,"V")+Gpesomacmv("*","094",0,"V"))



##


#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$="Mapa de salários"
Titulo$=tx$+ " - "+PeriodoLst$

Call SigCabNor              

esp=16

Co1=0
Co2=Co1+4               'nome
Co3=co2+40              'categoria
Co4=co3+20              'salario moeda 1
Co5=co4+esp             'salario moeda 2
Co6=co5+esp             'subs alim.
Co7=co6+esp             'subs ferias
Co8=co7+esp             'abono familia
Co9=co8+esp             'iliquido

co10=co9+esp            'seg-social
Co11=co10+esp           'irt
Co12=co11+esp           'faltas
Co13=co12+esp           'outros descontos
Co14=co13+esp           'total descontos
Co15=co14+esp           'liquido moeda 1
Co16=co15+esp           'liquido moeda 2
Co17=co16+esp           'liquido moeda 2
CMax=Co17               'coluna maxima

Lin=1
lin2=4
lin3=8

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

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

PrWIN TX_N,     Co2,Lin,"Empregado"
PrWIN TX_N,     Co3,Lin,"Categoria"

PrWIN TX_CTR,   Co4,Lin2,Co5,Lin2,@InfSal1
PrWIN TX_CTR,   Co5,Lin2,Co6,Lin2,@InfSal2

PrWIN TX_CTR,   Co6, Lin2,Co7, Lin2,"Subs.Alim."
PrWIN TX_CTR,   Co7, Lin2,Co8, Lin2,"Subs.Férias"
PrWIN TX_CTR,   Co8, Lin2,Co9, Lin2,"Abono Família"

PrWIN TX_CTR,   Co9,Lin ,Co10, Lin,"Salário"
PrWIN TX_CTR,   Co9,Lin2,Co10,Lin2,"Iliquido"

PrWIN TX_CTR,   Co10,Lin ,Co11, Lin,"Segurança"
PrWIN TX_CTR,   Co10,Lin2,Co11,Lin2,"Social"

PrWIN TX_CTR,   Co11,Lin2,Co12, Lin2,"IRT"

PrWIN TX_CTR,   Co12,Lin2,Co13, Lin2,"Faltas"

PrWIN TX_CTR,   Co13,Lin ,Co14, Lin,"Outros"
PrWIN TX_CTR,   Co13,Lin2,Co14,Lin2,"Descontos"

PrWIN TX_CTR,   Co14,Lin2,Co15,Lin2,"Total"

PrWIN TX_CTR,   Co15,Lin ,Co16, Lin,"Salário"
PrWIN TX_CTR,   Co15,Lin2,Co16,Lin2,@InfLiq1

PrWIN TX_CTR,   Co16,Lin ,Co17, Lin,"Salário"
PrWIN TX_CTR,   Co16,Lin2,Co17,Lin2,@InfLiq2

PrWin COR_T, CorLin
mxl=0
inicioLinhas=33
FimDoc=165
LinPer=Fimdoc+20
PrWIN FON  ,   6,   1                        	'activar fonte
end Sub

'-----------------------------------------------------------------------------
Sub LinPos
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*3          	'posicao base
end sub

'-----------------------------------------------------------------------------
Sub Frm_LinG
'-----------------------------------------------------------------------------
call LinPos
ln=0
PrWIN TX_NP,   Co1,ln,"N",@Trb
PrWIN TX_DMX,  Co2,ln,Co3-Co2,@Nome
PrWIN TX_DMX,  Co3,ln,Co4-Co3,@trbCat

PrWIN TX_NP,   Co4,ln,"N",@vb
PrWIN TX_NP,   Co5,ln,"N",@vbme
PrWIN TX_NP,   Co6,ln,"N",@sa
PrWIN TX_NP,   Co7,ln,"N",@sf
PrWIN TX_NP,   Co8,ln,"N",@af
PrWIN TX_NP,   Co9,ln,"N",@ilq

PrWIN TX_NP,  Co10,ln,"N",@ss
PrWIN TX_NP,  Co11,ln,"N",@irt
PrWIN TX_NP,  Co12,ln,"N",@flt
PrWIN TX_NP,  Co13,ln,"N",@ods
PrWIN TX_NP,  Co14,ln,"N",@dsc
PrWIN TX_NP,  Co15,ln,"N",@liq
PrWIN TX_NP,  Co16,ln,"N",@liqme
End Sub



'-----------------------------------------------------------------------------
Sub Frm_FimGAjt
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, FimDoc

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


PrWIN COR_T,  CorTotGer
PrWIN TX_N,  Co14,3,"listagem incompleta, continua ...."

Call SigLstRod
PrWin FP
End Sub


'-----------------------------------------------------------------------------
Sub Frm_FimG
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, FimDoc
ln=1
ln2=4
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, CMax, 0                      'linha
'PrWIN GR_LI, 0, 8, CMax,8                	'linha


PrWIN COR_T,  CorTotGer
PrWIN TX_N,  30,ln,"TOTAIS"


PrWIN TX_NP,   Co4,ln,"N",@tvb
PrWIN TX_NP,   Co5,ln2,"N",@tvbme
PrWIN TX_NP,   Co6,ln,"N",@tsa
PrWIN TX_NP,   Co7,ln2,"N",@tsf
PrWIN TX_NP,   Co8,ln,"N",@taf
PrWIN TX_NP,   Co9,ln2,"N",@tilq

PrWIN TX_NP,  Co10,ln,"N",@tss
PrWIN TX_NP,  Co11,ln2,"N",@tirt
PrWIN TX_NP,  Co12,ln,"N",@tflt
PrWIN TX_NP,  Co13,ln2,"N",@tods
PrWIN TX_NP,  Co14,ln,"N",@tdsc
PrWIN TX_NP,  Co15,ln2,"N",@tliq
PrWIN TX_NP,  Co16,ln,"N",@tliqme

call ResumoFinal

x=TotLpz(0)                                   'azerar totalizadores


Call SigLstRod
PrWin FP
End Sub


'-----------------------------------------------------------------------------
Sub ResumoFinal
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem+135, FimDoc+10
PrWin FON, 7,1


ln=1
ln2=4
ln3=8

esp=25
c1=0
c2=c1+esp
c3=c2+esp
c4=c3+esp
c5=c4+esp
c6=c5+esp
cmax=c6+10

PrWIN COR_T,CorTraco                          'cor de linhas
PrWIN GR_LI, 0,    0, cMax,0                'linha
PrWIN GR_LI, 0, Ln3, cMax,ln3                 'linha


PrWIN COR_T,  CorTotGer

PrWIN TX_N,   c1,ln,"Total Salário Iliquido"
PrWIN TX_N,   c2,ln," 8% Salário iliquido"
PrWIN TX_N,   c3,ln," 3% Salário Iliquido"
PrWIN TX_N,   c4,ln,"11% a depositar"
PrWIN TX_N,   c5,ln,"Imposto Rendimento Trabalho"

PrWIN TX_NP,  c1,ln2,"N",@Tilq
PrWIN TX_NP,  c2,ln2,"N",@tilq8
PrWIN TX_NP,  c3,ln2,"N",@tilq3
PrWIN TX_NP,  c4,ln2,"N",@tilq11
PrWIN TX_NP,  c5+10,ln2,"N",@tirt



end sub

##




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