× Linguagem de Programação ADVPL

Perguntas Transferencia de dados

Mais
11 anos 6 meses atrás #13156 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

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13157 por lalberto
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

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.

Mais
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!

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13161 por lalberto
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

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.

Mais
11 anos 6 meses atrás #13162 por digarrafa
Respondido por digarrafa no tópico Transferencia de dados
Entendido, a outra parte não deverá ser compilada? só a parte do hist?

Valew man!

Por favor Acessar ou Registrar para participar da conversa.

Mais
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.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.137 segundos
Joomla templates by a4joomla