31 lines
851 B
Plaintext
31 lines
851 B
Plaintext
*!* Am adaugat coloana X34 in xact cu valoarea "id_jtva_coloana" si coloana X34 in XNOTE.
|
|
|
|
Set Deleted On
|
|
Set Century On
|
|
Set Date Dmy
|
|
Set Ansi On
|
|
Set Exact On
|
|
Set Date Dmy
|
|
Set Safety Off
|
|
Set Exclusive Off
|
|
Close Databases
|
|
|
|
lcDir = [D:\ROA_Branch\ROACONT\COMUN\datemenu\]
|
|
lcXnote = lcDir + [xnote.dbf]
|
|
Use (lcXnote) In 0 Shared
|
|
|
|
Select Distinct x21,x34 From xnote Into Cursor crsrezumat
|
|
Select crsrezumat
|
|
Browse
|
|
|
|
Select xnote
|
|
Replace x34 With [id_jnetax] For x21 = [neimpozab]
|
|
Replace x34 With [id_jtax] For Inlist(x21,[pnBazaFactura],[pnBazaNir],[pnBazaVanz],[pnDiscount],[totftva])
|
|
Replace x34 With [id_jtva] For Inlist(x21,[pnTvaDiscount],[pnTvaFactura],[pnTvaNir],[pnTvaVanzIn],[pnTvaVanzOut],[tottva])
|
|
|
|
Select Distinct x21,x34 From xnote Into Cursor crsrezumat
|
|
Select crsrezumat
|
|
Browse
|
|
|
|
Use In xnote
|
|
Use In crsrezumat |