FWH 2.7, BCC 5.51, WinXP Pro
regards Eugeniusz
- Code: Select all Expand view RUN
Define dialog oDlg name "L_DANE"
REDEFINE LISTBOX oLbx;
FIELDS str(zf->nr_komp,6),zf->nzw,zf->konto,str(zf->brutto,9,2),zf->podatekp,str(zf->kwota,9,2),dtoc(zf->data),zf->tytul;
HEADERS "Numer", "Nazwisko", "Numer konta ROR ","Brutto","Pod", "Kwota", "Data przelewu","Tytuł przelewu" ;
FIELDSIZES 45, 150, 200, 60, 30,60, 80,270 ;
ID 601 OF oDlg //UPDATE
redefine button id 602 of oDlg action (Nowy(oLbx,.T.),oLbx:Refresh())
redefine button id 603 of oDlg action (Nowy (oLbx,.F.),oLbx:Refresh())
redefine button id 604 of oDlg action (Kasuj(oLbx),oLbx:Refresh())
redefine button id 605 of oDlg action (Eksport(oLbx),oLbx:Refresh())
redefine button id 606 of oDlg action (Raport(oLbx),oLbx:Refresh())
redefine button id 607 of oDlg action (Raportpod(oLbx),oLbx:Refresh())
redefine button id 608 of oDlg action (oLbx:End(),oDlg:End())
oLbx:GoBottom()
ACTIVATE DIALOG oDlg