busqueda en una tabla a partir de una tempora
Publicado por Diego Villavicncio (15 intervenciones) el 31/07/2008 18:53:14
Hola mi problema es el siguiente:
Tengos dos tablas el la primera con informacion del total de una compra (ingresos) y en la segunda los pagos que se ha relizado (Invpag), estoy haciendo una consulta de las compras que se encuentran impagas y los almaceno en una tabla temporal luego mi intención es buscar a partir de la tabla temporal en la tabla invpag,
dejo el codigo para que me puedan decir donde tengo el error o como debería realizarlo?
mc_Temporal00=SYS(3)+".tmp"
SELECT CODIGO_VENDEDOR AS CODVEN, N_PUNT as NUMPUN, NUMERO_INGRESO AS NUMING, VALOR_TOTAL AS VALTOT , FECHA_HORA AS FECHOR;
, estado as ACTIVOS , NUMERO_CAJA AS NUMCAJ, NPAGOS AS PAGOS, TIPOCOMP AS TIPING, codexp AS CODIGO, nombre AS NOMVEN FROM &MC_DATAPATH.&MC_SOURCEFILE. into dbf &MC_TEMPORALPATH.&MC_TEMPORAL00.;
WHERE (TTOD(FECHA_HORA)=MD_DATETODAY)AND(NUMERO_CAJA=MC_CAJA)AND ESTADO#'C' AND ESTADO#'A' ORDER BY CODIGO_VENDEDOR , NUMERO_INGRESO ASC
GO TOP
USE &MC_DATAPATH.&mc_SourceFile2. IN 0
DO WHILE.NOT.EOF()
suma=0
scan for alltrim(Invpag.numero_ingreso) = alltrim(numing)
suma= suma+invpag.valor
endscan
IF .NOT. EOF()
SKIP
ENDIF
ENDDO
Tengos dos tablas el la primera con informacion del total de una compra (ingresos) y en la segunda los pagos que se ha relizado (Invpag), estoy haciendo una consulta de las compras que se encuentran impagas y los almaceno en una tabla temporal luego mi intención es buscar a partir de la tabla temporal en la tabla invpag,
dejo el codigo para que me puedan decir donde tengo el error o como debería realizarlo?
mc_Temporal00=SYS(3)+".tmp"
SELECT CODIGO_VENDEDOR AS CODVEN, N_PUNT as NUMPUN, NUMERO_INGRESO AS NUMING, VALOR_TOTAL AS VALTOT , FECHA_HORA AS FECHOR;
, estado as ACTIVOS , NUMERO_CAJA AS NUMCAJ, NPAGOS AS PAGOS, TIPOCOMP AS TIPING, codexp AS CODIGO, nombre AS NOMVEN FROM &MC_DATAPATH.&MC_SOURCEFILE. into dbf &MC_TEMPORALPATH.&MC_TEMPORAL00.;
WHERE (TTOD(FECHA_HORA)=MD_DATETODAY)AND(NUMERO_CAJA=MC_CAJA)AND ESTADO#'C' AND ESTADO#'A' ORDER BY CODIGO_VENDEDOR , NUMERO_INGRESO ASC
GO TOP
USE &MC_DATAPATH.&mc_SourceFile2. IN 0
DO WHILE.NOT.EOF()
suma=0
scan for alltrim(Invpag.numero_ingreso) = alltrim(numing)
suma= suma+invpag.valor
endscan
IF .NOT. EOF()
SKIP
ENDIF
ENDDO
Valora esta pregunta


0