ayuda urgente
Publicado por programadora (53 intervenciones) el 11/01/2010 18:34:05
hola chicos, tengo un problema, y me urge, tengo un form y en el boton de agregar nuevo registro tengo el siguiente codigo pero no me activa los txt para llenar el registro que hago???? porfa alguien que me ayude
STORE 0 TO TXTRECIBO
SELECT 1
LOCATE FOR recibo = THISFORM.txtrecibo.VALUE
*IF FOUND()
*DO WHILE .T.
*IF txtRECIBO=0
* CLOSE DATABASES
* RETURN
*ELSE
SEEK RECIBO
IF FOUND()
cMessageTitle = 'ERROR '
cMessageText = 'EL NUMERO DE RECIBO QUE PROPORCIONASTE YA EXISTE'
nDialogType = 0 + 0 + 58
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
THISFORM.REFRESH
*THISFORM.txtRecibo.SetFocus
*WAIT WINDOW 'EL NUMERO DE RECIBO QUE PROPORCIONASTE YA EXISTE'
*WAIT WINDOW 'OPRIME CUALQUIER TECLA Y PROPORCIONA OTRO'
*WAIT ' '
*LOOP
ELSE
STORE DATE() TO FPOLIZA
*SELECT recibos
APPEND BLANK
REPLACE RECIBO WITH thisform.txtRECIBO.value
REPLACE FECHA WITH thisform.txtF_POLIZA.value
*thisform.txtFecha.SetFocus
*Clear GETS
*@ 15,10 SAY 'FECHA DE POLIZA' GET FPOLIZA COLOR GR+/B*,R*W+
READ
STORE '.DBF' TO IDE2
STORE SPACE(8) TO NO2
STORE SPACE(12) TO NUEVO2
NO2=DTOC(FPOLIZA)
NUEVO2=NO2+IDE2
STORE FECHA TO FEC
IF .NOT. FILE(NO2+".DBF")
STORE SPACE(8) TO NOM
STORE '.DBF' TO IDE
STORE SPACE(12) TO NUEVO
NOM=DTOC(FPOLIZA)
NUEVO=NOM+IDE
COPY FILE INGR1.DBF TO DTOC(FPOLIZA)+".DBF"
SELECT 3
USE DTOC(FPOLIZA)+".DBF"
INDEX ON CUENTA TO DTOC(FPOLIZA)+".IDX"
ENDIF
SELECT 3
USE DTOC(FPOLIZA)+".DBF" INDEX DTOC(FPOLIZA)+".IDX"
* INCREMENTAR PARA VARIOS NUMEROS DE CUENTA EN EL MISMO RECIBO
STORE 0 TO X
DO WHILE X<=7
*@ 17,2 TO 27,78 CLEAR
X=X+1
STORE 0 TO CTA,DG
STORE ' ' TO DGA1
STORE SPACE(10) TO DGA2
*@ 18,10 SAY 'PARA TERMINAR LA CAPTURA DE 0 AL NUMERO DE CUENTA'
*@ 19,10 SAY 'NUMERO DE CUENTA ' GET CTA PICTURE '99999999999' COLOR GR+/B*,R*W+
* @ 22,10 SAY 'DIGITO ' GET DG PICTURE '9' COLOR GR+/B*,R*W+
READ
DGA2=LTRIM(STR(CTA))
DGA1=SUBSTR(DGA2,1,1)
DG=VAL(DGA1)
IF CTA=0
EXIT
ELSE
SELECT 2
SEEK CTA
IF .NOT. FOUND( )
WAIT WINDOW '*** LA CUENTA PROPORCIONADA NO EXISTE EN EL CATALOGO ***'
X=X-1
SELECT 3
LOOP
ENDIF
STORE SPACE(100) TO NOMCTA
NOMCTA=NOMBRE
SELECT 1
REPLACE F_POLIZA WITH FPOLIZA
DO CASE
CASE X=1
REPLACE CTA1 WITH CTA
REPLACE NOM1 WITH NOMCTA
*@ 20,10 SAY 'CARGO N$ ' GET CARGO1
*@ 21,10 SAY 'HABONO N$ ' GET HABONO1
READ
STORE 0 TO C,H
*C=CARGO1
H=HABONO1
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
*DEBPOLI=DEBE+C
HABPOLI=HABER+H
*REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
*REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=2
REPLACE CTA2 WITH CTA
REPLACE NOM2 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO2 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO2 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO2
H=HABONO2
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=3
REPLACE CTA3 WITH CTA
REPLACE NOM3 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO3
@ 21,10 SAY 'HABONO N$ ' GET HABONO3
READ
STORE 0 TO C,H
C=CARGO3
H=HABONO3
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=4
REPLACE CTA4 WITH CTA
REPLACE NOM4 WITH NOMCTA
@ 21,10 SAY 'CARGO N$ ' GET CARGO4
@ 22,10 SAY 'HABONO N$ ' GET HABONO4
READ
STORE 0 TO C,H
C=CARGO4
H=HABONO4
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=5
REPLACE CTA5 WITH CTA
REPLACE NOM5 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO5 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO5 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO5
H=HABONO5
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=6
REPLACE N_CUENTA6 WITH CTA
REPLACE NOM_CTA6 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO6 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO6 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO6
H=HABONO6
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=7
REPLACE N_CUENTA7 WITH CTA
REPLACE NOM_CTA7 WITH NOMCTA
@ 21,10 SAY 'CARGO N$ ' GET CARGO7
@ 22,10 SAY 'HABONO N$ ' GET HABONO7
READ
STORE 0 TO C,H
C=CARGO7
H=HABONO7
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
ENDCASE
ENDIF
ENDDO
ENDIF
*ENDIF
* ENDDO
*ENDIF
STORE 0 TO TXTRECIBO
SELECT 1
LOCATE FOR recibo = THISFORM.txtrecibo.VALUE
*IF FOUND()
*DO WHILE .T.
*IF txtRECIBO=0
* CLOSE DATABASES
* RETURN
*ELSE
SEEK RECIBO
IF FOUND()
cMessageTitle = 'ERROR '
cMessageText = 'EL NUMERO DE RECIBO QUE PROPORCIONASTE YA EXISTE'
nDialogType = 0 + 0 + 58
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
THISFORM.REFRESH
*THISFORM.txtRecibo.SetFocus
*WAIT WINDOW 'EL NUMERO DE RECIBO QUE PROPORCIONASTE YA EXISTE'
*WAIT WINDOW 'OPRIME CUALQUIER TECLA Y PROPORCIONA OTRO'
*WAIT ' '
*LOOP
ELSE
STORE DATE() TO FPOLIZA
*SELECT recibos
APPEND BLANK
REPLACE RECIBO WITH thisform.txtRECIBO.value
REPLACE FECHA WITH thisform.txtF_POLIZA.value
*thisform.txtFecha.SetFocus
*Clear GETS
*@ 15,10 SAY 'FECHA DE POLIZA' GET FPOLIZA COLOR GR+/B*,R*W+
READ
STORE '.DBF' TO IDE2
STORE SPACE(8) TO NO2
STORE SPACE(12) TO NUEVO2
NO2=DTOC(FPOLIZA)
NUEVO2=NO2+IDE2
STORE FECHA TO FEC
IF .NOT. FILE(NO2+".DBF")
STORE SPACE(8) TO NOM
STORE '.DBF' TO IDE
STORE SPACE(12) TO NUEVO
NOM=DTOC(FPOLIZA)
NUEVO=NOM+IDE
COPY FILE INGR1.DBF TO DTOC(FPOLIZA)+".DBF"
SELECT 3
USE DTOC(FPOLIZA)+".DBF"
INDEX ON CUENTA TO DTOC(FPOLIZA)+".IDX"
ENDIF
SELECT 3
USE DTOC(FPOLIZA)+".DBF" INDEX DTOC(FPOLIZA)+".IDX"
* INCREMENTAR PARA VARIOS NUMEROS DE CUENTA EN EL MISMO RECIBO
STORE 0 TO X
DO WHILE X<=7
*@ 17,2 TO 27,78 CLEAR
X=X+1
STORE 0 TO CTA,DG
STORE ' ' TO DGA1
STORE SPACE(10) TO DGA2
*@ 18,10 SAY 'PARA TERMINAR LA CAPTURA DE 0 AL NUMERO DE CUENTA'
*@ 19,10 SAY 'NUMERO DE CUENTA ' GET CTA PICTURE '99999999999' COLOR GR+/B*,R*W+
* @ 22,10 SAY 'DIGITO ' GET DG PICTURE '9' COLOR GR+/B*,R*W+
READ
DGA2=LTRIM(STR(CTA))
DGA1=SUBSTR(DGA2,1,1)
DG=VAL(DGA1)
IF CTA=0
EXIT
ELSE
SELECT 2
SEEK CTA
IF .NOT. FOUND( )
WAIT WINDOW '*** LA CUENTA PROPORCIONADA NO EXISTE EN EL CATALOGO ***'
X=X-1
SELECT 3
LOOP
ENDIF
STORE SPACE(100) TO NOMCTA
NOMCTA=NOMBRE
SELECT 1
REPLACE F_POLIZA WITH FPOLIZA
DO CASE
CASE X=1
REPLACE CTA1 WITH CTA
REPLACE NOM1 WITH NOMCTA
*@ 20,10 SAY 'CARGO N$ ' GET CARGO1
*@ 21,10 SAY 'HABONO N$ ' GET HABONO1
READ
STORE 0 TO C,H
*C=CARGO1
H=HABONO1
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
*DEBPOLI=DEBE+C
HABPOLI=HABER+H
*REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
*REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=2
REPLACE CTA2 WITH CTA
REPLACE NOM2 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO2 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO2 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO2
H=HABONO2
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=3
REPLACE CTA3 WITH CTA
REPLACE NOM3 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO3
@ 21,10 SAY 'HABONO N$ ' GET HABONO3
READ
STORE 0 TO C,H
C=CARGO3
H=HABONO3
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=4
REPLACE CTA4 WITH CTA
REPLACE NOM4 WITH NOMCTA
@ 21,10 SAY 'CARGO N$ ' GET CARGO4
@ 22,10 SAY 'HABONO N$ ' GET HABONO4
READ
STORE 0 TO C,H
C=CARGO4
H=HABONO4
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=5
REPLACE CTA5 WITH CTA
REPLACE NOM5 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO5 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO5 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO5
H=HABONO5
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=6
REPLACE N_CUENTA6 WITH CTA
REPLACE NOM_CTA6 WITH NOMCTA
@ 20,10 SAY 'CARGO N$ ' GET CARGO6 COLOR GR+/B*,R*W+
@ 21,10 SAY 'HABONO N$ ' GET HABONO6 COLOR GR+/B*,R*W+
READ
STORE 0 TO C,H
C=CARGO6
H=HABONO6
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
CASE X=7
REPLACE N_CUENTA7 WITH CTA
REPLACE NOM_CTA7 WITH NOMCTA
@ 21,10 SAY 'CARGO N$ ' GET CARGO7
@ 22,10 SAY 'HABONO N$ ' GET HABONO7
READ
STORE 0 TO C,H
C=CARGO7
H=HABONO7
SELECT 3
SEEK CTA
IF FOUND()
STORE 0 TO DEBPOLI,HABPOLI
DEBPOLI=DEBE+C
HABPOLI=HABER+H
REPLACE DEBE WITH DEBPOLI
REPLACE HABER WITH HABPOLI
ELSE
APPEND BLANK
REPLACE CUENTA WITH CTA
REPLACE NOMBRE WITH NOMCTA
REPLACE DEBE WITH C
REPLACE HABER WITH H
REPLACE FECHA WITH FEC
REPLACE DIGITO WITH DG
ENDIF
SELECT 2
STORE 0 TO CARLOGO,HABLOGO
CARLOGO=CARGO+C
HABLOGO=HABONO+H
REPLACE CARGO WITH CARLOGO
REPLACE HABONO WITH HABLOGO
SELECT 1
ENDCASE
ENDIF
ENDDO
ENDIF
*ENDIF
* ENDDO
*ENDIF
Valora esta pregunta
0