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
Leer las respuestas