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: |
| ||||
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: |
|
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: |
| ||||||
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: |
|
#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