...
| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Fiscal |
...
Este ponto de entrada
...
tem o objetivo de determinar se a impressão do RPS deve ou não ser
...
realizada, sendo sua execução através do ponto de entrada realizado nas rotinas MATA916 - Impressão RPS e MATR968 - Impressão RPS Gráfico.
Parâmetros do ponto de entrada:
Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB | Array of Record | Array com dados de processamento com 4 elementos [1] = Número do Documento [2] = Série do Documento [3] = Código do Cliente/Fornecedor [4] = Loja do Cliente/Fornecedor |
Retorno:
Nome | Tipo | Descrição |
|---|---|---|
| lImpRPS | Lógico | O retorno deve ser um valor lógico .T. (true) ou .F. (false) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#include "totvs.ch"
User Function MTIMPRPS()
Local aArea := GetArea()
Local cNfiscal := PARAMIXB[1]
Local cSerie := PARAMIXB[2]
Local cCodCli := PARAMIXB[3]
Local cLojaCli := PARAMIXB[4]
Local lImpRPS := .T.
// validações do cliente
If cNumRPS == "000000010"
// retorno
lImpRPS := .F.
EndIf
RestArea(aArea)
Return lImpRPS |
...
