| 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 |
Identificada a necessidade de realizar alterações em campos customizados na utilização da tabela de preç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.
#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.
Não há