MDTR7002 - Ponto de entrada para inclusão de responsável no PPP.

Ponto de entrada MDTR7002, para inclusão de responsáveis no PPP.

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 := "NOME"//Receberá o valor que será impresso no Nome
Local cDate := "__/__/____"//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.

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

.T.

Quando ponto de entrada for chamado, será adicionado o responsável no PPP.

MDTR700