Perdon la Insistencia, parte del codigo
Publicado por Raul (151 intervenciones) el 28/08/2004 16:22:31
PROCEDURE guarda
SELECT entsal
GO top
browse
APPEND BLANK
browse
IF !SEEK(frmentsal.pageframe1.page1.TxtCCVEPROD.Value,'entsal',2)
= MESSAGEBOX('La entrada del producto NO existe,se procederá a guardarla',48,'DISTRIBUIDORA MARIA ISABEL')
REPLACE EntSal.ccveprod WITH FrmEntSal.Pageframe1.page1.TxtCCVEPROD.Value,;
EntSal.CIDENENT WITH FrmEntSal.Pageframe1.page1.TxtCIDENENT.Value,;
EntSal.CDESCPROD WITH FrmEntSal.Pageframe1.page1.TxtCDESCPROD.Value,;
EntSal.CMARCAPROD WITH FrmEntSal.Pageframe1.page1.TxtCMARCAPROD.Value,;
EntSal.CPRESPROD WITH FrmEntSal.Pageframe1.page1.TxtCPRESPROD.Value,;
EntSal.DFECENT WITH FrmEntSal.Pageframe1.page1.TxtDFECENT.Value,;
EntSal.DFECCAD WITH FrmEntSal.Pageframe1.page1.TxtDFECCAD.Value,;
EntSal.CCANTENT WITH FrmEntSal.Pageframe1.page1.TxtCCANTENT.Value,;
EntSal.CCANTSAL WITH FrmEntSal.Pageframe1.page2.TxtCCANTSAL.Value
browse
ENDIF
RETURN
SELECT entsal
GO top
browse
APPEND BLANK
browse
IF !SEEK(frmentsal.pageframe1.page1.TxtCCVEPROD.Value,'entsal',2)
= MESSAGEBOX('La entrada del producto NO existe,se procederá a guardarla',48,'DISTRIBUIDORA MARIA ISABEL')
REPLACE EntSal.ccveprod WITH FrmEntSal.Pageframe1.page1.TxtCCVEPROD.Value,;
EntSal.CIDENENT WITH FrmEntSal.Pageframe1.page1.TxtCIDENENT.Value,;
EntSal.CDESCPROD WITH FrmEntSal.Pageframe1.page1.TxtCDESCPROD.Value,;
EntSal.CMARCAPROD WITH FrmEntSal.Pageframe1.page1.TxtCMARCAPROD.Value,;
EntSal.CPRESPROD WITH FrmEntSal.Pageframe1.page1.TxtCPRESPROD.Value,;
EntSal.DFECENT WITH FrmEntSal.Pageframe1.page1.TxtDFECENT.Value,;
EntSal.DFECCAD WITH FrmEntSal.Pageframe1.page1.TxtDFECCAD.Value,;
EntSal.CCANTENT WITH FrmEntSal.Pageframe1.page1.TxtCCANTENT.Value,;
EntSal.CCANTSAL WITH FrmEntSal.Pageframe1.page2.TxtCCANTSAL.Value
browse
ENDIF
RETURN
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0