Histórico da Página
...
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). |
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 := oModel:GetValue("FN6_GERANF") == '1' .And. SX5->( dbSeek(cFilAnt+'01'+oModel:GetValue("FN6_SERIE")) ) //Onde cFilAnt é a filial logada no momento EndIf RestArea(aAreaSX5) RestArea(aArea) Return lRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas