Marius Mutu
b9eba29ebe
frm_modific2024, pgfArticole.PAGE3 - editare in memorie, fara scriere in Oracle (aceea ramane S5). - sub-blocul A: cantitate/pret/pret_cu_tva editabile inline, marcaj lmodificat pe linie, coloana valoare pe linie - sub-blocul B: stergere logica de linii (sters/DynamicForeColor gri) si adaugare de linii prin frm_articol_factura, cu alegerea articolului prin caut_articol() - sub-blocul C: bara de totaluri sub grid (total linii convertit RON la cursul documentului, discount de antet editabil, total net), ascunsa pe transfer/custodie; verdict de corelatie ACT/RUL informativ, cu 3 stari - suma ACT: sold net debit-credit, cont pe tip de document (4111 / 418 / 461, iar pe rate/contract 4111, 411 sau 461) - suma RUL: doar ID_TIP_RULAJ = 0, adica miscarile reale; perechile ID_TIP_RULAJ = 3 sunt virtuale (tin locul procesului verbal de schimbare de pret) si nu intra in suma. Corectie cu liniile nestocate, marcata "ajustat" - adaugarea de linii pe document in valuta: dialogul primeste tip_valuta si cursul documentului de pe tvanz, deci pretul se introduce direct in valuta; ofacturare.vc2 ramane neatins - cei 5 apelanti frm_modific2024 (afisjurcom, anaf_efactura, cele doua .sc2 de import) pregatesc cursorul de articole inainte de Createobject, gardat pe SET PROCEDURE - registrul jurnal din ROACONT/ROAGEST ramane neschimbat Teste headless pe MARIUSM_AUTO, suite care isi descopera singure documentele: test_page3_articole 14/2 (cele 2 = artefact de grid nematerializat headless, acoperit pe ecran), test_incarca_vanzare_din_nota 5/0, test_adauga_linie_articol 20/0, test_adauga_linie_valuta 16/0, test_ui_sterge_linie 8/0, test_verdict_act_rul 26/0. docs/todos.txt: punctele 13 si 20, scrise de Marius. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01SN8snvkk94KuhWwoXUUey3
33 lines
1021 B
Plaintext
33 lines
1021 B
Plaintext
*!* test izolat: verifica daca VFP accepta un camp de cursor numit "_modificat"
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
|
|
LOCAL lcLog
|
|
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_nume_coloana_modificat.log'
|
|
IF FILE(m.lcLog)
|
|
DELETE FILE (m.lcLog)
|
|
ENDIF
|
|
|
|
ON ERROR DO logeaza WITH 'EROARE: ' + Message() + ' (linia ' + Transform(Lineno()) + ')'
|
|
|
|
CREATE CURSOR tprobA (id_vanzare_det I, _modificat L)
|
|
APPEND BLANK
|
|
REPLACE _modificat WITH .T.
|
|
STRTOFILE('tprobA OK, _modificat=' + Transform(tprobA._modificat) + CHR(13) + CHR(10), m.lcLog, 1)
|
|
USE IN tprobA
|
|
|
|
CREATE CURSOR tprobB (id_vanzare_det I, lmodificat L)
|
|
APPEND BLANK
|
|
REPLACE lmodificat WITH .T.
|
|
STRTOFILE('tprobB OK, lmodificat=' + Transform(tprobB.lmodificat) + CHR(13) + CHR(10), m.lcLog, 1)
|
|
USE IN tprobB
|
|
|
|
STRTOFILE('TERMINAT' + CHR(13) + CHR(10), m.lcLog, 1)
|
|
QUIT
|
|
|
|
PROCEDURE logeaza
|
|
LPARAMETERS tcMesaj
|
|
STRTOFILE(m.tcMesaj + CHR(13) + CHR(10), 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_nume_coloana_modificat.log', 1)
|
|
RETURN
|
|
ENDPROC
|