| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Medicina e Segurança do Trabalho |
| Função: | Perfil Profissiográfico (MDTR700) |
| Ticket: | |
Issue: | DNG-19016 |
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
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. |
Não há.
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>
|