|
Bem Vindo, Visitante
|
Todos os Fórums
Faturamento
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Tabela de preços |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
L-ESPINOSA
em 17/11/2020, 15:54 h
Local: SP Registro: 14/10/2020 Postagens: 4 |
Boa tarde pessoal!
tudo bem?
Estou precisando desenvolver uma rotina que faz um calculo de um % adicional sob. o preço de venda cadastrado na tabela de preços (DA0/DA1) e atualize o preço no grid com o valor após o cálculo. Alguém teria um exemplo de um ponto de entrada para manipulação e preenchimento de dados específicos no aCols?
Obrigado! |
|
|
Mensagem do
TIRAFAEL
em 19/11/2020, 10:31 h
Local: MG Registro: 05/06/2020 Postagens: 4 |
Bom dia,
Uma vez precisei trabalhar o aCols da tabela de preço.
Na época eu fiz conforme abaixo e funcionou perfeitamente.
User Function OM010TOK()
local lRet := .T.
Local _n := 1
for _n := 1 to len(aCols)
if aCols[_n][nPosDel] != .T. //deletado
//procedimentos e calculos usando a linha do acols posicoinada.
endIf
next _n
return( lRet ) |
|
|
Mensagem do
L-ESPINOSA
em 30/11/2020, 16:17 h
Local: SP Registro: 14/10/2020 Postagens: 4 |
Boa tarde!
tudo bem? :)
Nesse caso, vc sabe dizer se o ponto é acionado só no confirmar da tabela de preços ou se é na validação da linha?
Precisaria ser na validação da linha =/ |
|
|
Mensagem do
TIRAFAEL
em 02/12/2020, 09:52 h
Local: MG Registro: 05/06/2020 Postagens: 4 |
Bom dia!
O ponto é acionado somente no final ao confirmar a tabela.
mas eu acredito que exista um ponto para validar a linha também.
Mas eu não sei qual é.
Att,
Rafael |
|
|
Mensagem do
LUCASLOTT
em 02/12/2020, 11:38 h
Local: SP Registro: 21/05/2020 Postagens: 49 |
Bom dia, também uso a versão 12.1.25, a tabela de preço já está em MVC.
Acredito que seria melhor você fazer todas suas validações me MVC já, lembrando que o nome da User Function é o mesmo da rotina, porém vc deve mudar o nome do arquivo para que não sobreponha o fonte original, eu costumo fazer assim: OMSA010A_PE.PRW ou OMSA010_PE.PRW.
#INCLUDE "TOTVS.CH"
#include "TopConn.ch"
#Include ‘Fwmvcdef.CH‘
// esse é a função que é executada em visão tabela, para acesso em visão produto usar OMSA010A()
User Function OMSA010()
Local aArea := GetArea()
Local aParam := PARAMIXB
Local xRet := .T.
Local oObj := ‘‘
Local cIdPonto := ‘‘
Local cIdModel := ‘‘
If aParam <> NIL
oObj := aParam[1]
cIdPonto := aParam[2]
cIdModel := aParam[3]
If cIdPonto == ‘MODELPOS‘ // Na validação total do modelo.
xRet := .T.
ElseIf cIdPonto == ‘MODELPRE‘ // Antes da alteração de qualquer campo do modelo.
xRet := .T.
ElseIf cIdPonto == ‘FORMPRE‘ // Antes da alteração de qualquer campo do formulário.
xRet := .T.
ElseIf cIdPonto == ‘FORMPOS‘ // Na validação total do formulário.
xRet := .T.
ElseIf cIdPonto == ‘FORMLINEPRE‘ // Antes da alteração da linha do formulário FWFORMGRID.
xRet := .T.
ElseIf cIdPonto == ‘FORMLINEPOS‘ // Na validação total da linha do formulário FWFORMGRID.
xRet := .T.
ElseIf cIdPonto == ‘MODELCANCEL‘ // No cancelamento do botão.
xRet := .T.
ElseIf cIdPonto == ‘FORMCOMMITTTSPRE‘ // Antes da gravação da tabela do formulário.
xRet := .T.
ElseIf cIdPonto == ‘FORMCOMMITTTSPOS‘ // Após a gravação da tabela do formulário.
xRet := .T.
ElseIf cIdPonto == ‘MODELCOMMITTTS‘ // Após a gravação total do modelo e dentro da transação.
xRet := .T.
ElseIf cIdPonto == ‘MODELCOMMITNTTS‘ // Após a gravação total do modelo e fora da transação.
xRet := .T.
ElseIf cIdPonto == ‘BUTTONBAR‘ // Acessar os dados do Grid em Rotinas MVC
xRet := .T.
EndIF
EndIF
RestArea(aArea)
Return(xRet)
Lucas Lott |
|
|
Mensagem do
LUCASLOTT
em 02/12/2020, 11:41 h
Local: SP Registro: 21/05/2020 Postagens: 49 |
Completando, eu costumo usar o ponto BUTTONBAR além de criar botão utilizo ele para acesso aos dados do grid, nele vc terá acesso aos dados para preencher algo a mais na tabela, como exemplo o estoque de todos os produtos ou validade do produto, como faço aqui.
Lucas Lott |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|