Linha Microsiga Protheus

Árvore de páginas

Correção para que a informação do campo 03 não seja replicada

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Função:

Fisa001

Situação/Requisito:

Ao possuir um título com o campo 03 do bloco F100 preenchido, a rotina FISA008 replica a informação para os títulos que possuem o campo 03 em branco.

Solução/Implementação:

Correção para que o campo 03 não seja replicado para os que estão em branco.

Incluso os pontos de entrada Fa100Nat e SPD100FIN.

Chamados relacionados:

TVDUIY

 

Ponto de entrada que permite não validar o CST na rotina FINA100

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FINA100

Movimento bancário

Ponto de Entrada:

FA100NAT

Chamados Relacionados

TUEWQ5

País(es):

Brasil

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

Incluso o ponto de entrada FA100NAT para que o CST de crédito, informado no cadastro de natureza, não seja validado na rotina FINA100.

 

Ponto de Entrada

Descrição:

FINA100 - Movimento bancário

Localização:

Atualizações>Movimento bancário

Eventos:

Movimento bancário

Programa Fonte:

FINA100

Função:

FINA100

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Retorna se validará ou não.

Sim

 

Exemplo:

#include 'totvs.ch'

User Function Fa100Nat()
Local lRet := .T.

lRet := MSGYESNO("Deseja validar se o CST é de crédito e possui o campo E5_CLIFOR preenchido?")

Return lret

 

Ponto de entrada criado para alterar o array de títulos do bloco F100

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FISA001

Apuração EDF Contribuições

SPEDPISCOFSped Pis Cofins

Ponto de Entrada:

SPD100FIN

Chamados Relacionados

TUEWQ5

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

Incluso ponto de entrada SPD100FIN para manipulação do array do bloco F100 que contem os títulos que serão enviados para o bloco.

 

Ponto de Entrada

Descrição:

FISA001 - Apuração EDF Contribuições

Eventos:

FISA001

Programa Fonte:

Apuração EDF Contribuições

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

Retorna o array contendo os títulos que serão enviados para o bloco F100

Sim


#include 'totvs.ch'

User Function SPD100FIN()
Local aRet := ParamIxb[1]
Local nx := 1

If Len(aRet) > 0
   For nx := 1 to Len(aRet)
         If empty(aRet[nx][17])
              aRet[nx][17] := "000 01"
         EndIf
    Next
EndIf

Return aRet