Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:PPP (MDTR700)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Ponto de entrada MDTR7002 criado no relatório PPP (MDTR700) para inclusão de responsáveis.


Ponto de EntradaMDTR7002
ChamadaNa impressão do relatório.
Pré-RequisitoExistir informações para um funcionário.
EventoInclusão de Responsável no PPP.
RetornoRetorno verdadeiro com a inclusão do responsável do PPP.

03. DEMAIS INFORMAÇÕES

FunçãoMDTR7002() 
Parâmetros

cNitRES, Caracter, Receberá o valor que será impresso no NIT.

cNomeRES, Caracter, Receberá o valor que será impresso no Nome.

cDate, Caracter, Receberá o valor que será impresso na Data.

aParam, Array, Retorna os parâmetros com os quais a função foi chamada.

oPrintPPP, Objeto, Retorna os parâmetros com os quais a função foi chamada.

oFont09, Objeto, Define as fontes de letras no relatório.

oFont10, Objeto, Define as fontes de letras no relatório.

Retorno.T., Lógico, Retorna sempre verdadeiro quando o relatório é impresso com o responsável.
Exemplo
User Function MDTR7002()

	//Variáveis que deverão receber as informações do responsável
	Local cNitRES := "99999999999"//Receberá o valor que será impresso no NIT (Apenas valores numéricos)
	Local cNomeRES := "NOME"//Receberá o valor que será impresso no Nome
	Local cDate := "__/__/____"//Receberá o valor que será impresso na Data

	//--------------------------------------------------------------
	// Não há necessidade de alteração da forma de impressão abaixo
	// pois já esta tratada de forma correta.
	// Para alteração do responsável, basta apenas alterar os
	// valores das variáveis acima conforme a necessidade.
	//--------------------------------------------------------------
	Local aParam := PARAMIXB
	Local lin := aParam[ 2 ]
	Local oPrintPPP := aParam[ 1 ]
	Local oFont09 := TFont():New( "Verdana" , 10 , 10 , , .F. , , , , .F. , .F. )
	Local oFont10 := TFont():New( "Verdana" , 10 , 10 , , .F. , , , , .F. , .F. )

	//Definições das linhas em formato de caixa
	oPrintPPP:Line(lin,50,lin+500,50)
	oPrintPPP:Line(lin,2350,lin+500,2350)
	oPrintPPP:Line(lin+500,50,lin+500,2350)
	oPrintPPP:Line(lin+100,500,lin+100,2350)
	oPrintPPP:Line(lin,500,lin+500,500)

	//Início das impressões dos valores
	oPrintPPP:Say(lin+10,510,"20.1-NIT",oFont09)
	oPrintPPP:Say(lin+55,510,Transform(cNitRES,"@R 999.99999.99-9"),oFont10)
	oPrintPPP:Line(lin,1300,lin+500,1300)
	oPrintPPP:Say(lin+10,1310,"20.2-Nome",oFont09)
	oPrintPPP:Say(lin+55,1310,Substr(cNomeRES,1,40),oFont10)
	oPrintPPP:Say(lin+170,150,cDate,oFont10)
	oPrintPPP:Say(lin+440,785,"(Carimbo)",oFont09)
	oPrintPPP:Line(lin+430,1450,lin+430,2250)
	oPrintPPP:Say(lin+440,1700,"(Assinatura)",oFont09)

Return .T.

04. ASSUNTOS RELACIONADOS

    Não há.