- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- PE MT100GE2 / MT103SE2
Perguntas PE MT100GE2 / MT103SE2
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
3 anos 11 meses atrás #32858
por diegoo_martins
PE MT100GE2 / MT103SE2 foi criado por diegoo_martins
Boa tarde Galera!
Preciso que o campo E2_HIST na rotina Doc de Entrada armazene os dados na tabela SE2 campo E2_HIST.
No PE MT103SE2, criei o campo na rotina MATA103 aba Duplicatas.
Agora, como gravar na Tabela SE2??
User Function MT103SE2()
Local aRet := {}
// Adicinando o campo E2_HIST ao aCols.
If MsSeek("E2_HIST")
aadd(aRet,{Trim(X3Titulo()), SX3->X3_CAMPO, SX3->X3_PICTURE, SX3->X3_TAMANHO, SX3->X3_DECIMAL, "", SX3->X3_USADO, SX3->X3_TIPO, SX3->X3_F3, SX3->X3_CONTEXT, SX3->X3_CBOX, SX3->X3_RELACAO, ".T."})
EndIf
Return (aRet)
Preciso que o campo E2_HIST na rotina Doc de Entrada armazene os dados na tabela SE2 campo E2_HIST.
No PE MT103SE2, criei o campo na rotina MATA103 aba Duplicatas.
Agora, como gravar na Tabela SE2??
User Function MT103SE2()
Local aRet := {}
// Adicinando o campo E2_HIST ao aCols.
If MsSeek("E2_HIST")
aadd(aRet,{Trim(X3Titulo()), SX3->X3_CAMPO, SX3->X3_PICTURE, SX3->X3_TAMANHO, SX3->X3_DECIMAL, "", SX3->X3_USADO, SX3->X3_TIPO, SX3->X3_F3, SX3->X3_CONTEXT, SX3->X3_CBOX, SX3->X3_RELACAO, ".T."})
EndIf
Return (aRet)
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 295
- Obrigados Recebidos: 20
3 anos 11 meses atrás #32859
por admin
Respondido por admin no tópico PE MT100GE2 / MT103SE2
Cria este ponto de entrada, e debuga o conteudo do vetor aparcelas, e veja, se esta vindo o historico que vc acrescentou no ponto de entrada anterior. e substitui na hora de gravar.
#include 'protheus.ch'
#include 'parmtype.ch'
User Function MT100GE2()
Local aTitAtual := PARAMIXB[1]
Local nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas := ParamIXB[5]
Local nX := ParamIXB[4]
//.....Exemplo de customização
If nOpc == 1 //.. inclusao
SE2->E2_HIST:= SE O HISTÓRICO ESTIVER EM UM DOS VETORES, COLOCA AQUI PARA GRAVAR.
Endif
Return(Nil)
#include 'protheus.ch'
#include 'parmtype.ch'
User Function MT100GE2()
Local aTitAtual := PARAMIXB[1]
Local nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas := ParamIXB[5]
Local nX := ParamIXB[4]
//.....Exemplo de customização
If nOpc == 1 //.. inclusao
SE2->E2_HIST:= SE O HISTÓRICO ESTIVER EM UM DOS VETORES, COLOCA AQUI PARA GRAVAR.
Endif
Return(Nil)
Por favor Acessar ou Registrar para participar da conversa.
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
3 anos 11 meses atrás #32862
por diegoo_martins
Respondido por diegoo_martins no tópico PE MT100GE2 / MT103SE2
Valeu Luiz! Perfeito.
User Function MT100GE2
Local aCols := PARAMIXB[1]
Local nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas:= PARAMIXB[5]
Local cHistSE2:= PARAMIXB[1][17]
Local nPos := Ascan(aHeadSE2,{|x| Alltrim(x[2]) == 'E2_HIST'})
// 18-05-2020 - Diego Martins
// Gravar Invoice na SE2 Relatório FINR150
If nOpc == 1 // Inclusao
RecLock("SE2",.F.)
SE2->E2_HIST := cHistSE2
MsUnLock()
Endif
Return()
User Function MT100GE2
Local aCols := PARAMIXB[1]
Local nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas:= PARAMIXB[5]
Local cHistSE2:= PARAMIXB[1][17]
Local nPos := Ascan(aHeadSE2,{|x| Alltrim(x[2]) == 'E2_HIST'})
// 18-05-2020 - Diego Martins
// Gravar Invoice na SE2 Relatório FINR150
If nOpc == 1 // Inclusao
RecLock("SE2",.F.)
SE2->E2_HIST := cHistSE2
MsUnLock()
Endif
Return()
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- PE MT100GE2 / MT103SE2
Tempo para a criação da página:0.089 segundos