01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

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 MDTR7003, chamado no momento da impressão do relatório Perfil Profissiográfico (MDTR700) para que seja possível informar o conteúdo do campo 1-CNPJ do Domicílio Tributário/CEI/CAEPF/CNO localizado no início do relatório em Dados Administrativos.

Ponto de entrada criado para adicionar um profissional legal ao relatório,

Descrição das variáveis:

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

cNitRES: 

cNomeRES:

cDate:

#Include "Protheus.ch"

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 := "Responsável Teste" //Receberá o valor que será impresso no Nome
	Local cDate := "15/12/2022"           //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. DEMAIS INFORMAÇÕES

Não há.


05. ASSUNTOS RELACIONADOS

Não há.




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>