1020 lines
40 KiB
Plaintext
1020 lines
40 KiB
Plaintext
* test_runda7_diferente.prg
|
|
* Verifica RUNDA 7 (COMUN\clase\ointroduceri.vcx, clasa import_nota) - vezi
|
|
* docs\diff_runda7_dif_lei_6588_focus.patch:
|
|
* 1. recalc_diferente: diferenta se scrie DOAR in lei pe randul D (suma_val=0, in_valuta=0,
|
|
* participa_valuta=.F., nume_val='', id_valuta=0, curs=0, Thisform.ndif_val=0, explicatia=='DIFERENTA').
|
|
* 2. Cont diferenta: dominant clasa 3 -> regulile vechi (34x->711, 371->607, 381/388->608,
|
|
* altfel 60+cifrele 3-4 din cont); FARA clasa 3 (doar articole clasa 2/imobilizari) -> scd FIX '6588'.
|
|
* 3. sparge_document nu mai scrie sufixul ' (rot.)' in explicatia.
|
|
* 4. Guard "doar la modificare" pe Grid1.cSuma/cSumaVal/GridArt.cCotaTva (GotFocus salveaza
|
|
* valoarea veche in nsumavechi/nsumavalvechi/ncotatvavechi; Valid iese fara efect daca
|
|
* Value == valoarea veche).
|
|
* 5. sincronizeaza() restaureaza pozitia si de pe randul D (Locate For tip_rand=='D').
|
|
*
|
|
* Scenariul A (exemplul lui Marius): FACTURA 100 RAJA EUR curs 5.23 (DVI 101 BIROUL VAMAL) +
|
|
* FACTURA 102 TRANS OIL 1000 lei (DVI 101) + FACTURA 103 BIROUL VAMAL 500 lei (TVA la furnizor),
|
|
* articole prin fluxul real "Adauga repere": BULDOEXCAVATOR cont 212 (1 buc, 5000 EUR) si
|
|
* AC GREE BORA cont 303 (1 buc, 100 EUR) -> dominant clasa 3 (303) -> scd='603'.
|
|
* Scenariul B: FACTURA 100 + DVI 101 (subset), UNIC articol BULDOEXCAVATOR cont 212 (imobilizari,
|
|
* fara clasa 3) -> scd FIX '6588'.
|
|
*
|
|
* Rulare:
|
|
* powershell -ExecutionPolicy Bypass -File test_runda7_diferente.ps1
|
|
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
SET DELETED ON
|
|
SET EXACT ON
|
|
SET CENTURY ON
|
|
SET DATE DMY
|
|
SET DECIMALS TO 4
|
|
SET NULLDISPLAY TO ''
|
|
CLOSE DATABASES
|
|
|
|
PUBLIC gcUILog, gcSyncDir
|
|
gcUILog = "D:\ROA\ROAGEST\COMUN\utile\Teste\achizitie_import\test_runda7_diferente_log.txt"
|
|
gcSyncDir = "D:\ROA\ROAGEST\COMUN\utile\Teste\achizitie_import\uisync_runda7\"
|
|
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), gcUILog)
|
|
|
|
ON ERROR DO R7Err WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
|
ON SHUTDOWN QUIT
|
|
|
|
TRY
|
|
LOCAL gcAppPath, lcPath
|
|
gcAppPath = "D:\ROA\ROAGEST\"
|
|
SET DEFAULT TO (gcAppPath)
|
|
|
|
lcPath = gcAppPath + 'Date;' + gcAppPath + 'Include;' + gcAppPath + 'FERESTRE;' + ;
|
|
gcAppPath + 'GRAFICE;' + gcAppPath + 'CLASE;' + gcAppPath + 'MENIURI;' + ;
|
|
gcAppPath + 'PROGRAME;' + gcAppPath + 'RAPOARTE;' + gcAppPath + 'COMUN;' + ;
|
|
gcAppPath + 'COMUN\CLASE;' + gcAppPath + 'COMUN\FERESTRE;' + gcAppPath + 'COMUN\PROGRAME;' + ;
|
|
gcAppPath + 'COMUN\GRAFICE;' + gcAppPath + 'COMUN\RAPOARTE;' + gcAppPath + 'COMUN\MENIURI;' + ;
|
|
gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + gcAppPath + 'COMUN\UTILE\CTL32;' + ;
|
|
gcAppPath + 'COMUN\UTILE\HPDF;' + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ;
|
|
gcAppPath + 'COMUN\UTILE\WEB;' + gcAppPath + 'COMUN\UTILE\EXCEL;' + ;
|
|
ADDBS(SUBSTR(gcAppPath,1,RAT([\],gcAppPath,2)))+[COMUNROA\]
|
|
SET PATH TO &lcPath ADDITIVE
|
|
DO R7Log WITH 'SET PATH OK'
|
|
|
|
*----- CLASE -----
|
|
SET CLASSLIB TO (gcAppPath + "comun\clase\appwiz") ADDITIVE
|
|
SET CLASSLIB TO GESTIUNI ADDITIVE
|
|
SET CLASSLIB TO CAUT ADDITIVE
|
|
SET CLASSLIB TO BAZA ADDITIVE
|
|
SET CLASSLIB TO comun ADDITIVE
|
|
SET CLASSLIB TO accessibility.vcx ADDITIVE
|
|
SET CLASSLIB TO messagebox ADDITIVE
|
|
SET CLASSLIB TO registry ADDITIVE
|
|
SET CLASSLIB TO cauta_alfa_forms.vcx ADDITIVE
|
|
SET CLASSLIB TO DECABAZA ADDITIVE
|
|
SET CLASSLIB TO onomenclatoare ADDITIVE
|
|
SET CLASSLIB TO stocuri.vcx ADDITIVE
|
|
SET CLASSLIB TO rulaje.vcx ADDITIVE
|
|
SET CLASSLIB TO ointroduceri ADDITIVE
|
|
SET CLASSLIB TO ointroduceri_web ADDITIVE
|
|
SET CLASSLIB TO ointroduceri_depozit ADDITIVE
|
|
SET CLASSLIB TO overificari ADDITIVE
|
|
SET CLASSLIB TO ferestre_oracle ADDITIVE
|
|
SET CLASSLIB TO ferestre_cere_date.vcx ADDITIVE
|
|
SET CLASSLIB TO configurare.vcx ADDITIVE
|
|
SET CLASSLIB TO serii_numere.vcx ADDITIVE
|
|
SET CLASSLIB TO omodificari.vcx ADDITIVE
|
|
SET CLASSLIB TO ocompensari.vcx ADDITIVE
|
|
SET CLASSLIB TO caut_ora ADDITIVE
|
|
SET CLASSLIB TO onote_contabile ADDITIVE
|
|
SET CLASSLIB TO otoolbar ADDITIVE
|
|
SET CLASSLIB TO bon_fisc ADDITIVE
|
|
SET CLASSLIB TO onom_articole ADDITIVE
|
|
SET CLASSLIB TO onom_retete ADDITIVE
|
|
SET CLASSLIB TO orapoarte ADDITIVE
|
|
SET CLASSLIB TO orapoarte_gestiuni ADDITIVE
|
|
SET CLASSLIB TO orapoarte_parametri ADDITIVE
|
|
SET CLASSLIB TO ONOM_CURS ADDITIVE
|
|
SET CLASSLIB TO ctl32_statusbar_fals.vcx ADDITIVE
|
|
SET CLASSLIB TO ctl32_common.vcx ADDITIVE
|
|
SET CLASSLIB TO ctl32_structs.vcx ADDITIVE
|
|
SET CLASSLIB TO ctl32_progressbar.vcx ADDITIVE
|
|
SET CLASSLIB TO ctl32_balloontip.vcx ADDITIVE
|
|
SET CLASSLIB TO ocriterii.vcx ADDITIVE
|
|
SET CLASSLIB TO oavize.vcx ADDITIVE
|
|
SET CLASSLIB TO onomenclatoare2 ADDITIVE
|
|
SET CLASSLIB TO wwdialogs.vcx ADDITIVE
|
|
SET CLASSLIB TO oimportxml.vcx ADDITIVE
|
|
SET CLASSLIB TO excelxml.vcx ADDITIVE
|
|
SET CLASSLIB TO orapoarte_obinv.vcx ADDITIVE
|
|
DO R7Log WITH 'SET CLASSLIB OK'
|
|
|
|
*----- PROCEDURI (mock amessagebox + mock cauta_nom_articole PRIMELE, ui_harness la final) -----
|
|
SET PROCEDURE TO PROCEDURI
|
|
SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\mock_amessagebox.prg" ADDITIVE
|
|
SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\mock_cauta_nom_articole.prg" ADDITIVE
|
|
SET PROCEDURE TO acces_meniu ADDITIVE
|
|
SET PROCEDURE TO cauta_alfa ADDITIVE
|
|
SET PROCEDURE TO pmenu ADDITIVE
|
|
SET PROCEDURE TO proceduri_comune ADDITIVE
|
|
SET PROCEDURE TO quitapp ADDITIVE
|
|
SET PROCEDURE TO init_program ADDITIVE
|
|
SET PROCEDURE TO oproceduri_listari.prg ADDITIVE
|
|
SET PROCEDURE TO oproceduri_configurare.prg ADDITIVE
|
|
SET PROCEDURE TO oproceduri_articole.prg ADDITIVE
|
|
SET PROCEDURE TO oproceduri_retete.prg ADDITIVE
|
|
SET PROCEDURE TO orapoarte.prg ADDITIVE
|
|
SET PROCEDURE TO mesaje ADDITIVE
|
|
SET PROCEDURE TO oserii_numere.prg ADDITIVE
|
|
SET PROCEDURE TO oexport.prg ADDITIVE
|
|
SET PROCEDURE TO wwConfig.prg ADDITIVE
|
|
SET PROCEDURE TO proceduri_rapoarte.prg ADDITIVE
|
|
SET PROCEDURE TO OPROCEDURI_CURS.PRG ADDITIVE
|
|
SET PROCEDURE TO validare.prg ADDITIVE
|
|
SET PROCEDURE TO GENCURSOR.PRG ADDITIVE
|
|
SET PROCEDURE TO OPROCEDURI_COMUNE.PRG ADDITIVE
|
|
SET PROCEDURE TO OINIT_OPTIUNI.PRG ADDITIVE
|
|
SET PROCEDURE TO updateserver.prg ADDITIVE
|
|
SET PROCEDURE TO oinainte_de.prg ADDITIVE
|
|
SET PROCEDURE TO ooperatii_comune.prg ADDITIVE
|
|
SET PROCEDURE TO Ocompensari.PRG ADDITIVE
|
|
SET PROCEDURE TO OPROCEDURI_aMS.PRG ADDITIVE
|
|
SET PROCEDURE TO oproceduri_rulaje ADDITIVE
|
|
SET PROCEDURE TO oproceduri_stocuri ADDITIVE
|
|
SET PROCEDURE TO OINTRODUCERI ADDITIVE
|
|
SET PROCEDURE TO oHeader.prg ADDITIVE
|
|
SET PROCEDURE TO proceduri_excel.PRG ADDITIVE
|
|
SET PROCEDURE TO onomenclatoare.PRG ADDITIVE
|
|
SET PROCEDURE TO osecurity ADDITIVE
|
|
SET PROCEDURE TO ocautare ADDITIVE
|
|
SET PROCEDURE TO orefaceri ADDITIVE
|
|
SET PROCEDURE TO ofacturare_comun.PRG ADDITIVE
|
|
SET PROCEDURE TO ofacturare_stoc.PRG ADDITIVE
|
|
SET PROCEDURE TO oproceduri_casademarcat ADDITIVE
|
|
SET PROCEDURE TO oproceduri_casa_marcat_e500 ADDITIVE
|
|
SET PROCEDURE TO oproceduri_casa_marcat_mp500 ADDITIVE
|
|
SET PROCEDURE TO oproceduri_util.prg ADDITIVE
|
|
SET PROCEDURE TO wwxmlhttp.prg ADDITIVE
|
|
SET PROCEDURE TO ini.prg ADDITIVE
|
|
SET PROCEDURE TO odocumente.prg ADDITIVE
|
|
SET PROCEDURE TO regex.prg ADDITIVE
|
|
SET PROCEDURE TO wwutils.prg ADDITIVE
|
|
SET PROCEDURE TO inchidere_k ADDITIVE
|
|
SET PROCEDURE TO iniacces.prg ADDITIVE
|
|
SET PROCEDURE TO oupdate.prg ADDITIVE
|
|
SET PROCEDURE TO procese.prg ADDITIVE
|
|
SET PROCEDURE TO version.prg ADDITIVE
|
|
SET PROCEDURE TO xmlaccess.prg ADDITIVE
|
|
SET PROCEDURE TO xmlparser.prg ADDITIVE
|
|
SET PROCEDURE TO filebringer.prg ADDITIVE
|
|
SET PROCEDURE TO wwcodeupdate.prg ADDITIVE
|
|
SET PROCEDURE TO wwhttp.prg ADDITIVE
|
|
SET PROCEDURE TO xdate.prg ADDITIVE
|
|
SET PROCEDURE TO ofacturare.prg ADDITIVE
|
|
SET PROCEDURE TO oproceduri_obinv.prg ADDITIVE
|
|
SET PROCEDURE TO oproceduri_facturare.prg ADDITIVE
|
|
SET PROCEDURE TO email.prg ADDITIVE
|
|
SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\ui_harness.prg" ADDITIVE
|
|
DO R7Log WITH 'SET PROCEDURE OK'
|
|
|
|
*----- Globale -----
|
|
PUBLIC gnPc, gnPval, gnPcant, gnPpret, gnPPretval, gnPCurs, gnPVal, gnPPretV, gnPPretVal
|
|
STORE 2 TO gnPc, gnPval, gnPVal
|
|
gnPcant = 3
|
|
STORE 4 TO gnPpret, gnPPretval, gnPPretVal, gnPPretV, gnPCurs
|
|
PUBLIC gl406, gcS, gnAn, gnLuna, gnIdFirma, gnIdSucursala, gcAcces, gcFirma
|
|
gl406 = .T.
|
|
gcS = 'CONTAFIN'
|
|
gnAn = YEAR(DATE())
|
|
gnLuna = MONTH(DATE())
|
|
gnIdFirma = 110
|
|
gnIdSucursala = 110
|
|
gcAcces = "1;2;3;4;5;6;7;8;"
|
|
gcFirma = gcS
|
|
PUBLIC nror(65000)
|
|
|
|
PUBLIC gnButon
|
|
STORE 2 TO gnButon
|
|
PUBLIC gcMockArtCodmat
|
|
gcMockArtCodmat = ''
|
|
|
|
PUBLIC goExecutor, goApp
|
|
goExecutor = CREATEOBJECT('dummyexecutor')
|
|
goApp = CREATEOBJECT('dummyapp')
|
|
|
|
*----- poAct: antetul notei; dialogul mosteneste din el la Init -----
|
|
PUBLIC poAct
|
|
poAct = CREATEOBJECT('Custom')
|
|
poAct.AddProperty('nume_val', '')
|
|
poAct.AddProperty('curs', 1)
|
|
poAct.AddProperty('proc_tva', 1.21)
|
|
poAct.AddProperty('nnir', 0)
|
|
poAct.AddProperty('id_valuta', 0)
|
|
poAct.AddProperty('id_fdoc', 1)
|
|
poAct.AddProperty('fdoc', 'Factura')
|
|
poAct.AddProperty('id_partc', 500)
|
|
poAct.AddProperty('partc', 'FURNIZOR ANTET SRL')
|
|
poAct.AddProperty('serie_act', '')
|
|
poAct.AddProperty('dataact', DATE())
|
|
poAct.AddProperty('tva_incasare', 0)
|
|
poAct.AddProperty('id_set', 1)
|
|
poAct.AddProperty('id_gestin', 1)
|
|
|
|
*----- jtva_coloane2 / saft_taxtable: perechi reale 21% (ca in test_scenariu_import_212). -----
|
|
IF USED('jtva_coloane2')
|
|
USE IN ('jtva_coloane2')
|
|
ENDIF
|
|
CREATE CURSOR jtva_coloane2 (ordine N(8), id_jtva_coloana N(14), denumire C(100), ;
|
|
jc N(1), jv N(1), afisat N(1), coloana_jc C(20), coloana_jv C(20), cota_tva N(6,2), id_tva N(14))
|
|
INSERT INTO jtva_coloane2 VALUES (0, 0, '', 0, 0, 1, '', '', 0, 0)
|
|
INSERT INTO jtva_coloane2 VALUES (1, 208, 'ACH. INT. 21%', 1, 0, 1, 'RO21B', 'RO21T', 21, 209)
|
|
INSERT INTO jtva_coloane2 VALUES (2, 209, 'TVA ACH. INT. 21%', 1, 0, 1, 'RO21T', '', 21, 0)
|
|
INSERT INTO jtva_coloane2 VALUES (3, 220, 'ACH. IMP. 21%', 1, 0, 1, 'FO21B', 'FO21T', 21, 221)
|
|
INSERT INTO jtva_coloane2 VALUES (4, 221, 'TVA ACH. IMP. 21%', 1, 0, 1, 'FO21T', '', 21, 0)
|
|
|
|
IF USED('saft_taxtable')
|
|
USE IN ('saft_taxtable')
|
|
ENDIF
|
|
CREATE CURSOR saft_taxtable (taxname C(250) NULL, typename C(250) NULL, taxcode N(6) NULL, ;
|
|
taxtype N(3) NULL, descriere C(250) NULL, tip C(100) NULL, descriere_tip C(250) NULL, ;
|
|
procent_taxa N(7,2) NULL, procent_prorata N(7,2) NULL, inactiv N(1) NULL, tva N(1) NULL, ;
|
|
wht N(1) NULL, tva_achizitii N(1) NULL, tva_livrari N(1) NULL)
|
|
INDEX ON taxcode TAG taxcode
|
|
INSERT INTO saft_taxtable (taxname, taxcode, descriere, procent_taxa, tva, wht, tva_achizitii, tva_livrari) ;
|
|
VALUES ('', 0, '', 0, 1, 1, 1, 1)
|
|
INSERT INTO saft_taxtable (taxname, taxcode, descriere, procent_taxa, tva, wht, tva_achizitii, tva_livrari) ;
|
|
VALUES ('301104-Achizitii de bunuri si servicii taxabile cu cota de 21%, altele decat importurile si cele supuse masurilor de simplificare', 301104, '', 21, 1, 0, 1, 0)
|
|
INSERT INTO saft_taxtable (taxname, taxcode, descriere, procent_taxa, tva, wht, tva_achizitii, tva_livrari) ;
|
|
VALUES ('301204-Import de bunuri cota 21%', 301204, '', 21, 1, 0, 1, 0)
|
|
|
|
DO CreeazaIntrodc WITH 'introdc'
|
|
DO CreeazaIntrodc WITH 'introdc_sablon'
|
|
INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
|
|
id_jtva_coloana, ptva, explicatie_tva, taxcode) ;
|
|
VALUES ('371', '401', 1, 1, 1, .T., 'B', 208, 21, 'ACH. INT. 21%', 301204)
|
|
INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
|
|
id_jtva_coloana, ptva, explicatie_tva, taxcode) ;
|
|
VALUES ('4426', '401', 1, 2, 1, .T., 'T', 209, 21, 'TVA ACH. INT. 21%', 301204)
|
|
GO TOP IN introdc_sablon
|
|
|
|
DO CreeazaRulTemp
|
|
INSERT INTO rul_temp (denumire, codmat, cant, pret, pret_lei, cont, cota_tva) ;
|
|
VALUES ('PLACEHOLDER', 'PH', 1, 1, 1, '371', 21)
|
|
|
|
*===================================================================================
|
|
*==================== SCENARIUL A: dominant clasa 3 (303) -> scd '603' ===========
|
|
*===================================================================================
|
|
DO R7Log WITH '========== SCENARIUL A: FACTURA 100/102/103 + articole 212+303 =========='
|
|
*-- F1 (ointroduceri.prg:1616-1618): indexul ord_doc, o singura data, INAINTE de CREATEOBJECT -
|
|
*-- fara el, Go Top+Locate din sincronizeaza() gaseste documentul "principal" dupa ordinea
|
|
*-- fizica (recno), care se schimba dupa fiecare spargere -> cascada gresita pe documente
|
|
*-- nefactura-principala. Cu indexul, ordinea e mereu dupa nr_doc (S-urile mostenesc nr_doc-ul
|
|
*-- principalei), deci documentul principal ramane stabil la sincronizari repetate.
|
|
SELECT introdc
|
|
INDEX ON Str(Nvl(nr_doc,0),8) + Icase(tip_rand='B','1', tip_rand='S','2', tip_rand='G','3', tip_rand='T','4', tip_rand='D','5', '6') + Padr(Nvl(scd,''),10) TAG ord_doc
|
|
SET ORDER TO ord_doc
|
|
PUBLIC goObjA
|
|
goObjA = CREATEOBJECT('IMPORT_nota', .F.)
|
|
IF VARTYPE(goObjA) <> 'O'
|
|
DO R7Log WITH 'FAIL: instantiere import_nota (Scenariul A)'
|
|
DO HarnessDone WITH 'done-error'
|
|
QUIT
|
|
ENDIF
|
|
goObjA.lDialogAratat = .T.
|
|
goObjA.oact = poAct
|
|
goObjA.WindowType = 0
|
|
goObjA.Visible = .T.
|
|
goObjA.Show()
|
|
goObjA.WindowState = 2
|
|
DOEVENTS FORCE
|
|
|
|
SELECT rul_temp
|
|
ZAP
|
|
goObjA.gridart.Refresh()
|
|
DOEVENTS FORCE
|
|
|
|
*----- DOC 1: FACTURA 100, RAJA, DVI valuta (EUR curs 5.23) -----
|
|
PUBLIC goDlg, goT
|
|
goDlg = CREATEOBJECT('import_adauga_factura', goObjA)
|
|
goDlg.cFelDoc = 'Factura'
|
|
goDlg.nIdFdoc = 1
|
|
goDlg.nNract = 100
|
|
goDlg.dDataAct = DATE()
|
|
goDlg.nIdPartener = 601
|
|
goDlg.cPartener = 'RAJA'
|
|
goDlg.cExplicatia = 'Import marfa RAJA'
|
|
goDlg.nSuma = 1000
|
|
goDlg.nSumaLei = 0
|
|
goDlg.nCurs = 5.23
|
|
goDlg.nIdValuta = 978
|
|
goDlg.cValuta = 'EUR'
|
|
goDlg.nIdExplicatieTva = 220
|
|
goDlg.cExplicatieTva = 'ACH. IMP. 21%'
|
|
goDlg.optTipTva.Value = 2 && D = DVI
|
|
goDlg.chkInValutaCont.Value = 1
|
|
goDlg.chkParticipaValuta.Value = 1
|
|
goDlg.cSerieDvi = ''
|
|
goDlg.nNractDvi = 101
|
|
goDlg.dDviData = DATE()
|
|
goDlg.nIdFdocDVI = 2
|
|
goDlg.cFelDocDvi = 'DVI'
|
|
goDlg.nDviIdPartener = 900
|
|
goDlg.cDviPartener = 'BIROUL VAMAL'
|
|
goDlg.nDviTvaLei = 1098.30
|
|
goDlg.nDviTvaVal = 210.00
|
|
goDlg.actualizeaza_stare_dvi()
|
|
goDlg.WindowType = 0
|
|
goDlg.Visible = .T.
|
|
goDlg.Show()
|
|
DOEVENTS FORCE
|
|
DO R7Log WITH 'A-DOC1: valideaza = ' + TRANSFORM(goDlg.valideaza())
|
|
DO ConstruiesteToDlg
|
|
DO R7Log WITH 'A-DOC1: do_adauga_factura = ' + TRANSFORM(goObjA.do_adauga_factura(goT))
|
|
goDlg.Hide()
|
|
DOEVENTS FORCE
|
|
|
|
*----- DOC 2: FACTURA 102, TRANS OIL MOTO, DVI lei (acelasi doc vamal 101) -----
|
|
goDlg = CREATEOBJECT('import_adauga_factura', goObjA)
|
|
goDlg.cFelDoc = 'Factura'
|
|
goDlg.nIdFdoc = 1
|
|
goDlg.nNract = 102
|
|
goDlg.dDataAct = DATE()
|
|
goDlg.nIdPartener = 602
|
|
goDlg.cPartener = 'TRANS OIL MOTO'
|
|
goDlg.cExplicatia = 'Achizitie TRANS OIL MOTO'
|
|
goDlg.nSuma = 1000
|
|
goDlg.nSumaLei = 0
|
|
goDlg.nCurs = 0
|
|
goDlg.nIdExplicatieTva = 220
|
|
goDlg.cExplicatieTva = 'ACH. IMP. 21%'
|
|
goDlg.optTipTva.Value = 2 && D = DVI
|
|
goDlg.chkInValutaCont.Value = 0
|
|
goDlg.chkParticipaValuta.Value = 1
|
|
goDlg.cSerieDvi = ''
|
|
goDlg.nNractDvi = 101
|
|
goDlg.dDviData = DATE()
|
|
goDlg.nIdFdocDVI = 2
|
|
goDlg.cFelDocDvi = 'DVI'
|
|
goDlg.nDviIdPartener = 900
|
|
goDlg.cDviPartener = 'BIROUL VAMAL'
|
|
goDlg.nDviTvaLei = 210.00
|
|
goDlg.nDviTvaVal = 0
|
|
goDlg.actualizeaza_stare_dvi()
|
|
goDlg.WindowType = 0
|
|
goDlg.Visible = .T.
|
|
goDlg.Show()
|
|
DOEVENTS FORCE
|
|
DO R7Log WITH 'A-DOC2: valideaza = ' + TRANSFORM(goDlg.valideaza())
|
|
DO ConstruiesteToDlg
|
|
DO R7Log WITH 'A-DOC2: do_adauga_factura = ' + TRANSFORM(goObjA.do_adauga_factura(goT))
|
|
goDlg.Hide()
|
|
DOEVENTS FORCE
|
|
|
|
*----- DOC 3: FACTURA 103, BIROUL VAMAL, TVA la furnizor (nu DVI) -----
|
|
goDlg = CREATEOBJECT('import_adauga_factura', goObjA)
|
|
goDlg.cFelDoc = 'Factura'
|
|
goDlg.nIdFdoc = 1
|
|
goDlg.nNract = 103
|
|
goDlg.dDataAct = DATE()
|
|
goDlg.nIdPartener = 900
|
|
goDlg.cPartener = 'BIROUL VAMAL'
|
|
goDlg.cExplicatia = 'Factura BIROUL VAMAL'
|
|
goDlg.nSuma = 500
|
|
goDlg.nSumaLei = 0
|
|
goDlg.nCurs = 0
|
|
goDlg.nIdExplicatieTva = 208
|
|
goDlg.cExplicatieTva = 'ACH. INT. 21%'
|
|
goDlg.optTipTva.Value = 1 && F = furnizor
|
|
goDlg.chkInValutaCont.Value = 0
|
|
goDlg.chkParticipaValuta.Value = 1
|
|
goDlg.WindowType = 0
|
|
goDlg.Visible = .T.
|
|
goDlg.Show()
|
|
DOEVENTS FORCE
|
|
DO R7Log WITH 'A-DOC3: valideaza = ' + TRANSFORM(goDlg.valideaza())
|
|
DO ConstruiesteToDlg
|
|
DO R7Log WITH 'A-DOC3: do_adauga_factura = ' + TRANSFORM(goObjA.do_adauga_factura(goT))
|
|
goDlg.Hide()
|
|
DOEVENTS FORCE
|
|
|
|
DO R7Log WITH 'A: dump introdc dupa cele 3 documente:'
|
|
DO DumpIntrodc
|
|
|
|
DO HarnessStep WITH 0, 'A: dupa 3 documente, introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri'
|
|
|
|
*----- Adaugare articole prin fluxul REAL do_adauga_articol -----
|
|
gcMockArtCodmat = 'ART-BULD-212'
|
|
TRY
|
|
goObjA.do_adauga_articol()
|
|
CATCH TO loExcAddA1
|
|
DO R7Log WITH 'EROARE do_adauga_articol (BULDOEXCAVATOR) ' + TRANSFORM(loExcAddA1.ErrorNo) + ' [' + loExcAddA1.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
SELECT rul_temp
|
|
LOCATE FOR ALLTRIM(codmat) == 'ART-BULD-212'
|
|
IF FOUND()
|
|
REPLACE cant WITH 1, pret_val WITH 5000, pretd WITH 5000, pret WITH ROUND(5000*5.23,4), pret_lei WITH ROUND(5000*5.23,4)
|
|
DO R7Log WITH 'A: BULDOEXCAVATOR (212) adaugat prin do_adauga_articol REAL, cant/pret completate'
|
|
ELSE
|
|
DO R7Log WITH 'FAIL A: BULDOEXCAVATOR nu a fost adaugat de do_adauga_articol()'
|
|
ENDIF
|
|
|
|
gcMockArtCodmat = 'ART-GREE-303'
|
|
TRY
|
|
goObjA.do_adauga_articol()
|
|
CATCH TO loExcAddA2
|
|
DO R7Log WITH 'EROARE do_adauga_articol (AC GREE BORA) ' + TRANSFORM(loExcAddA2.ErrorNo) + ' [' + loExcAddA2.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
SELECT rul_temp
|
|
LOCATE FOR ALLTRIM(codmat) == 'ART-GREE-303'
|
|
IF FOUND()
|
|
REPLACE cant WITH 1, pret_val WITH 100, pretd WITH 100, pret WITH ROUND(100*5.23,4), pret_lei WITH ROUND(100*5.23,4)
|
|
DO R7Log WITH 'A: AC GREE BORA (303) adaugat prin do_adauga_articol REAL, cant/pret completate'
|
|
ELSE
|
|
DO R7Log WITH 'FAIL A: AC GREE BORA nu a fost adaugat de do_adauga_articol()'
|
|
ENDIF
|
|
goObjA.gridart.Refresh()
|
|
DOEVENTS FORCE
|
|
|
|
*----- sincronizeaza() -----
|
|
LOCAL llEroareSyncA
|
|
llEroareSyncA = .F.
|
|
TRY
|
|
goObjA.sincronizeaza()
|
|
CATCH TO loExcSyncA
|
|
llEroareSyncA = .T.
|
|
DO R7Log WITH 'EROARE la sincronizeaza() (A) ' + TRANSFORM(loExcSyncA.ErrorNo) + ' [' + loExcSyncA.Message + ;
|
|
'] in ' + loExcSyncA.Procedure + ':' + TRANSFORM(loExcSyncA.LineNo) + ' (' + loExcSyncA.LineContents + ')'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
goObjA.grid1.Refresh()
|
|
DOEVENTS FORCE
|
|
IF !llEroareSyncA
|
|
DO R7Log WITH 'PASS A-sync: sincronizeaza() a rulat fara eroare'
|
|
ELSE
|
|
DO R7Log WITH 'FAIL A-sync: sincronizeaza() a aruncat eroare'
|
|
ENDIF
|
|
|
|
DO R7Log WITH 'A: dump introdc dupa sincronizeaza:'
|
|
DO DumpIntrodc
|
|
|
|
*----- VERIFICARI randul D (numai lei, explicatia, scd/scc, formula) -----
|
|
DO VerificaRandD WITH goObjA, '603', '303', 'A'
|
|
|
|
*----- VERIFICARE: nicio explicatie nu contine '(rot.)' -----
|
|
DO VerificaFaraRotund WITH 'A'
|
|
|
|
*----- VERIFICARE pozitie: pe rand T (DVI), sincronizeaza() pastreaza pozitia -----
|
|
DO VerificaPozitieT WITH goObjA, 101, 'A'
|
|
|
|
*----- VERIFICARE pozitie: pe randul D, sincronizeaza() ramane pe D -----
|
|
DO VerificaPozitieD WITH goObjA, 'A'
|
|
|
|
*----- VERIFICARE guard Valid (Grid1.cSuma.Text1): Value == nsumavechi -> fara efect -----
|
|
DO VerificaGuardValid WITH goObjA, 'A'
|
|
|
|
DO HarnessStep WITH 1, 'A: dupa verificari (rand D, pozitie, guard); introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri'
|
|
|
|
goObjA.Hide()
|
|
goObjA.Release()
|
|
DOEVENTS FORCE
|
|
|
|
*===================================================================================
|
|
*==================== SCENARIUL B: doar imobilizari (212) -> scd '6588' ==========
|
|
*===================================================================================
|
|
DO R7Log WITH '========== SCENARIUL B: FACTURA 100 + DVI 101, UNIC articol 212 =========='
|
|
IF USED('introdc')
|
|
USE IN ('introdc')
|
|
ENDIF
|
|
DO CreeazaIntrodc WITH 'introdc'
|
|
IF USED('rul_temp')
|
|
USE IN ('rul_temp')
|
|
ENDIF
|
|
DO CreeazaRulTemp
|
|
INSERT INTO rul_temp (denumire, codmat, cant, pret, pret_lei, cont, cota_tva) ;
|
|
VALUES ('PLACEHOLDER', 'PH', 1, 1, 1, '371', 21)
|
|
|
|
SELECT introdc
|
|
INDEX ON Str(Nvl(nr_doc,0),8) + Icase(tip_rand='B','1', tip_rand='S','2', tip_rand='G','3', tip_rand='T','4', tip_rand='D','5', '6') + Padr(Nvl(scd,''),10) TAG ord_doc
|
|
SET ORDER TO ord_doc
|
|
PUBLIC goObjB
|
|
goObjB = CREATEOBJECT('IMPORT_nota', .F.)
|
|
IF VARTYPE(goObjB) <> 'O'
|
|
DO R7Log WITH 'FAIL: instantiere import_nota (Scenariul B)'
|
|
DO HarnessDone WITH 'done-error'
|
|
QUIT
|
|
ENDIF
|
|
goObjB.lDialogAratat = .T.
|
|
goObjB.oact = poAct
|
|
goObjB.WindowType = 0
|
|
goObjB.Visible = .T.
|
|
goObjB.Show()
|
|
goObjB.WindowState = 2
|
|
DOEVENTS FORCE
|
|
|
|
SELECT rul_temp
|
|
ZAP
|
|
goObjB.gridart.Refresh()
|
|
DOEVENTS FORCE
|
|
|
|
*----- DOC 1: FACTURA 100, RAJA, DVI valuta (EUR curs 5.23) -----
|
|
goDlg = CREATEOBJECT('import_adauga_factura', goObjB)
|
|
goDlg.cFelDoc = 'Factura'
|
|
goDlg.nIdFdoc = 1
|
|
goDlg.nNract = 100
|
|
goDlg.dDataAct = DATE()
|
|
goDlg.nIdPartener = 601
|
|
goDlg.cPartener = 'RAJA'
|
|
goDlg.cExplicatia = 'Import marfa RAJA'
|
|
goDlg.nSuma = 1000
|
|
goDlg.nSumaLei = 0
|
|
goDlg.nCurs = 5.23
|
|
goDlg.nIdValuta = 978
|
|
goDlg.cValuta = 'EUR'
|
|
goDlg.nIdExplicatieTva = 220
|
|
goDlg.cExplicatieTva = 'ACH. IMP. 21%'
|
|
goDlg.optTipTva.Value = 2 && D = DVI
|
|
goDlg.chkInValutaCont.Value = 1
|
|
goDlg.chkParticipaValuta.Value = 1
|
|
goDlg.cSerieDvi = ''
|
|
goDlg.nNractDvi = 101
|
|
goDlg.dDviData = DATE()
|
|
goDlg.nIdFdocDVI = 2
|
|
goDlg.cFelDocDvi = 'DVI'
|
|
goDlg.nDviIdPartener = 900
|
|
goDlg.cDviPartener = 'BIROUL VAMAL'
|
|
goDlg.nDviTvaLei = 1098.30
|
|
goDlg.nDviTvaVal = 210.00
|
|
goDlg.actualizeaza_stare_dvi()
|
|
goDlg.WindowType = 0
|
|
goDlg.Visible = .T.
|
|
goDlg.Show()
|
|
DOEVENTS FORCE
|
|
DO R7Log WITH 'B-DOC1: valideaza = ' + TRANSFORM(goDlg.valideaza())
|
|
DO ConstruiesteToDlg
|
|
DO R7Log WITH 'B-DOC1: do_adauga_factura = ' + TRANSFORM(goObjB.do_adauga_factura(goT))
|
|
goDlg.Hide()
|
|
DOEVENTS FORCE
|
|
|
|
DO R7Log WITH 'B: dump introdc dupa documentul 1:'
|
|
DO DumpIntrodc
|
|
|
|
DO HarnessStep WITH 2, 'B: dupa FACTURA 100 + DVI 101, introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri'
|
|
|
|
*----- Adaugare articol UNIC (BULDOEXCAVATOR cont 212) prin fluxul REAL -----
|
|
gcMockArtCodmat = 'ART-BULD-212'
|
|
TRY
|
|
goObjB.do_adauga_articol()
|
|
CATCH TO loExcAddB
|
|
DO R7Log WITH 'EROARE do_adauga_articol (B) ' + TRANSFORM(loExcAddB.ErrorNo) + ' [' + loExcAddB.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
SELECT rul_temp
|
|
LOCATE FOR ALLTRIM(codmat) == 'ART-BULD-212'
|
|
IF FOUND()
|
|
REPLACE cant WITH 1, pret_val WITH 5000, pretd WITH 5000, pret WITH ROUND(5000*5.23,4), pret_lei WITH ROUND(5000*5.23,4)
|
|
DO R7Log WITH 'B: BULDOEXCAVATOR (212) adaugat prin do_adauga_articol REAL, cant/pret completate'
|
|
ELSE
|
|
DO R7Log WITH 'FAIL B: BULDOEXCAVATOR nu a fost adaugat de do_adauga_articol()'
|
|
ENDIF
|
|
goObjB.gridart.Refresh()
|
|
DOEVENTS FORCE
|
|
|
|
LOCAL llEroareSyncB
|
|
llEroareSyncB = .F.
|
|
TRY
|
|
goObjB.sincronizeaza()
|
|
CATCH TO loExcSyncB
|
|
llEroareSyncB = .T.
|
|
DO R7Log WITH 'EROARE la sincronizeaza() (B) ' + TRANSFORM(loExcSyncB.ErrorNo) + ' [' + loExcSyncB.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
goObjB.grid1.Refresh()
|
|
DOEVENTS FORCE
|
|
IF !llEroareSyncB
|
|
DO R7Log WITH 'PASS B-sync: sincronizeaza() a rulat fara eroare'
|
|
ELSE
|
|
DO R7Log WITH 'FAIL B-sync: sincronizeaza() a aruncat eroare'
|
|
ENDIF
|
|
|
|
DO R7Log WITH 'B: dump introdc dupa sincronizeaza:'
|
|
DO DumpIntrodc
|
|
|
|
*----- VERIFICARI randul D (fara clasa 3 -> 6588, doar lei) -----
|
|
DO VerificaRandD WITH goObjB, '6588', '212', 'B'
|
|
DO VerificaFaraRotund WITH 'B'
|
|
|
|
DO HarnessStep WITH 3, 'B: final, introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri, eroare_sync=' + TRANSFORM(llEroareSyncB)
|
|
DO HarnessDone WITH 'done'
|
|
|
|
CATCH TO loExc
|
|
DO R7Log WITH 'CATCH ErrorNo=' + TRANSFORM(loExc.ErrorNo) + ' Message=' + loExc.Message + ' Proc=' + loExc.Procedure + ' Line=' + TRANSFORM(loExc.LineNo) + ' [' + loExc.LineContents + ']'
|
|
DO HarnessDone WITH 'done-error'
|
|
ENDTRY
|
|
|
|
QUIT
|
|
|
|
*==================================================================================
|
|
PROCEDURE ConstruiesteToDlg
|
|
*-- toDlg construit INLINE in programul PRINCIPAL (vezi docs/testare-ui-vfp.md capcana l).
|
|
goT = CREATEOBJECT('Empty')
|
|
=ADDPROPERTY(goT,'serie_act',ALLTRIM(NVL(goDlg.cSerieAct,'')))
|
|
=ADDPROPERTY(goT,'nract',goDlg.nNract)
|
|
=ADDPROPERTY(goT,'dataact',goDlg.dDataAct)
|
|
=ADDPROPERTY(goT,'fdoc',goDlg.cFelDoc)
|
|
=ADDPROPERTY(goT,'id_fdoc',goDlg.nIdFdoc)
|
|
=ADDPROPERTY(goT,'id_partc',goDlg.nIdPartener)
|
|
=ADDPROPERTY(goT,'partc',goDlg.cPartener)
|
|
=ADDPROPERTY(goT,'explicatia',ALLTRIM(NVL(goDlg.cExplicatia,'')))
|
|
=ADDPROPERTY(goT,'suma',IIF(goDlg.chkInValutaCont.Value=1 AND goDlg.nCurs<>0,IIF(goDlg.nSumaLei<>0,goDlg.nSumaLei,ROUND(goDlg.nSuma*goDlg.nCurs,gnPC)),goDlg.nSuma))
|
|
=ADDPROPERTY(goT,'suma_val',IIF(goDlg.chkInValutaCont.Value=1 AND goDlg.nCurs<>0,goDlg.nSuma,0))
|
|
=ADDPROPERTY(goT,'in_valuta',goDlg.chkInValutaCont.Value)
|
|
=ADDPROPERTY(goT,'participa_valuta',(goDlg.chkParticipaValuta.Value=1))
|
|
=ADDPROPERTY(goT,'id_valuta',IIF(goDlg.chkInValutaCont.Value=1,goDlg.nIdValuta,0))
|
|
=ADDPROPERTY(goT,'curs',IIF(goDlg.chkInValutaCont.Value=1,goDlg.nCurs,0))
|
|
=ADDPROPERTY(goT,'nume_val',IIF(goDlg.chkInValutaCont.Value=1,ALLTRIM(NVL(goDlg.cValuta,'')),''))
|
|
=ADDPROPERTY(goT,'cTipTva',IIF(goDlg.optTipTva.Value=1,'F',IIF(goDlg.optTipTva.Value=2,'D','N')))
|
|
=ADDPROPERTY(goT,'id_jtva_coloana',goDlg.nIdExplicatieTva)
|
|
=ADDPROPERTY(goT,'dvi_serie',CHRTRAN(ALLTRIM(NVL(goDlg.cSerieDvi,'')),CHR(34),''))
|
|
=ADDPROPERTY(goT,'dvi_nract',goDlg.nNractDvi)
|
|
=ADDPROPERTY(goT,'dvi_dataact',goDlg.dDviData)
|
|
=ADDPROPERTY(goT,'dvi_id_fdoc',goDlg.nIdFdocDVI)
|
|
=ADDPROPERTY(goT,'dvi_fdoc',goDlg.cFelDocDvi)
|
|
=ADDPROPERTY(goT,'dvi_id_partc',goDlg.nDviIdPartener)
|
|
=ADDPROPERTY(goT,'dvi_partc',goDlg.cDviPartener)
|
|
=ADDPROPERTY(goT,'dvi_scc','401')
|
|
=ADDPROPERTY(goT,'dvi_tva_lei',goDlg.nDviTvaLei)
|
|
=ADDPROPERTY(goT,'dvi_tva_val',goDlg.nDviTvaVal)
|
|
ENDPROC
|
|
|
|
PROCEDURE CreeazaRulTemp
|
|
*-- structura reala rul_temp (vezi test_adauga_repere_212.prg / ointroduceri.vc2:11030).
|
|
IF USED('rul_temp')
|
|
USE IN ('rul_temp')
|
|
ENDIF
|
|
CREATE CURSOR rul_temp ( ;
|
|
id_rul N(20,0), an N(4,0), luna N(2,0), cod N(20,0);
|
|
, serie C(100), nnir N(20,0), id_articol N(10,0), denumire C(100);
|
|
, codmat C(50), codmatf C(50), codbare C(50), um C(20);
|
|
, id_gestiune N(5,0), nume_gestiune C(50), cgest C(20), nr_pag N(2,0);
|
|
, gestionar C(50), comisie_receptie1 C(50), comisie_receptie2 C(50), comisie_receptie3 C(50);
|
|
, cant N(14,3), cante N(14,3), cont C(10), acont C(20);
|
|
, pret N(18,4), tva N(18,4), valoare N(18,4), valtva N(18,4);
|
|
, proc_tva N(5,2), pretv N(18,4), pretvtva N(18,4), tvav N(18,4);
|
|
, valoarev N(18,4), valtvav N(18,4), proc_tvav N(5,2), adaos N(18,4);
|
|
, adaos_tva N(18,4), valoare_adaos N(18,4), valtva_adaos N(18,4), procent N(10,3);
|
|
, discunitar N(18,4), discount_tva N(18,4), valoare_discount N(18,4), valtva_discount N(18,4);
|
|
, proc_disc N(7,3), pretd N(14,4), curs N(18,4), id_valuta N(10,0);
|
|
, nume_val C(20), id_lucrare N(20,0), nrord C(100), id_responsabil N(10,0);
|
|
, nresp C(100), resp_marca N(18,4), dataact T, id_util N(5,0);
|
|
, util C(30), dataora T, id_sectie N(5,0), sectie C(50);
|
|
, csectie C(10), alcooltutun N(1,0), datain T, dataout T;
|
|
, id_fact N(20,0), id_gestiunec N(10,0), nume_gestiunec C(50), cgestc C(20);
|
|
, id_responsabilc N(5,0), id_reteta N(10,0), reteta C(50), nrespc C(100);
|
|
, respc_marca N(18,4), id_set N(20,0), id_tip_rulaj N(10,0), tip_rulaj C(50);
|
|
, id_obiect_depozit N(10,0), id_rul_aux N(10,0), nract N(20,0), serie_act C(10);
|
|
, dataoras T, id_utils N(10,0), lot C(30), adata_expirare T;
|
|
, id_sucursala N(5,0), sucursala C(250), id_part_rez N(10,0), part_rez C(100);
|
|
, id_lucrare_rez N(10,0), nrord_rez C(100), subgrupa C(100), grupa C(100);
|
|
, id_subgrupa N(5,0), id_grupa N(5,0), in_stoc N(1,0), in_crm N(1,0);
|
|
, id_furnizor N(10,0), furnizor C(100), id_jtva_coloana N(4,0), explicatie_tva C(100);
|
|
, taxcode N(6,0), taxname C(254), saft_procent N(18,4), codnc8 C(20);
|
|
, id_tara_origine N(4,0), cod_tara_origine C(5), tara_origine C(50), greutate N(12,4);
|
|
, fdoc C(30), id_fdoc N(18,4);
|
|
, pret_lei N(18,4), pret_val N(14,4), cota_tva N(6,2))
|
|
ENDPROC
|
|
|
|
PROCEDURE CreeazaIntrodc
|
|
LPARAMETERS tcAlias
|
|
IF USED(tcAlias)
|
|
USE IN (tcAlias)
|
|
ENDIF
|
|
CREATE CURSOR (tcAlias) ( ;
|
|
id_note N(14), explicatia C(100), scd C(10), ascd C(20), scc C(10), ascc C(20), ;
|
|
cu_tva N(1), id_set N(14), ordine N(8), in_valuta N(1), id_jtva_coloana N(14) NULL, ;
|
|
ptva N(6,2), explicatie_tva C(50), tipjurnal C(2), taxcode N(6), paymentcode C(9), ;
|
|
suma N(18,4), suma_val N(18,4), id_partd N(14), id_partc N(14), partd C(100), partc C(100), ;
|
|
id_fact N(14), id_factd N(14), id_factc N(14), pereched N(14), perechec N(14), ;
|
|
nract N(14), serie_act C(10), explicatia4 C(50), explicatia5 C(50), participa_valuta L, ;
|
|
id_valuta N(14), curs N(14,4), nume_val C(10), dataact D, fdoc C(50), id_fdoc N(14), ;
|
|
se_scrie N(1), tva_incasare N(1), doc_color N(10), doc_label C(10), tip_rand C(1), ;
|
|
doc_key C(80), nr_doc N(8), suma_doc N(18,4), suma_doc_val N(18,4), mod_manual N(1), expl_manual N(1), ;
|
|
scd_orig C(20), ascd_orig C(20), rand_dvi N(1), valuta_proprie N(1))
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaRandD
|
|
*-- randul D (runda7): doar lei (suma_val=0, in_valuta=0, participa_valuta=.F., nume_val='',
|
|
*-- id_valuta=0, curs=0, ndif_val formular=0), explicatia=='DIFERENTA', scd/scc asteptate,
|
|
*-- suma == nbaza_lei - Sum(Round(pret*cant,gnPc)) din rul_temp (formula recalc_diferente).
|
|
LPARAMETERS toObj, tcScdAsteptat, tcSccAsteptat, tcLabel
|
|
LOCAL lnSel, lcMsg, llD, lnSumaArticole, lnSumaAsteptata, llOkCampuriLei
|
|
lnSel = SELECT()
|
|
|
|
SELECT SUM(ROUND(pret*cant,gnPc)) AS s FROM rul_temp WHERE !DELETED() INTO CURSOR crsSumaArtR7 NOFILTER
|
|
lnSumaArticole = NVL(crsSumaArtR7.s, 0)
|
|
USE IN crsSumaArtR7
|
|
lnSumaAsteptata = ROUND(toObj.nbaza_lei - lnSumaArticole, gnPc)
|
|
|
|
SELECT introdc
|
|
LOCATE FOR tip_rand == 'D'
|
|
llD = FOUND()
|
|
IF llD
|
|
llOkCampuriLei = (suma_val = 0) AND (in_valuta = 0) AND (!participa_valuta) AND ;
|
|
EMPTY(ALLTRIM(NVL(nume_val,''))) AND (id_valuta = 0) AND (curs = 0) AND ;
|
|
ALLTRIM(explicatia) == 'DIFERENTA' AND (toObj.ndif_val = 0) AND ;
|
|
ALLTRIM(scd) == tcScdAsteptat AND ALLTRIM(scc) == tcSccAsteptat AND ;
|
|
ABS(suma - lnSumaAsteptata) < 0.01
|
|
IF llOkCampuriLei
|
|
lcMsg = 'PASS ' + tcLabel + '-randD: explicatia=DIFERENTA suma=' + TRANSFORM(suma) + ;
|
|
' (asteptat ' + TRANSFORM(lnSumaAsteptata) + ') scd=' + ALLTRIM(scd) + ' scc=' + ALLTRIM(scc) + ;
|
|
' suma_val=0 in_valuta=0 participa_valuta=.F. nume_val=[] id_valuta=0 curs=0 ndif_val=0 - TOATE OK'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-randD: suma=' + TRANSFORM(suma) + '(astept ' + TRANSFORM(lnSumaAsteptata) + ') ' + ;
|
|
'scd=[' + ALLTRIM(scd) + '](astept [' + tcScdAsteptat + ']) scc=[' + ALLTRIM(scc) + '](astept [' + tcSccAsteptat + ']) ' + ;
|
|
'explicatia=[' + ALLTRIM(explicatia) + '] suma_val=' + TRANSFORM(suma_val) + ' in_valuta=' + TRANSFORM(in_valuta) + ;
|
|
' participa_valuta=' + TRANSFORM(participa_valuta) + ' nume_val=[' + ALLTRIM(NVL(nume_val,'')) + '] id_valuta=' + TRANSFORM(id_valuta) + ;
|
|
' curs=' + TRANSFORM(curs) + ' ndif_val(formular)=' + TRANSFORM(toObj.ndif_val)
|
|
ENDIF
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-randD: nu exista rand tip_rand=D in introdc dupa sincronizeaza() (diferenta asteptata=' + TRANSFORM(lnSumaAsteptata) + ')'
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
DO VerificaTaxCodeRandD WITH tcLabel
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaTaxCodeRandD
|
|
*-- randul D (diferenta 6xx) nu are cod de taxa SAFT; randurile de baza si TVA il pastreaza.
|
|
LPARAMETERS tcLabel
|
|
LOCAL lnSel, lcMsg, lnTaxD, lnFaraTax
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
LOCATE FOR tip_rand == 'D'
|
|
IF !FOUND()
|
|
DO R7Log WITH 'FAIL ' + tcLabel + '-randD-taxcode: nu exista rand tip_rand=D'
|
|
SELECT (lnSel)
|
|
RETURN
|
|
ENDIF
|
|
lnTaxD = NVL(taxcode, 0)
|
|
lnFaraTax = 0
|
|
SCAN FOR INLIST(tip_rand, 'B', 'S', 'T', 'G') AND EMPTY(NVL(taxcode, 0))
|
|
lnFaraTax = lnFaraTax + 1
|
|
ENDSCAN
|
|
IF EMPTY(lnTaxD) AND lnFaraTax = 0
|
|
lcMsg = 'PASS ' + tcLabel + '-randD-taxcode: randul D are taxcode gol, iar randurile B/S/T/G il pastreaza'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-randD-taxcode: taxcode pe randul D=' + TRANSFORM(lnTaxD) + ;
|
|
' (astept 0), randuri B/S/T/G fara taxcode=' + TRANSFORM(lnFaraTax) + ' (astept 0)'
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaFaraRotund
|
|
LPARAMETERS tcLabel
|
|
LOCAL lnSel, lcMsg, lnGasite
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
lnGasite = 0
|
|
SCAN FOR '(rot.)' $ NVL(explicatia,'')
|
|
lnGasite = lnGasite + 1
|
|
ENDSCAN
|
|
IF lnGasite = 0
|
|
lcMsg = 'PASS ' + tcLabel + '-fara_rotund: nicio explicatie din introdc nu contine "(rot.)"'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-fara_rotund: ' + TRANSFORM(lnGasite) + ' randuri cu "(rot.)" in explicatia (asteptat 0)'
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaPozitieT
|
|
*-- pozitioneaza pe randul T al doc-ului vamal (nract=tnNractVama), apeleaza sincronizeaza(),
|
|
*-- verifica ca ramane pe ACELASI rand (doc_key+tip_rand+scd identice) - D-C1.
|
|
LPARAMETERS toObj, tnNractVama, tcLabel
|
|
LOCAL lnSel, lcMsg, lcDocKeyDinainte, lcScdDinainte, llGasitInainte, llEroare
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
LOCATE FOR nract = tnNractVama AND tip_rand == 'T'
|
|
llGasitInainte = FOUND()
|
|
IF !llGasitInainte
|
|
DO R7Log WITH 'FAIL ' + tcLabel + '-pozitieT: nu am gasit randul T pentru nract=' + TRANSFORM(tnNractVama) + ' (setup)'
|
|
SELECT (lnSel)
|
|
RETURN
|
|
ENDIF
|
|
lcDocKeyDinainte = doc_key
|
|
lcScdDinainte = scd
|
|
|
|
llEroare = .F.
|
|
TRY
|
|
toObj.sincronizeaza()
|
|
CATCH TO loExcPozT
|
|
llEroare = .T.
|
|
DO R7Log WITH 'EROARE la sincronizeaza() in VerificaPozitieT ' + TRANSFORM(loExcPozT.ErrorNo) + ' [' + loExcPozT.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
|
|
SELECT introdc
|
|
IF !llEroare AND doc_key == lcDocKeyDinainte AND tip_rand == 'T' AND scd == lcScdDinainte
|
|
lcMsg = 'PASS ' + tcLabel + '-pozitieT: dupa sincronizeaza(), recordul curent a ramas pe randul T (nract=' + TRANSFORM(tnNractVama) + ', scd=' + ALLTRIM(scd) + ')'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-pozitieT: dupa sincronizeaza(), tip_rand=[' + tip_rand + '] doc_key=[' + ALLTRIM(doc_key) + '] scd=[' + ALLTRIM(scd) + ;
|
|
'] (astept tip_rand=T, doc_key=[' + ALLTRIM(lcDocKeyDinainte) + '], scd=[' + ALLTRIM(lcScdDinainte) + '])'
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaPozitieD
|
|
*-- pozitioneaza pe randul D, apeleaza sincronizeaza(), verifica ca ramane pe tip_rand='D' (D-C1).
|
|
LPARAMETERS toObj, tcLabel
|
|
LOCAL lnSel, lcMsg, llGasitInainte, llEroare
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
LOCATE FOR tip_rand == 'D'
|
|
llGasitInainte = FOUND()
|
|
IF !llGasitInainte
|
|
DO R7Log WITH 'FAIL ' + tcLabel + '-pozitieD: nu exista rand D (setup)'
|
|
SELECT (lnSel)
|
|
RETURN
|
|
ENDIF
|
|
|
|
llEroare = .F.
|
|
TRY
|
|
toObj.sincronizeaza()
|
|
CATCH TO loExcPozD
|
|
llEroare = .T.
|
|
DO R7Log WITH 'EROARE la sincronizeaza() in VerificaPozitieD ' + TRANSFORM(loExcPozD.ErrorNo) + ' [' + loExcPozD.Message + ']'
|
|
ENDTRY
|
|
DOEVENTS FORCE
|
|
|
|
SELECT introdc
|
|
IF !llEroare AND tip_rand == 'D'
|
|
lcMsg = 'PASS ' + tcLabel + '-pozitieD: dupa sincronizeaza(), recordul curent a ramas pe randul D'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-pozitieD: dupa sincronizeaza(), tip_rand=[' + tip_rand + '] (astept D)'
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaGuardValid
|
|
*-- guard "doar la modificare" (runda7, dec.4): setez Thisform.nsumavechi = suma curenta
|
|
*-- (simuleaza GotFocus), apoi apelez direct Valid-ul lui Grid1.cSuma.Text1 cu aceeasi valoare -
|
|
*-- Valid trebuie sa iasa imediat (fara Replace mod_manual, fara armare lSyncPending/tmrSync).
|
|
LPARAMETERS toObj, tcLabel
|
|
LOCAL lnSel, lcMsg, lnSumaCrt, llModManualInainte, llSyncPendingInainte, llApelDirectOk, llEroareApel
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
LOCATE FOR tip_rand == 'B'
|
|
IF !FOUND()
|
|
DO R7Log WITH 'INFO ' + tcLabel + '-guardValid: nu exista rand B pentru test (sarit)'
|
|
SELECT (lnSel)
|
|
RETURN
|
|
ENDIF
|
|
lnSumaCrt = suma
|
|
llModManualInainte = (mod_manual = 1)
|
|
|
|
toObj.nsumavechi = lnSumaCrt
|
|
toObj.lSyncPending = .F.
|
|
llSyncPendingInainte = toObj.lSyncPending
|
|
|
|
llApelDirectOk = .F.
|
|
llEroareApel = .F.
|
|
TRY
|
|
IF PEMSTATUS(toObj.Grid1.cSuma.Text1, 'Valid', 5)
|
|
toObj.Grid1.cSuma.Text1.Value = lnSumaCrt
|
|
toObj.Grid1.cSuma.Text1.Valid()
|
|
llApelDirectOk = .T.
|
|
ENDIF
|
|
CATCH TO loExcGuard
|
|
llEroareApel = .T.
|
|
DO R7Log WITH 'INFO ' + tcLabel + '-guardValid: apel direct Grid1.cSuma.Text1.Valid() a esuat (' + ;
|
|
TRANSFORM(loExcGuard.ErrorNo) + ' ' + loExcGuard.Message + ') - test indirect mai jos'
|
|
ENDTRY
|
|
|
|
SELECT introdc
|
|
LOCATE FOR tip_rand == 'B'
|
|
IF llApelDirectOk AND !llEroareApel
|
|
IF (mod_manual = 1) == llModManualInainte AND toObj.lSyncPending == llSyncPendingInainte
|
|
lcMsg = 'PASS ' + tcLabel + '-guardValid: Value==nsumavechi -> Valid a iesit fara efect (mod_manual neschimbat, lSyncPending=' + TRANSFORM(toObj.lSyncPending) + ')'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-guardValid: Valid a avut efect desi Value==nsumavechi (mod_manual dupa=' + TRANSFORM(mod_manual) + ' lSyncPending dupa=' + TRANSFORM(toObj.lSyncPending) + ')'
|
|
ENDIF
|
|
ELSE
|
|
*-- fallback indirect: dupa sincronizarea completa deja facuta, lSyncPending trebuie sa fie
|
|
*-- .F. in stare de repaus; setam nsumavechi=suma curenta si verificam ca nu s-a schimbat nimic.
|
|
IF toObj.lSyncPending == .F.
|
|
lcMsg = 'PASS ' + tcLabel + '-guardValid (indirect): apel direct pe Grid1.cSuma.Text1.Valid() nedisponibil in headless - lSyncPending ramane .F. in repaus (guard documentat in cod, vezi diff_runda7)'
|
|
ELSE
|
|
lcMsg = 'FAIL ' + tcLabel + '-guardValid (indirect): lSyncPending=' + TRANSFORM(toObj.lSyncPending) + ' (astept .F. in repaus)'
|
|
ENDIF
|
|
ENDIF
|
|
DO R7Log WITH lcMsg
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
PROCEDURE DumpIntrodc
|
|
LOCAL lnSel
|
|
lnSel = SELECT()
|
|
SELECT introdc
|
|
SCAN
|
|
DO R7Log WITH ' recno=' + TRANSFORM(RECNO()) + ' nract=' + TRANSFORM(nract) + ' tip_rand=' + tip_rand + ;
|
|
' scd=' + ALLTRIM(scd) + ' scc=' + ALLTRIM(scc) + ' suma=' + TRANSFORM(suma) + ' suma_val=' + TRANSFORM(suma_val) + ;
|
|
' explicatia=[' + ALLTRIM(NVL(explicatia,'')) + '] partc=[' + ALLTRIM(NVL(partc,'')) + '] doc_key=[' + ALLTRIM(doc_key) + ']'
|
|
ENDSCAN
|
|
SELECT (lnSel)
|
|
ENDPROC
|
|
|
|
FUNCTION RECCOUNT_ACTIVE
|
|
LPARAMETERS tcAlias
|
|
LOCAL lnSel, lnCnt
|
|
lnSel = SELECT()
|
|
SELECT (tcAlias)
|
|
COUNT TO lnCnt FOR !DELETED()
|
|
SELECT (lnSel)
|
|
RETURN lnCnt
|
|
ENDFUNC
|
|
|
|
PROCEDURE R7Err
|
|
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
|
DO R7Log WITH 'ON ERROR ' + TRANSFORM(tnErr) + ' [' + tcProg + ':' + TRANSFORM(tnLine) + '] ' + tcMsg
|
|
ENDPROC
|
|
|
|
PROCEDURE R7Log
|
|
LPARAMETERS tcMsg
|
|
SET SAFETY OFF
|
|
LOCAL lcL
|
|
lcL = IIF(FILE(gcUILog), FILETOSTR(gcUILog), '')
|
|
STRTOFILE(lcL + tcMsg + CHR(13)+CHR(10), gcUILog)
|
|
ENDPROC
|
|
|
|
DEFINE CLASS dummyapp AS Custom
|
|
PROCEDURE ReadIni
|
|
LPARAMETERS tcSection, tcKey
|
|
RETURN ''
|
|
ENDPROC
|
|
PROCEDURE WriteIni
|
|
LPARAMETERS tcSection, tcKey, tcValue
|
|
RETURN .T.
|
|
ENDPROC
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS dummyexecutor AS Custom
|
|
cEroare = ''
|
|
PROCEDURE oExecute
|
|
LPARAMETERS tcSql, tcCursor
|
|
IF USED(m.tcCursor)
|
|
USE IN (m.tcCursor)
|
|
ENDIF
|
|
IF 'VJTVA_COLOANE' $ UPPER(m.tcSql)
|
|
DO CreeazaJtvaColoaneView WITH m.tcCursor
|
|
RETURN 1
|
|
ENDIF
|
|
IF UPPER(ALLTRIM(m.tcCursor)) == 'RUL_TEMP'
|
|
DO CreeazaRulTemp
|
|
ELSE
|
|
CREATE CURSOR (m.tcCursor) (id_temp N(1))
|
|
ENDIF
|
|
RETURN 1
|
|
ENDPROC
|
|
PROCEDURE oExecuta
|
|
LPARAMETERS tcSql, tcCursor
|
|
IF !EMPTY(m.tcCursor)
|
|
IF USED(m.tcCursor)
|
|
USE IN (m.tcCursor)
|
|
ENDIF
|
|
IF UPPER(m.tcCursor) == 'CJTVACOL4427'
|
|
CREATE CURSOR (m.tcCursor) (id_jtva_coloana N(14))
|
|
ELSE
|
|
CREATE CURSOR (m.tcCursor) (id_temp N(1))
|
|
ENDIF
|
|
ENDIF
|
|
RETURN .T.
|
|
ENDPROC
|
|
PROCEDURE oSelect2Value
|
|
LPARAMETERS tcSql, toValue
|
|
toValue = ''
|
|
RETURN 1
|
|
ENDPROC
|
|
PROCEDURE oReset
|
|
ENDPROC
|
|
ENDDEFINE
|
|
|
|
PROCEDURE CreeazaJtvaColoaneView
|
|
LPARAMETERS tcCursor
|
|
IF USED(m.tcCursor)
|
|
USE IN (m.tcCursor)
|
|
ENDIF
|
|
CREATE CURSOR (m.tcCursor) (id_jtva_coloana N(14), denumire C(100), jc N(1), jv N(1), ;
|
|
coloana_jc C(20), coloana_jv C(20), cota_tva N(6,2), id_tva N(14) NULL, afisat N(1), ;
|
|
id_jtva_ex N(14) NULL, id_jtva_neex N(14) NULL, ordine N(8), ;
|
|
taxcode N(6) NULL, taxcode_neexigibil N(6) NULL, taxcode_n50 N(6) NULL, ;
|
|
taxcode_n50_tvai N(6) NULL, taxcode_n100 N(6) NULL, taxcode_regularizare N(6) NULL, taxcode_tvai N(6) NULL)
|
|
INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, afisat, ordine, cota_tva) VALUES (0, '', 0, 0, 1, 0, 0)
|
|
INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, id_tva, afisat, ordine, taxcode) ;
|
|
VALUES (208, 'ACH. INT. 21%', 1, 0, 'RO21B', 21, 209, 1, 1, 301104)
|
|
INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, afisat, ordine, taxcode) ;
|
|
VALUES (209, 'TVA ACH. INT. 21%', 1, 0, 'RO21T', 21, 1, 2, 301104)
|
|
INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, id_tva, afisat, ordine, taxcode) ;
|
|
VALUES (220, 'ACH. IMP. 21%', 1, 0, 'FO21B', 21, 221, 1, 3, 301204)
|
|
INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, afisat, ordine, taxcode) ;
|
|
VALUES (221, 'TVA ACH. IMP. 21%', 1, 0, 'FO21T', 21, 1, 4, 301204)
|
|
ENDPROC
|