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:Medicina e Segurança do Trabalho
Função:Perfil Profissiográfico (MDTR700)
Ticket:

15816158

Issue:

DNG-19016


02. SITUAÇÃO/REQUISITO

Criação de ponto de entrada no relatório PPP (MDTR700) para que seja possível informar conteúdo no item 18 REPRESENTANTE LEGAL DA EMPRESA

03. SOLUÇÃO

Criado o ponto de entrada MDTR7002, chamado no momento da impressão do relatório Perfil Profissiográfico (MDTR700) para que seja possível informar o conteúdo dos campos:

  • 18.1-CPF do Representante Legal
  • 18.2-Nome do Representante Legal

04. DEMAIS INFORMAÇÕES


Função:MDTR7002()
Retorno:.T.
Variáveis

cCpfRes: Receberá o valor que será impresso no NIT (Apenas valores numéricos)

cNomeRES: Receberá o valor que será impresso no Nome

cDate: Receberá o valor que será impresso na Data

Exemplo
#Include "mdtr700.ch"
#Include "Protheus.ch"

User Function MDTR7002()

    //Variáveis que deverão receber as informações do responsável
    Local cCpfRes := "99999999999"
    Local cNomeRES := "NOME"
    Local cDate := "__/__/____"

    Local aParam := PARAMIXB
    Local lin := aParam[ 2 ]
    Local oPrintPPP := aParam[ 1 ]
   
    Private oFont09  := TFont():New( "Verdana", , 11, , .F., , , , .F., .F. )
    Private oFont10  := TFont():New( "Verdana", , 11, , .F., , , , .F., .F. )

    //Definições das linhas em formato de caixa
    oPrintPPP:Line( lin, 50, lin + 500, 50 )
	oPrintPPP:Line( lin, 2940, lin + 500, 2940 )
	oPrintPPP:Line( lin + 500, 50, lin + 500, 2940 )
	oPrintPPP:Line( lin + 100, 500, lin + 100, 2940 )
	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 + 30, 510, "18.1-CPF do Representante Legal", oFont09 )
    oPrintPPP:Say( lin + 90, 510, Transform( cCpfRes, '@R 999.999.999-99' ), oFont10 )
    oPrintPPP:Line( lin, 1300, lin + 500, 1300 )
	oPrintPPP:Say( lin + 30, 1310, "18.2-Nome do Representante Legal", oFont09 ) 
    oPrintPPP:Say( lin + 90, 1310, Substr( cNomeRES, 1, 40 ), oFont10 )
    oPrintPPP:Say( lin + 210, 150, cDate,oFont10)
    oPrintPPP:Say( lin + 480, 700, "(Carimbo da Empresa)", oFont09 )
    oPrintPPP:Line( lin + 430, 1400, lin + 430, 2110 )
	oPrintPPP:Say( lin + 480, 1450, "(Assinatura física ou eletrônica)", oFont09 )

Return .T.


05. ASSUNTOS RELACIONADOS

Não há.