Hello I started with PVX no many samples can find or see, is hard get a progress when you have some examples or tutorial
I working on small app i need to show and fill a grid with information , hope some body can help me just when select the form filter records and show in the grid.
screen attach image
00010 ! detalleforma.en --- Created on Thursday, December 31 2020 by enrique
00020 !
00030 !
00070 PROCESS_FORMANAME:
00071 READ (1,KEY=FORMNAME$,DOM=BADID)FORMNAME$,DESCRIPTION$
00072 LET REFRESH_FLG=1; RETURN
00090 BADID:
00100 MSGBOX "Form not registered"
00110 RETURN
00120 !
00130 PREDISPLAY_FORMDETALLE:
00140 OPEN (1,IOL=*)"Formasdatas"
00141 OPEN (2,IOL=*)"detformas"
00150 RETURN
00160 !
00170 CELL_CHANGE_GRID_DETAILFORMCFIELDNAMER0:
00171 READ (2,KEY=FORMNAME$:FIELDNAME$,DOM=BADIDF)FORMNAME$,FIELDNME$
00172 MSGBOX "FIELD DEFINED"
00180 RETURN
00190 BADIDF:
00200 RETURN
00210 !
00220 PROCESS_BUTTON_ADDROW:
00221 LET FIELDNAME$="DATE INVOICE"
00222 LET ID=1
00223 LET FIELDLINE=10
00224 LET FIELDLENGTH=11
00225 LET ISDETAIL$="N"
00226 WRITE (2)FORMNAME$,FIELDNAME$,FIELDLINE,FIELDLENGTH,ISDETAIL$
00230 RETURN
Thanks
Enrique Pineda
I working on small app i need to show and fill a grid with information , hope some body can help me just when select the form filter records and show in the grid.
screen attach image
00010 ! detalleforma.en --- Created on Thursday, December 31 2020 by enrique
00020 !
00030 !
00070 PROCESS_FORMANAME:
00071 READ (1,KEY=FORMNAME$,DOM=BADID)FORMNAME$,DESCRIPTION$
00072 LET REFRESH_FLG=1; RETURN
00090 BADID:
00100 MSGBOX "Form not registered"
00110 RETURN
00120 !
00130 PREDISPLAY_FORMDETALLE:
00140 OPEN (1,IOL=*)"Formasdatas"
00141 OPEN (2,IOL=*)"detformas"
00150 RETURN
00160 !
00170 CELL_CHANGE_GRID_DETAILFORMCFIELDNAMER0:
00171 READ (2,KEY=FORMNAME$:FIELDNAME$,DOM=BADIDF)FORMNAME$,FIELDNME$
00172 MSGBOX "FIELD DEFINED"
00180 RETURN
00190 BADIDF:
00200 RETURN
00210 !
00220 PROCESS_BUTTON_ADDROW:
00221 LET FIELDNAME$="DATE INVOICE"
00222 LET ID=1
00223 LET FIELDLINE=10
00224 LET FIELDLENGTH=11
00225 LET ISDETAIL$="N"
00226 WRITE (2)FORMNAME$,FIELDNAME$,FIELDLINE,FIELDLENGTH,ISDETAIL$
00230 RETURN
Thanks
Enrique Pineda