|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
AP. COMPRA: Carregar campo B1_OBS em CR_OBS |
|
Versão: |
12.1.7 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
THAYNA002
em 18/07/2018, 14:56 h
Local: RJ Registro: 22/11/2017 Postagens: 7 |
Olá, pessoal.
No módulo de compra, controle de alçada, temos a rotina "Aprovação de Documentos" cujo fonte é MATA094.
Eu gostaria de carregar as informações do campo B1_OBS de cadastro de produtos no campo CR_OBS da rotina MATA094.
Alguma sugestão? tentei utilizar o ponto de entrada MT094CPC e MT094CCR mas não ta funcionando. |
|
|
Mensagem do
MIRIAMFX2
em 19/07/2018, 09:09 h
Local: MG Registro: 15/03/2018 Postagens: 13 |
THAYNA002 a rotina de cadastro de produtos é MVC agora, e não permite gatilhos estrangeiros comuns, o que voce pode fazer é utilizar o ponto de entrada MVC no momento em que for conveniente pra voce.
Exemplo:
User Function ITEM()
Local aParam := PARAMIXB
Local cIdPonto := ""
Local xRet := .T.
Local cCod := ""
Local cUpdate := ""
Local cDesc := ""
If aParam <> NIL
cIdPonto := aParam[2]
If cIdPonto == "FORMPOS"
If xRet == .T.
cCod :=alltrim(M->B1_COD)
cDesc:=alltrim(M->B1_DESC)
cUpdate := "update " + RetSQLName("SG1")+ " set G1_DESC_OP = ‘"+ cDesc +"‘ where G1_COD = ‘"+ cCod +"‘
TcSqlExec(cUpdate)
EndIF
EndIf
EndIf
Return xRet
No caso coloquei um update num campo personalizado SG1 com o conteúdo da SB1, esse "gatilho" funciona no FORMPOS que seria logo apos alterar o cadastro.
Segue o link dos pontos de entrada MVC.
http://tdn.totvs.com/pages/releaseview.action?pageId=208345968 |
|
|
Mensagem do
MIRIAMFX2
em 19/07/2018, 09:10 h
Local: MG Registro: 15/03/2018 Postagens: 13 |
THAYNA002 a rotina de cadastro de produtos é MVC agora, e não permite gatilhos estrangeiros comuns, o que voce pode fazer é utilizar o ponto de entrada MVC no momento em que for conveniente pra voce.
Exemplo:
User Function ITEM()
Local aParam := PARAMIXB
Local cIdPonto := ""
Local xRet := .T.
Local cCod := ""
Local cUpdate := ""
Local cDesc := ""
If aParam <> NIL
cIdPonto := aParam[2]
If cIdPonto == "FORMPOS"
If xRet == .T.
cCod :=alltrim(M->B1_COD)
cDesc:=alltrim(M->B1_DESC)
cUpdate := "update " + RetSQLName("SG1")+ " set G1_DESC_OP = ‘"+ cDesc +"‘ where G1_COD = ‘"+ cCod +"‘
TcSqlExec(cUpdate)
EndIF
EndIf
EndIf
Return xRet
No caso coloquei um update num campo personalizado SG1 com o conteúdo da SB1, esse "gatilho" funciona no FORMPOS que seria logo apos alterar o cadastro.
Segue o link dos pontos de entrada MVC.
http://tdn.totvs.com/pages/releaseview.action?pageId=208345968 |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|