'Nome       : MapFer.Std
'Tipo       : LST
'Data       : 2004/10/21
'Versao     : 1.3
'Descricao  : Mapa de ferias


'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0  2004/??/?? ---------------------------------------------------
'Versao base


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=MAPFER_RES
Nome                       [DocNom]=MAPFER2_G,Mapa Resumo

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=38
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Colunas visiveis           [DocEsp]=ColLst=225


'funcoes de listagem
Listar cabecalho            [FxCAB]=Pw_ResCab
Listar linhas               [FxLIN]=Pw_ResLin
Listar fim                  [FxFIM]=Pw_ResFim
##


#DOC
Tipo                       [DocTip]=MAPFER_RES
Nome                       [DocNom]=MAPFER3_G,Categoria/Datas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=25
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0


'funcoes de listagem
Listar cabecalho            [FxCAB]=Pw_catDtCab
Listar linhas               [FxLIN]=Pw_CatDtLin
Listar fim                  [FxFIM]=Pw_CatDtFim
##


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


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

'titulos
TxDiaSem    = MemTxt$(11)
TxMeses     = MemTxt$(10)
TxDia1      = MemTxt$(12)
TxDia2      = MemTxt$(13)


'linha
cod         = Gpe_Mst_Trb$
nome        = Gpe_Mst_Nome$
Df          = FrmVal$(MemNum(20),21,2)
Du          = FrmVal$(MemNum(21),21,2)
txFer       = MemTxt$(20)

Cat         = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
DtAdm       = FrmVal$(Gpe_Mst_DtAdmi,44,0)

##



'-----------------------------------------------------------------------------
' Formato do documento (Cabecalho, Linhas e Fim)
'-----------------------------------------------------------------------------
#PGM
'-------------------------------------------------------------------------------
'   Mapa resumo 
'-------------------------------------------------------------------------------
Sub Pw_ResCabini
call SigLstIni
Margem=3                                           'margem esquerda
MargemD=300                                        'margem direita
fx=PRTORI("L")
end sub


Sub Pw_ResCab
PrWin COR_F ,  15
PrWIN AJT_B ,  Margem, 5                           'posicao base
PrWin COR_T ,  CorTitLst
PrWIN FON   ,       9,  1                          'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")     'nome da empresa
PrWIN FON   ,      12,  1                          'activar fonte
PrWin FON, "BOLD+"                                 'desactivar bold
PrWIN TX_CTR,       0,  5, MargemD, 5,"Mapa de Férias"     'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN FON  ,    9                                  'activar fonte
PrWIN TX_N ,    0, 10,"Data :"                     'data
PrWIN TX_N ,  MargemD-40, 10,"Folha No :"          'folha

PrWin COR_T ,  CorLin                              'cor de texto
PrWIN TX_N,   11, 10,@Data                         'listar data
PrWIN TX_N,  MargemD-25, 10,Doc_CntPag                   'numero da folha

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

Inicio=14
PrWIN AJT_B,  Margem, 25                           'posicao base

Col1=0
Col2=9
Col3=45
Col4=50
Col5=53

Lin=0
LinMax=160

PrWIN TX_N,  Col1,Lin,"Empregado"

PrWIN GR_LI, col3, 0, col3 ,LinMax

PrWIN FON  ,  7,   1                        	   'activar fonte
PrWIN TX_N,  Col3,Lin+2,"Fer."
PrWIN TX_N,  Col4-1,Lin+2,"Ut."

PrWIN FON  ,  8,   1                        	   'activar fonte

max=memnum(10)                                   'maximo de meses
esp=memnum(11)                                  'espaco entre meses

for cnt=1 to max
   cl=col5+(memnum(11)*(cnt-1))
   PrWin TX_CTR, Cl,Lin,Cl+memnum(11),lin,memtxt$(20+cnt)
   PrWIN GR_LI, cl, 0, cl  ,LinMax
next
cmax=cl+MemNum(11)
PrWIN GR_LI, cmax, 0, cmax  ,LinMax


PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, Col1, 5, cmax  ,5                  'linha superior
PrWIN GR_LI, Col1, LinMax, cmax  ,LinMax        'linha inferior

End Sub


Sub Pw_ResLin
PrWIN COR_T,CorLin                              'cor 
PrWIN AJT_B,  Margem, 28+Doc_CntLin*4          	'posicao base
PrWIN TX_NP,    Col1,0,"N",@Cod
PrWIN FON  ,  7,   1                        	      'activar fonte
PrWIN TX_DMX,   Col2,0,Col3-(Col2+1),Gpe_Mst_Nome$    'nome
PrWIN FON  ,  8,   1                        	      'activar fonte

PrWIN TX_NP,    Col3+.5,0,"N",@Df                     'dias ferias
PrWIN TX_NP,    Col4-.5,0,"N",@Du                     'dias uteis

for cnt=1 to max
   cl=col5+(memnum(11)*(cnt-1))                       'coluna de mes
   PrWIN TX_N, cl,Lin,memtxt$(40+cnt)                 'ferias de mes
next
End Sub


Sub Pw_ResFimAjt
call Pw_ResFim
End Sub



Sub Pw_ResFim
PrWIN AJT_B,  Margem, 187                         'posicao base
PrWIN COR_T, CorPer                               'cor
PrWIN FON  ,   8,   1                             'activar fonte
PrWin TX_N,    5,   0,SigLstInf$("PERSON")        'personalizacao
PrWin FP
End Sub


'-------------------------------------------------------------------------------
'   Mapa categoria + datas
'-------------------------------------------------------------------------------
Sub Pw_CatDtCabini
call SigLstIni
Margem=3                                           'margem esquerda
MargemD=300                                        'margem direita
fx=PRTORI("L")
end sub


Sub Pw_CatDtCab
PrWin COR_F ,  15
PrWIN AJT_B ,  Margem, 5                           'posicao base
PrWin COR_T ,  CorTitLst
PrWIN FON   ,       9,  1                          'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")     'nome da empresa
PrWIN FON   ,      12,  1                          'activar fonte
PrWin FON, "BOLD+"                                 'desactivar bold




txtit$="Mapa de férias relativo ao ano de "+ left$(FrmVal$(Sig_DtHoje,40,0),4)
PrWIN TX_CTR,       0,  5, MargemD, 5,txtit$    'titulo centrado




PrWIN AJT_B ,  Margem+35, 18                           'posicao base
PrWin FON, "BOLD+"                                 'bold
PrWIN FON   ,      10,  1                          'activar fonte
PrWIN TX_N ,  0, 0,"Firma"
PrWIN TX_N ,  0, 5,"Morada"
PrWIN TX_N ,  0,10,"Actividade"
PrWin FON, "BOLD-"                                 'bold

PrWIN FON   ,      11,  1                          'activar fonte
PrWIN COR_T,CorLin                              'cor 
PrWIN TX_N ,  20, 0,Emp_Inf_Nome$
PrWIN TX_N ,  20, 5,Emp_Inf_Morada$
PrWIN TX_N ,  20, 10,Emp_Inf_Activ$
PrWin FON, "BOLD-"                                 'desactivar bold


PrWIN AJT_B ,  Margem, 35                           'posicao base
PrWIN COR_T,CorTitLst                             'cor 
PrWIN FON  ,    9                                  'activar fonte
PrWIN TX_N ,    0, 0,"Data :"                     'data
PrWIN TX_N ,  MargemD-40, 0,"Folha No :"          'folha

PrWin COR_T ,  CorLin                              'cor de texto
PrWIN TX_N,   11, 0,@Data                         'listar data
PrWIN TX_N,  MargemD-25, 0,Doc_CntPag                   'numero da folha




PrWIN AJT_B,  Margem, 40                           'posicao base
PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  ,  11,   1                        	   'activar fonte

Tcod=12
Tnome=100
Tcat=40
TDta=25
TDti=25
TDtf=25
Tdias=12
Tobs=50

Col1=0
Col2=Col1+Tcod
Col3=Col2+Tnome
Col4=Col3+Tcat
Col5=Col4+TDta
Col6=Col5+TDti
Col7=Col6+Tdtf
Col8=Col7+Tdias
ColMax=Col8+Tobs








lin1=0
lin2=Lin1+4
PrWIN GR_LI, Col1,Lin1, colmax ,0


PrWIN TX_N,  Col2+10,Lin2,"Nome"
PrWIN TX_N,  Col3,Lin2,"Categoria"

PrWIN TX_N,  Col4+3,Lin1,"Data"
PrWIN TX_N,  Col4,Lin2,"Admissao"

PrWIN TX_N,  Col5+10,Lin1,"Período de Férias
PrWIN TX_N,  Col5+5,Lin2,"Inicio"
PrWIN TX_N,  Col6+5,Lin2,"Termo"

PrWIN TX_N,  Col7,Lin1,"Dias"
PrWIN TX_N,  Col7,Lin2,"Uteis"

'PrWIN TX_N,  Col8,Lin2,"Observacoes"
PrWIN GR_LI, Col1,9, colmax ,9
End Sub


Sub Pw_CatDtLin

PrWIN COR_T,CorLin                              'cor 
PrWIN AJT_B,  Margem, 45+Doc_CntLin*5          	'posicao base
PrWIN TX_NP,    Col1,0,"N",gpe_mst_trb$
'PrWIN TX_NP,    Col1,0,"N",memnum(79)


PrWIN TX_N,   Col2,0,Gpe_Mst_Nome$    'nome
PrWIN TX_N,   Col3,0,@Cat             'categoria
PrWIN TX_N,   Col4,0,@DtAdm           'data admissao



Lin=0
max=memnum(79)         'periodos de ferias
for cnt=1 to max
   dti=memnum(80+cnt)                  
   dtf=memnum(90+cnt)

   PrWin TX_NP, Col5,Lin,"N",frmval$(dti,44,0)
   PrWin TX_NP, Col6,Lin,"N",frmval$(dtf,44,0)
   PrWin TX_NP, Col7,Lin,"N",memnum(70+cnt)
   Lin=lin+4.5

if cnt>1 then
  tmp=CntLin("INC",1)                             'acertar contador linhas
end if
next

if lin=0 then
lin=4.5
end if
PrWIN GR_LI, Col1,lin, colmax ,lin


End Sub



Sub Pw_CatDtFimAjt
call Pw_CatDtFim
End Sub



Sub Pw_CatDtFim
PrWIN AJT_B,  Margem, 187                         'posicao base
PrWIN GR_LI, Col1,0, colmax ,0
PrWIN COR_T, CorPer                               'cor
PrWIN FON  ,   8,   1                             'activar fonte
PrWin TX_N,    5,   0,SigLstInf$("PERSON")        'personalizacao
PrWin FP
End Sub



##


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