× Linguagem de Programação ADVPL

Perguntas Data de pedido de vendas mais numero pedido de vendas na tabela CB7

Mais
11 anos 9 meses atrás #10018 por Alessandro Villar
Kanaam,
estou anexando o fonte, pois não foi eu quem desenvolveu estou tentando ajustar, eu verifiquei quando estava debugando agora que tem um trecho que está tratando "If dbSeek(xFilial("SC5") + CB8->CB8_PEDIDO)" e eu tratei também conforme colei o trecho aqui, se puder olhar o fonte, acho que irei ter que ajustar ali ao inves de acrescentar novamente.
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10022 por kanaamlrr
Cara, lá em cima ele está fazendo um LOOP na CB8.
Quando sai do LOOp a CB8 está "desposicionada", você vai precisar reposicionar a CB8 para depois posicionar a SC5



Arquivo Anexo:

Nome do Arquivo: ACD100GI.zip
Tamanho do Arquivo:2 KB


Segue com a alteração
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10032 por Alessandro Villar
Kanaam você me enviou com alteração ou só mencionou mesmo?, pois está igual a minha, teria como me auxiliar nessa correção? em que momento eu teria que reposicionar.

aqui ele está na CB8 correto?
If dbSeek(xFilial("CB8") + CB7->CB7_ORDSEP)
While !CB8->(EOF()) .AND. CB8->CB8_FILIAL == xFilial("CB8") .AND. CB8->CB8_ORDSEP == CB7->CB7_ORDSEP
em que momento tenho que reposicionar a CB8 para depois posicionar a SC5?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10033 por kanaamlrr
O que eu mandei está alterado.
Dá uma verificada ai.
Acho que quando e zipei perdeu a identação

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10039 por Alessandro Villar
Kanaam, entendi a alteração faltava posicionar como abaixo, muito obrigado pela ajuda, agora voltarei a tentar a desenvolver os logs de conferencia rsrsrs.. brigadao cara.

dbSelectArea("CB8")
dbSetOrder(1)
If dbSeek(xFilial("CB8") + CB7->CB7_ORDSEP)

dbSelectArea("SC5")
dbSetOrder(1)
If dbSeek(xFilial("SC5") + CB8->CB8_PEDIDO)

Por favor Acessar ou Registrar para participar da conversa.

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