Histórico da Página

#Include "mdtr700.ch"
#Include "Protheus.ch"

User Function MDTR7002()

	    //Variáveis que deverão receber as informações do responsável
	    Local cNitREScCpfRes := "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
	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
   
    Private oFont09  := TFont():New( "Verdana" , 10 , 10 11, , .F. , , , , .F. , .F. )
	Local    Private oFont10  := TFont():New( "Verdana" , 10 , 10 11, , .F. , , , , .F. , .F. )

	    //Definições das linhas em formato de caixa
	    oPrintPPP:Line( lin, 50, lin + 500, 50 )
	oPrintPPP:Line( lin,2350 2940, lin + 500,2350 2940 )
	oPrintPPP:Line( lin + 500, 50, lin + 500,2350 2940 )
	oPrintPPP:Line( lin + 100, 500, lin + 100,2350 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 +55 90, 510, Transform(cNitRES cCpfRes," '@R 999.99999999.99-9"999-99' ), oFont10 )
	    oPrintPPP:Line( lin, 1300, lin + 500, 1300 )
	oPrintPPP:Say( lin +10 30, 1310, "2018.2-Nome do Representante Legal", oFont09 ) 
	    oPrintPPP:Say( lin +55 90, 1310, Substr( cNomeRES, 1, 40 ), oFont10 )
	    oPrintPPP:Say( lin +170 210, 150, cDate,oFont10)
	    oPrintPPP:Say( lin +440 480,785 700, "(Carimbo da Empresa)", oFont09 )
	    oPrintPPP:Line( lin + 430,1450 1400, lin + 430,2250 2110 )
	oPrintPPP:Say( lin +440 480,1700 1450, "(Assinatura física ou eletrônica)", oFont09 )

Return .T.  

.