- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Transferencia de dados
×
Linguagem de Programação ADVPL
Perguntas Transferencia de dados
- digarrafa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13156
por digarrafa
Transferencia de dados foi criado por digarrafa
Prezados bom dia.
Tenho 2 tabelas que eu gostaria de compartinlhar a mesma informação! no caso a SE2_Hist e a RC1_HISTOR, ambas contem histórico de função de pagamento, porém elas não se conversam entre sí!
Como faço para que quando finalise a integração da geração de titulos do RC1 a mesma pegue a informação da tabela RC1_Histor e aplique na E2_Histor?
Grato
Tenho 2 tabelas que eu gostaria de compartinlhar a mesma informação! no caso a SE2_Hist e a RC1_HISTOR, ambas contem histórico de função de pagamento, porém elas não se conversam entre sí!
Como faço para que quando finalise a integração da geração de titulos do RC1 a mesma pegue a informação da tabela RC1_Histor e aplique na E2_Histor?
Grato
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 6 meses atrás #13157
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Transferencia de dados
#include "protheus.ch"
User Function GP670ARR()
Local aRet := {}
aadd(aRet,{"E2_HIST",RC1->RC1_DESCRI,NIL})
aadd(aRet,{"E2_CODRET",RC1->RC1_ARREF,NIL})
aadd(aRet,{"E2_ARPER",RC1->RC1_ARPER,NIL})
aadd(aRet,{"E2_ARFOR",RC1->RC1_ARFOR,NIL})
aadd(aRet,{"E2_ARFLOJ",RC1->RC1_ARFLOJ,NIL})
aadd(aRet,{"E2_VALOR5",RC1->RC1_OENTID,NIL})
Return aRet
User Function GP670ARR()
Local aRet := {}
aadd(aRet,{"E2_HIST",RC1->RC1_DESCRI,NIL})
aadd(aRet,{"E2_CODRET",RC1->RC1_ARREF,NIL})
aadd(aRet,{"E2_ARPER",RC1->RC1_ARPER,NIL})
aadd(aRet,{"E2_ARFOR",RC1->RC1_ARFOR,NIL})
aadd(aRet,{"E2_ARFLOJ",RC1->RC1_ARFLOJ,NIL})
aadd(aRet,{"E2_VALOR5",RC1->RC1_OENTID,NIL})
Return aRet
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- digarrafa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13160
por digarrafa
Respondido por digarrafa no tópico Transferencia de dados
Luiz Boa tarde.
Muito obrigado pela resposta!
Só uma pequena dúvida, neste exemplo você está usando uma tabela da RC1 chamada RC1_DESCRI, esta tabela é bem limitada, gostaria de saber se eu a primeira linha para aadd(aRet,{"E2_HIST",RC1->RC1_HISTOR,NIL}), que é uma tabela que eu criei manualmente a mesma irá funcionar adequadamente quando eu colocar uma atualização no campo historico?
Outra coisa, preciso salvar como um prw e compilar dentro do projeto certo?
Grato!
Muito obrigado pela resposta!
Só uma pequena dúvida, neste exemplo você está usando uma tabela da RC1 chamada RC1_DESCRI, esta tabela é bem limitada, gostaria de saber se eu a primeira linha para aadd(aRet,{"E2_HIST",RC1->RC1_HISTOR,NIL}), que é uma tabela que eu criei manualmente a mesma irá funcionar adequadamente quando eu colocar uma atualização no campo historico?
Outra coisa, preciso salvar como um prw e compilar dentro do projeto certo?
Grato!
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 6 meses atrás #13161
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Transferencia de dados
Isso mesmo meu brother, vai salvar como prw, é um ponto de entrada, adicionar no seu projeto e compilar, segue como deverá ficar a rotina.
Precisando estamos as ordens, abraços.
#include "protheus.ch"
User Function GP670ARR()
Local aRet := {}
aadd(aRet,{"E2_HIST",RC1->RC1_HISTOR,NIL})
Return aRet
Precisando estamos as ordens, abraços.
#include "protheus.ch"
User Function GP670ARR()
Local aRet := {}
aadd(aRet,{"E2_HIST",RC1->RC1_HISTOR,NIL})
Return aRet
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- digarrafa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
- digarrafa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13180
por digarrafa
Respondido por digarrafa no tópico Transferencia de dados
Cara só vim aqui desta vez pra agradecer a grande ajuda!
Perfeito este gatilho muito bom mesmo e muito Obrigado, precisando pode me contatar sempre!
Atenciosamente.
Diego Amaral
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Perfeito este gatilho muito bom mesmo e muito Obrigado, precisando pode me contatar sempre!
Atenciosamente.
Diego Amaral
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Transferencia de dados
Tempo para a criação da página:0.137 segundos