Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Roberta Schneider Borchardt

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Roberta Schneider Borchardt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoRH

Módulo:Medicina e Segurança do Trabalho
Função:Perfil Profissiográfico (MDTR700)
Ticket:15816159

15816158

Issue:

DNG-1901719016


02. SITUAÇÃO/REQUISITO

Criação de ponto de entrada no relatório PPP (MDTR700) para que seja possível informar o 1-CNPJ do Domicílio Tributário/CEI/CAEPF/CNO.conteúdo no item 18 REPRESENTANTE LEGAL DA EMPRESA

03. SOLUÇÃO

Criado o ponto de entrada MDTR7003 MDTR7002, chamado no momento da impressão do relatório Perfil Profissiográfico (MDTR700) para que seja possível informar o conteúdo do campo 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

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

Descrição das variáveis:

...

Bloco de código
themeEclipse
titleExemplo
#Include "mdtr700.ch"
#Include "Protheus.ch" 

User Function MDTR7003()

	Local cCNPJ:= "1111111111111111"

	MsgInfo('Chamada do Ponto de Entrada MDTR7003', 'Ponto de Entrada')

Return cCNPJ

04. DEMAIS INFORMAÇÕES

...

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



Templatedocumentos

...