Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

fox a SQL

16/02/2004 - 21:00 por William Garcia | Informe spam
Ayuda Hacer una pregunta
Necesito pasar este codigo a SQL

USE "c:\mis documentos\internet\proye\prem\DOCUMENT.dbf" EXCL
INDEX ON ABOCOD TAG ABOCOD

close data

use "c:\mis documentos\internet\proye\prem\PRU.dbf" shared in 0

USE "c:\mis documentos\internet\proye\prem\DOCUMENT.dbf" order ABOCOD shared
in 0

select PRU
go top
scan
varAbocod=abocod
select Document
seek VARABOCOD
store 0 to mDebito, mHaber
do while varAbocod=abocod .and. .not. eof()
if abocod=varAbocod
do case
Case doctpo="1".or.doctpo="4".or.doctpo="6".or.doctpo="7"
mDebito = mDebito + DocImp
Case doctpo="2".or.doctpo="5".or.doctpo="3"
mHaber = mHaber + DocImp
Endcase
endif
skip
enddo
Select PRU
replace debito with mDebito, Haber with mHaber, saldo with Debito-Haber
endscan
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Josué Maldonado
16/02/2004 - 21:19 | Informe spam
William,

No se puede traducir literalmente lo que necesitas a sql, recuerda que
Foxpro es un lenguaje procedural y sql no lo es, sin embargo puedes
hacer muchas cosas usando procedimientos almacenados, estoy seguro que
alguien con mas experiencia en esa area, aportara sobre este tema.

Saludos,

William Garcia wrote:

Necesito pasar este codigo a SQL

USE "c:\mis documentos\internet\proye\prem\DOCUMENT.dbf" EXCL
INDEX ON ABOCOD TAG ABOCOD

close data

use "c:\mis documentos\internet\proye\prem\PRU.dbf" shared in 0

USE "c:\mis documentos\internet\proye\prem\DOCUMENT.dbf" order ABOCOD shared
in 0

select PRU
go top
scan
varAbocod=abocod
select Document
seek VARABOCOD
store 0 to mDebito, mHaber
do while varAbocod=abocod .and. .not. eof()
if abocod=varAbocod
do case
Case doctpo="1".or.doctpo="4".or.doctpo="6".or.doctpo="7"
mDebito = mDebito + DocImp
Case doctpo="2".or.doctpo="5".or.doctpo="3"
mHaber = mHaber + DocImp
Endcase
endif
skip
enddo
Select PRU
replace debito with mDebito, Haber with mHaber, saldo with Debito-Haber
endscan






Sinceramente,

Josué Maldonado.

Preguntas similares

 

Busqueda sugerida :