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 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:

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

#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á.




<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>