Linha Microsiga Protheus

Árvore de páginas

ÍNDICE

  1. Visão Geral
  2. Parâmetros
  3. Retorno
  4. Exemplo de utilização

01. VISÃO GERAL

Localização: ATFA036.PRX (Data: 22/10/2019 ou posteriores)

Descrição: A finalidade do ponto de entrada A036VLDSER é permitir que o usuário faça a validação das séries das notas fiscais na tela de baixa de ativos (ATFA036).

Esta customização é indicada para clientes que utilizam o ponto de entrada SX5NOTA do módulo faturamento (SIGAFAT) e precisam customizar a validação da série na tela de baixa de ativos.

Verifique no exemplo de utilização forma de tratamento de compartilhamento para tabela SX5, lembrando que este é somente um exemplo de codificação e que ponto de entrada é responsabilidade do cliente adequa-lo para aderência ao sistema. 

02. PARÂMETROS

Nome

Tipo

Descrição

PARAMIXB[1]

Objeto

Modelo da FN6 (FN6MASTER).


03. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

.T. - Permite confirmar  a série no campo FN6_SERIE.

.F. - Não permite confirmar a série no campo.


04. EXEMPLO DE UTILIZAÇÃO

Exemplo
#INCLUDE "PROTHEUS.CH"
/*
Finalidade: Específico para clientes que utilizam o Ponto de entrada do faturamento SX5NOTA.
Objetivo: Alterar a validação padrão do campo FN6_SERIE na tela de baixa de ativos.
*/
User Function A036VLDSER()
Local oModel := PARAMIXB[1]
Local lRet   := .T.
Local aArea := GetArea()
Local aAreaSX5 := SX5->(GetArea())

If FWModeAccess("SX5",3) == 'E'  //exemplo se compartilhamento exclusivo
	lRet := oModel:GetValue("FN6_GERANF") == '1' .And. EXISTCPO('SX5','01'+oModel:GetValue("FN6_SERIE"))
Else  
	//se tabela SX5 compartilhada mas tabela 01 numero de serie for exclusivo tem que fazer com dbSeek() 
	SX5->( dbSetOrder(1) )
    lRet := SX5->( dbSeek(cFilAnt+'01'+oModel:GetValue("FN6_SERIE")) ) //Onde cFilAnt é a filial  logada no momento
EndIf

RestArea(aAreaSX5)
RestArea(aArea)

Return lRet