Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Terceirização(SIGATEC)
Função:TECA998.PRW
País:Brasil
Ticket:Não há
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-13946


02. SITUAÇÃO/REQUISITO

Identificada a necessidade de realizar alterações em campos customizados na utilização da tabela de preço.

03. SOLUÇÃO

Foi aberto o ponto de entrada A998CPOUSR que será executado após a atualização do campo TFF_PRCVEN, abrindo a possibilidade de realizar a atualização de campos customizados.

O ponto de entrada receberá 2 (dois) parâmetros: o modelo de dados da tabela TFF; e o objeto da tabela de precificação, possibilitando assim alterar os valores da tabela TFF considerando os valores da tabela de precificação.  



Ponto de Entrada
#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
 
User Function A998CPOUSR()
Local oMdlRH    := PARAMIXB[1] //Modelo de dados da TFF
Local oFwSheet  := PARAMIXB[2] //Objeto da planilha de preço
Local cCpoUsr   := ""
Local cCpoUsr1  := ""

MsgAlert("passou no meu ponto de entrada", "A998CPOUSR")

If oFWSheet:CellExists("TOT_CUSTOM") //verifico se a minha célula existe na planilha de preço
    cCpoUsr := oFwSheet:GetCellValue("TOT_CUSTOM") //Pego o valor da minha célula customizada
    oMdlRH:SetValue("TFF_VLPRPA",ROUND(cCpoUsr, TamSX3("TFF_VLPRPA")[2])) //Grava o valor no meu campo customizado
EndIf

If oFWSheet:CellExists("TOT_CUSTOM1") //verifico se a minha célula existe na planilha de preço
    cCpoUsr1 := oFwSheet:GetCellValue("TOT_CUSTOM1") //Pego o valor da minha célula customizada
    oMdlRH:SetValue("TFF_VLRCTS",ROUND(cCpoUsr1, TamSX3("TFF_VLRCTS")[2])) //Grava o valor no meu campo customizado
EndIf

Return


No exemplo abaixo criamos uma tabela de precificação que tem duas linhas personalizadas que se chamam TOT_CUSTOM e TOT_CUSTOM1.



No exemplo, vamos aplicar os valores que estão no TOT_CUSTOM e TOT_CUSTOM1 nos campos TFF_VLPRPA e TFF_VLRCTS.


Importante

Os campos TFF_VLPRPA e TFF_VLRCTS são campos customizados e devem existir na base de dados.


Importante

Esse ponto de entrada não é executado quando o parâmetro MV_ORCPRC está ativado.


04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS