Histórico da Página

#Include "Protheus.ch" 

User Function MDTR7003()
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 cCNPJcDate := "1111111111111111"

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

Return cCNPJ

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.