romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
COMUN/datemenu/xold/xnote_jurnaltva.prg Normal file
View File

@@ -0,0 +1,31 @@
*!* 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