Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos


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

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


Ponto de EntradaMDTR7002()
ChamadaNa impressão do relatório.
Pré-RequisitoNão há.
EventoInclusão de Responsável no PPP.
RetornoRetorno lógico com a inclusão do responsável do PPP.

03. DEMAIS INFORMAÇÕES

FunçãoMDTR7002() 
Parâmetros

Local cNitRES, Numérico, receberá o valor que será impresso no NIT.

Local cNomeRES, Array, receberá o valor que será impresso no Nome.

Local cDate, Array, receberá o valor que será impresso na Data.

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

Local oPrintPPP, Array, retorna os parâmetros com os quais a função foi chamada.

Local oFont09, Função, define as fontes de letras no relatório.

Local oFont10, Função, 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á.