× Linguagem de Programação ADVPL

Perguntas Posicionar tabelas

Mais
10 anos 4 meses atrás #23715 por miquilino
Posicionar tabelas foi criado por miquilino
Boa tarde!
Eu tenho uma rotina que me mostra as solicitações de importação que estão pendentes, criei uma coluna com a data da emissão, porem neste caso os itens estão na tabela SW1 (contem o numero da SI = W1_SI_NUM e o codigo do produto W1_COD_I), porem a data da emissao esta em outra tabela, na SW0 (na qual contem tambem o numero da SI = W0__NUM e a data = W0__DAT.

Eu preciso neste relatorio que me mostre o numero da si, codigo da si e a data, preciso posicionar o campo da data para que relacione com o numero da si das tabelas SW1 e SW0 e me mostra a data que esta na tabela SW0 em uma coluna, segue abaixo a parte do fonte que contem esta informação, com este fonte abaixo, a data ainda nao aparece, fica em branco, esta faltando posicionar, algo assim, se puder me ajudar agradeço, é no TRB->EMISSAO que eu preciso que apareça a data.

DbSelectArea("SW1")
DbSetOrder(5)
DbSeek(xFilial("SW1")+SB1->B1_COD)

If Found()
While SW1->W1_COD_I == SB1->B1_COD
dSI := SW1->W1_SI_NUM
IncProc()
If SW1->W1_SALDO_Q > 0 .AND. SW1->W1_SEQ == 0
DbSelectArea("TRB")
RecLock("TRB",.T.)
TRB->NUMITEM := SW1->W1_SI_NUM+"/"+SW1->W1_POSIT
TRB->PRODUTO := SW1->W1_COD_I
TRB->CC := SW1->W1_CC
TRB->FORNECE := "*** Solic Import. ***"
TRB->EMISSAO := Posicione("SW0",1,xFilial("SW0")+dSI,"W0__DT")
TRB->ENTREGA := SW1->W1_DTENTR_
TRB->QUANT := SW1->W1_QTDE
TRB->QTENTR := SW1->W1_SALDO_Q
//TRB->OBS := SC1->C1_OBS
MsUnlock()
TOTAL := TOTAL + SW1->W1_SALDO_Q
EndIf
DbSelectArea("SW1")
DbSkip()
EndDo
EndIf

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23717 por kanaamlrr
Respondido por kanaamlrr no tópico Posicionar tabelas
Fernando, tente assim:

TRB->EMISSAO := Posicione("SW0",1,xFilial("SW0")+SW1->W1_CC+dSI,"W0__DT")

Abraço!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23719 por miquilino
Respondido por miquilino no tópico Posicionar tabelas
Muitíssimo obrigado!
Deu certo, funcionou, mas o porque de utilizar o campo CC ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23720 por kanaamlrr
Respondido por kanaamlrr no tópico Posicionar tabelas
Porque o índice de posição 1 da tabela SW0 é W0_FILIAL+W0__CC+W0__NUM

Abraço!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23721 por miquilino
Respondido por miquilino no tópico Posicionar tabelas
Agora entendi.
Muito obrigado.

Abraço

Por favor Acessar ou Registrar para participar da conversa.

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