Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro (SIGAFIN)
Função:

Manutenção de recibos (FINA486)

País:Brasil

02. VISÃO GERAL

Ponto de entrada que permite a utilização de um relatório personalizado no cadastro de recibos Modelo II.

O relatório deve ser desenvolvido pelo usuário.

O relatório personalizado será utilizado ao clicar em Outras Ações > Imprimir.

03. PARÂMETROS

Não há.

04. RETORNO

Não há.

05. EXEMPLO


Exemplo de execução
#include 'Protheus.ch'
#INCLUDE "SIGAWIN.CH"

User Function F486PRT
	SetPrvt("CDESC1,CDESC2,CDESC3,TITULO,ARETURN,NOMEPROG")

	titulo := "TÍTULO PERSONALIZADO"
	cDesc1 := "Relatório personalizado"
	cDesc2 := ""
	cDesc3 := ""
	//"Especial","Administracion"
	aReturn := { OemToAnsi("Especial"), 1,OemToAnsi("Administracion"), 1, 1,1,"",1 }

	cPerg := ""
	nLastKey := 0
	lContinua:= .T.
	nLin := 0
	wnrel := "RPT_PER"

	//Tamanho do formulário
	nTamRm := 72 // Apenas Informativo
	cString := "SEL"

	//Envia controle para a função setPrint
	wnrel := SetPrint(cString,wnrel,cPerg,Titulo,cDesc1,cDesc2,cDesc3,.F.,,.F.,,,.F.)

	If nLastKey == 27
		Return
	Endif

	//Verifica a posição do formulário na impressora
	SetDefault(aReturn,cString)

	If nLastKey == 27
		Return
	Endif

	RptStatus({|| RptDetail()})
Return

Static Function RptDetail()
	Local nX := 0

	@ 01,000 PSAY "====================================================================================="
	@ 02,000 PSAY "| "+AllTrim(SM0->M0_NOMECOM)
	@ 02,008 PSAY OemToAnsi("Relatório Personalizado")
	@ 02,084 PSAY "|"
	@ 03,000 PSAY "====================================================================================="
	@ 05,01 PSAY OemToAnsi("Recibo : "+FJT->FJT_RECIBO )
	@ 06,01 PSAY OemToAnsi("DATA : "+DTOC(FJT->FJT_DTDIGI) )
	@ 07,01 PSAY OemToAnsi("SERIE : "+FJT->FJT_SERIE )
	SA1->( dbSeek(xFilial("SA1") + FJT->FJT_CLIENT + FJT->FJT_LOJA ))
	@ 08,01 PSAY OemToAnsi("Cliente : "+SA1->A1_NOME )
	@ 09,000 PSAY "_________________________Detalhes____________________________________________________"

	DbSelectArea("SEL")
	DbSetOrder(8)
	DbSeek(FwxFilial("SEL")+FJT->FJT_SERIE+FJT->FJT_RECIBO)
	
	nX:=11
	Do While FwxFilial("SEL")==EL_FILIAL.AND. FJT->FJT_RECIBO==EL_RECIBO .AND. FJT->FJT_SERIE==EL_SERIE
		@ nX,02 PSAY OemToAnsi("Tipo : "+SEL->EL_TIPO )
		nX++
		@ nX,02 PSAY OemToAnsi("Valor : "+TransForm(SEL->EL_VALOR,PesqPict("SEL","EL_VALOR")) )
		nX++
		DbSkip()
		nX++
	EndDo
	@ nX,000 PSAY "_____________________________________________________________________________________"

	Set Device To Screen

	If aReturn[5] == 1
		Set Printer TO
		dbcommitAll()
		ourspool(wnrel)
	Endif

	MS_FLUSH()
Return