Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (norbertom), última alteração em 28 dez, 2016

FA373SCL - Permite Manipular a Razão Social e o CNPJ

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FINA373

Controle de Emissão de DARF. 

FINRSRF 

Relatório de impressão do DARF gráfico a partir dos títulos de Contas a Pagar.

 

 

 

Ponto de Entrada:

FA373SCL

Requisito (ISSUE):PCREQ-7787

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) operacional(is):

Todos

Versões/Release:

11.8

Observação Revisão e atualização do documento FA373SCL - Manipular Razão Social e CNPJ -- 30632 

Descrição

Este Ponto de Entrada permite, no momento da impressão da guia DARF, a manipulação das informações de Razão Social e CNPJ a serem impressas na Guia.

 

Ponto de Entrada

Descrição:

Disponibiliza uma estrutura de dados (ARRAY: ver campo Retorno abaixo) com valores que são gravados no título do contas a receber. 

Eventos:

Títulos para seleção

Programa Fonte:

FINA373,FINRSRF

Função:

FA373Reem() e ImpDet()

Retorno:

Array contendo a seguinte estrutura de dados.
Elemento
Tipo
 Descrição
1
ARRAY
Elemento
Tipo
Descrição
1
CARACTERE
RAZÃO SOCIAL
2
CARACTERE
TELEFONE
2
DATA
PERIODO DE APURAÇÃO 
3
CARACTERE
CADASTRO NACIONAL DE PESSOAS JURIDICAS - "@R 99.999.999/9999-99"
4
CARACTERE
CÓDIGO DA RECEITA 
5
NUMERICO
VALOR DA RECEITA BRUTA ACUMULADA - "@E 999,999,999.99"
6
NUMERICO
PERCENTUAL - "@E 999.99"
7
NUMERICO 
VALOR DO PRINCIPAL - "@E 999,999,999.99"
8
NUMERICO 
VALOR DA MULTA - "@E 999,999,999.99"
9
NUMERICO 
VALOR DO JUROS - "@E 999,999,999.99"
10
CARACTERE 
NÃO UTILIZADO
11
CARACTERE 
NÃO UTILIZADO
12
CARACTERE 
NÃO UTILIZADO

Exemplo:

#INCLUDE 'Protheus.ch'

USER FUNCTION FA373SCL()
LOCAL aRet := ACLONE(PARAMIXB)
LOCAL nI   := 0

IF !EMPTY(aRet) .AND. TYPE(aRet) == 'A'
 FOR nI := 1 TO LEN(aRet)
  aRet[nI,1] := {SM0->M0_NOMECOM,SM0->M0_TEL}
  aRet[nI,3] := TransForm(SM0->M0_CGC,"@r 99.999.999/9999-99")
 NEXT nI
ENDIF

aRet[1][1]

RETURN ACLONE(aRet)