Encontró fin de archivo
Publicado por Karen Barrios (7 intervenciones) el 07/02/2014 15:28:38
Buneos dias, tengo el siguiente codigo, el me hace bien las consultas requeridas, pero se daña y sale error: Encontró fin de archivo.. Podrian ayudarme con esto gracias
CLOSE DATABASES
CLOSE DATABASES
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
*!* PRIVATE wfile = '1'+SUBSTR(SYS(2015),3)
*!* return wfile
CREATE CURSOR Facturas(Codigo C(3),Caja N(1),Factura C(8),PrefijoFacturas C(4),NumIniFacturas C(15),NumFinFacturas C(15),;
Exenta L,Gravada L,Iva N(6),Consumo L,TipoPago C(10),TotalPago N(13),Descuentos N,Anulados L)
USE Movimto IN 0
SELECT Movimto
INDEX ON ALLTRIM(DTOS(Fecha))+ALLTRIM(Prefijo)+ALLTRIM(Factura) TO c:\
SET FILTER TO BETWEEN(Movimto.Fecha,THISFORM.TxtFechaDesde.VALUE,THISFORM.txtfechahasta.VALUE)
GO TOP
DO WHILE !EOF()
IF !EMPTY(Movimto.Coddian)
lnCodigo = Movimto.Codigo
lcfactura = Movimto.Factura
lnCaja = Movimto.Caja
lcTipoPago = ""
llAnulado = Movimto.Anulado
lcCoddian = Movimto.Coddian
lcPrefijo = Movimto.Prefijo
lnNuminifac = Movimto.Facdes
lnNumfinfac = Movimto.Fachas
llExenta = Movimto.Exenta
llGravada = Movimto.Gravada
lnValorFactura = Movimto.Valor
lnValorIva = 0
lnValorDescuentos = 0
llconsumo = .F.
SELECT Movimto
SKIP
DO WHILE !EOF() and lcFactura = Movimto.Factura and lnCaja = Movimto.Caja and lcPrefijo = Movimto.Prefijo
IF Movimto.Tipo = 'C'
lnValorFactura = lnValorFactura + Movimto.Valor
ELSE
IF Movimto.Codigo <> 'PAG'
lnValorFactura = lnValorFactura - Movimto.Valor
ELSE
lcTipoPago = Movimto.FPago
ENDIF
ENDIF
IF Movimto.Codigo = 'IVA'
lnValorIva = lnValorIva + Movimto.Valor
ENDIF
IF INLIST(Movimto.Codigo,'DSC','DAU')
lnValorDescuentos = lnValorDescuentos + Movimto.Valor
ENDIF
SELECT Movimto
SKIP
ENDDO
SELECT Facturas
APPEND BLANK
REPLACE Codigo WITH lncodigo
REPLACE Caja WITH lnCaja
REPLACE Factura WITH lcfactura
REPLACE PrefijoFacturas WITH lcPrefijo
REPLACE NumIniFacturas WITH lnNuminifac
REPLACE NumFinFacturas WITH lnNumfinfac
REPLACE Exenta WITH llexenta
REPLACE Gravada WITH llgravada
REPLACE Iva WITH lnValorIva
REPLACE Consumo WITH llConsumo
REPLACE TotalPago WITH lnValorFactura
REPLACE Descuentos WITH lnValorDescuentos
REPLACE Anulados WITH llAnulado
REPLACE TipoPago WITH lcTipoPago
IF EOF()
RETURN
ENDIF
ELSE
IF !EOF()
SELECT Movimto
SKIP
ENDIF
ENDIF
ENDDO
Valora esta pregunta
0