Bom dia Kapiaba...
Então esse relatorio é feito por vias
vou deixar o fonte dele aqui pra vc ver
Okay....
#Include 'Fivewin.ch'
*****************************************************************************
* Contrato de Trabalho Temporário *
* *
* agencia de empregos *
* *
*****************************************************************************
Static ofont,ofonts,ofont1,aget,vi
Function trab_temp
Public ind01
Set talk off
Set delete on
Close databases
Private mdd,mdc,dias
Select 0
if net_use("fpfun&sigla",.f.,5)
set index to funfp&sigla,fnofp&sigla
else
msgalert("Arquivo Bloqueado por Outro Terminal","Aviso")
close databases
return
endif
Select 0
if net_use("fpemp000",.f.,5)
set index to empfp000
else
msgalert("Arquivo Bloqueado por Outro Terminal","Aviso")
close databases
return
endif
select fpemp000
seek val(sigla)
select fpfun&sigla
mcod1= 0
dias = 0
xmdd = ctod(" / / ")
xmdd = date()
vias = 0
aget := array(3)
Define font ofonts name "Arial mt black" size 13,14 italic
define font ofont name "fixedsys" size 8,13
Define font ofont1 name "arial" size 7,14 bold
Define dialog ind01 from 12,0 to 26,73 title 'Contrato de Trabalho Temporário' style 5 color 'b/w'
@ 0.4,0.8 to 2,40 color 'r+*/w'
@ 0.5,01 say ' ' of ind01 size 274,19 color 'gb/gb'
@ 0.9,2.8 say "Contrato de Trabalho Temporário" of ind01 size 220,11 color '+w/gb' font ofonts
@ 2.4,9.5 say "Numero do Funcionário_:" of ind01 size 120,13 font ofont color 'b/w'
@ 3.3,9.5 say "Data do Contrato______:" of ind01 size 120,13 font ofont color 'b/w'
@ 4.2,9.5 say "Informe o nr.vias_____:" of ind01 size 120,13 font ofont color 'b/w'
@ 03,20 get aget[1] var mcod1 pict '9999' of ind01 size 21,12 font ofont valid tem_cof()
@ 04,20 get aget[2] var xmdd pict '99/99/9999' of ind01 size 45,12 font ofont
@ 05,20 get aget[3] var vias pict '99' of ind01 size 18,12 font ofont valid ! empty(vias)
@ 78,195 Btnbmp size 41,13 noborder FILENAME "Bto4.bmp" of ind01 action tam13()
@ 78,240 Btnbmp size 41,13 noborder FILENAME "cancela.bmp" of ind01 action ind01:end()
@ 2.2,30.5 button 'F' of ind01 size 11,9 action tdall() // funcwin.prg
Activate dialog ind01 on paint wndboxraised(ind01:hdc,4,4,188,570) centered
Close databases
Return nil
Function tem_cof
if ! empty(mcod1)
select fpfun&sigla
set order to 1
seek mcod1
if ! Found()
msgalert("Funcionario não Cadastrado ","Aviso")
aget[1]:setfocus()
aget[1]:setpos(1)
return .f.
Endif
if ! empty(fpfun&sigla->dt_resc)
msgalert("Funcionario Demitido ","Aviso")
aget[1]:setfocus()
aget[1]:setpos(1)
return .f.
endif
if dt_afast1 <> ctod(' / / ')
msgalert("Funcionario afastado ","Aviso")
aget[1]:setfocus()
aget[1]:setpos(1)
return .f.
endif
@ 11.5,2 say fpfun&sigla->nome_func size 368,12 of ind01 font ofont1 color 'bg/w'
Endif
Return .T.
function tam13
ind01:end()
imprelat() // imprime.prg
if ! lImp
odlg:end()
close databases
Return Nil
endif
if nopcao=1 // video
rel_tem1a() // cttempa.prg
elseif nopcao=2 // matricial
rel_tem01() // cttemp.prg
endif
Close databases
Return nil
Function rel_tem01
vi=0
Do while vi <= vias
Oprn:Startpage()
begin sequence
oprn:command( oprn:cNormal)
oprn:say(1,05,chr(18)+'C O N T R A T O I N D I V I D U A L DE T R A B A L H O ')
oprn:say(2,05,chr(18)+'T E M P O R A R I O ')
oprn:say(3,05,'|---------------------------------------------------------------------------------------------------------|')
oprn:say(4,05,'|Pelo presente instrumentos particular de Contrato de Trabalho,de um lado, '+ transf(fpemp000->nome_emp,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')+'|')
oprn:say(5,05,'|com sede em '+ transf(fpemp000->cidempresa,'xxxxxxxxxxxxxxxxxxxx') +' a '+transf(fpemp000->endemp,'xxxxxxxxxxxxxxxxxxxxxxxxxxxxx')+',' +strzero(fpemp000->numero,6)+ ' neste ato denominado simplesmente|')
oprn:say(6,05,'|Empregadora, e o SR.(a) '+transf(fpfun&sigla->nome_func,'xxxxxxxxxxxxxxxxxxxxxxxxxxxxx')+ 'portador da Carteira Profissional no. '+ fpfun&sigla->nr_cart+'/'+fpfun&sigla->serie_cart + ' |')
oprn:say(7,05,'|inscrito no CPF. '+ fpfun&sigla->cic + ' PIS '+ fpfun&sigla->pis_func+ ' denominado simplesmente empregado, doravante designado ')
oprn:say(7,111,'|')
oprn:say(8,05,'|simplesmente Temporario, tem justo e contratado o que mutuamente outorgam a saber: |')
oprn:say(9,05,'|1-O temporario compromete-se a trabalhar em estabelecimento da empresa cliente como prestador de servicos|')
oprn:say(10,05,'|temporario sob o regime da Lei 6.019 de 3 de junho 1974 e Decreto 73.841 de 13 marco de 1974,na funcao de|')
oprn:say(11,05,'|'+fpfun&sigla->funcao)
oprn:say(11,111,'|')
oprn:say(12,05,'|2-Pelos servicos prestados, o temporario recebera a titulo de remuneracao o salario base: R$ |')
oprn:say(13,05,'|')
if fpfun&sigla->tipo_pag="M"
oprn:say(13,06,strzero(fpfun&sigla->sal_horist,10,2)+' por mes efetivamente trabalhado ')
elseif fpfun&sigla->tipo_pag="H"
oprn:say(13,06,strzero(fpfun&sigla->sal_horist,10,2)+' por hora efetivamente trabalhado ')
endif
oprn:say(13,111,'|')
oprn:say(14,05,'|3-O Pagamento do temporario sera efetivado ate o quinto dia útil da quinzena imediatamente subsequente ; |')
oprn:say(15,05,'|4-O temporario na vigencia deste contrato,obedecera ao horario, e as normas fixadas pela empresa Cliente |')
oprn:say(16,05,'|respeitando-se o disposto na alinea "B" do artigo 12 de lei n 6.019/74 ; |')
oprn:say(17,05,'|5-O presente contrato nao tem duracao pre-fixado,ficando esta sempre condicionada a necessidade transito |')
oprn:say(18,05,'|ria da empresa Cliente,em virtude do que a cessacao da mesma,automaticamente esta terminada a sua vigen |')
oprn:say(19,05,'|-cia,nao podendo entretanto exceder o prazo previsto no artigo 10 da lei 6.019 03/01/1974 salvo autoriza |')
oprn:say(20,05,'|-cao expressa no Ministerio do Trabalho. |')
oprn:say(21,05,'| |')
oprn:say(22,05,'|6- De acordo com o estipulado no artigo 12 da lei 6.019/74,ao temporario ficam assegurados os seguintes: |')
oprn:say(23,05,'|A->remuneracao equivalente a percebida pelos empregados da mesma categoria da empresa cliente calculada |')
oprn:say(24,05,'|a base horaria, garantindo em qualquer hipotese, a percepcao do salario minimo do regional. |')
oprn:say(25,05,'|B->Ferias proporcionais,nos termos do artigo 17, alinea II do decreto n.73.841/74 |')
oprn:say(26,05,'|C->Indenizacao contratual,nos casos e forma previstos em lei. |')
oprn:say(27,05,'|D->Beneficios e servicos da Previdencia Social,nos termos da lei 3.807 de 26/08/60 com as alteracoes |')
oprn:say(28,05,'|introduzidas pela Lei n.5.890 de 08/06/1973,como segurado autonomo. |')
oprn:say(29,05,'|E->seguro de acidente do Trabalho,nos termos da Lei 5.316 de 14/09/1967. |')
oprn:say(30,05,'|F->Adicional por trabalho noturno,na hipotese de sua ocorrencia. |')
oprn:say(31,05,'|G->Acrescimo por horas extraordinaria efetivamente trabalhadas. |')
oprn:say(32,05,'|H->Descanso semanal remunerado,nos termos da Lei 605 de 05/01/1949 |')
oprn:say(33,05,'| |')
oprn:say(34,05,'|7-De acordo com o paragrafo 2o do art.59 da CLT,podera ser dispensado o acrescimo de salario,se por forca|')
oprn:say(35,05,'|de acordo ou contrato coletivo, o excesso de horas em dia for compensado pela correspondente diminuicao|')
oprn:say(36,05,'|em outro dia de maneira que nao exceda o horario normal de semana, nem seja ultrapassado o limite maximo |')
oprn:say(37,05,'|de dez horas diarias. |')
oprn:say(38,05,'| |')
oprn:say(39,05,'|8-A retribuicao monetaria do Temporario estara sujeita aos descontos tributarios determinados pela legis |')
oprn:say(40,05,'|-lacao vigente, alem do consentido, e ainda na hipotese de dolo de sua parte. |')
oprn:say(41,05,'| |')
oprn:say(42,05,'|9-Constitue em justa causa rescisao deste contrato os atos e circunstancia mencionados no art.482 e 483 |')
oprn:say(43,05,'|Consolidacao das Leis do Trabalho, ocorrentes entre o Temporario e a Empresa do trabalho temporario ou |')
oprn:say(44,05,'|entre aquele e a empresa cliente onde estiver prestando servico. |')
oprn:say(45,05,'| |')
oprn:say(46,05,'|10-O temporario se obriga a encaminhar em tempo habil, a respectiva Ficha Horaria de Controle das horas |')
oprn:say(47,05,'|trabalhadas efetivamente por ele, devidamente assinada pelo mesmo e pela empresa cliente, sob pena de |')
oprn:say(48,05,'|nenhum pagamento lhe ser devido. |')
oprn:say(49,05,'| |')
oprn:say(50,05,'|11-E por estarem justos e contratados,assinam o presente em 2(duas) vias da igual teor e forma,juntamente|')
oprn:say(51,05,'|com as testemunhas presentes,para os efeitos da Lei em vigor. |')
oprn:say(52,05,'| |')
oprn:say(53,05,'|'+ Rtrim(fpemp000->munempresa)+" "+ltrim(str(day(xmdd)))+" "+dataext(xmdd)+str(year(xmdd)))
oprn:say(53,111,'|')
oprn:say(54,05,'| TESTEMUNHAS: |')
oprn:say(55,05,'| |')
oprn:say(56,05,'|------------------------------------- ----------------------------------------- |')
oprn:say(57,05,'|Empresa |')
oprn:say(58,05,'| |')
oprn:say(59,05,'|------------------------------------- ----------------------------------------- |')
oprn:say(60,05,'|Trabalhador |')
oprn:say(61,05,'| |')
oprn:say(62,05,'|---------------------------------------------------------------------------------------------------------|')
Oprn:Endpage()
end sequence
vi = vi + 1
if vi= vias
exit
endif
Enddo
oprn:end()
oDlg:end()
TxtPreview( cFile, cTitulo,.t.,,, oPrn )
Close databases
Return(Nil)
