Initial commit — sursa ROAAUTO

.gitignore

@@ -0,0 +1,48 @@
+# Visual FoxPro - fisiere compilate
+*.fxp
+*.mpx
+
+# Visual FoxPro - backup-uri
+*.bak
+*.BAK
+*.TBK
+
+# Visual FoxPro - meniuri generate (din .mnx)
+*.mpr
+*.MPR
+
+# Visual FoxPro - log-uri si erori
+*.ERR
+*.err
+log.txt
+LOG.txt
+
+# Visual FoxPro - fisiere temporare
+*.tmp
+*.TMP
+*.dct
+*.DCT
+
+# Executabile compilate
+*.exe
+*.EXE
+
+# SVN (proiectul foloseste SVN, nu git, pentru COMUN)
+.svn/
+
+# COMUN este gestionat separat prin SVN
+COMUN/
+
+# Windows
+*.lnk
+Thumbs.db
+Desktop.ini
+bash.exe.stackdump
+
+# FoxPro runtime index-uri auto-generate (pastrate doar daca sunt sursa)
+# Comenteaza liniile de mai jos daca .cdx/.idx sunt fisiere sursa intentionate
+# *.cdx
+# *.idx
+FoxyPreviewer_Emails.CDX
+FoxyPreviewer_Emails.DBF
+FoxyPreviewer_Emails.FPT

Clase/citeste.txt

@@ -0,0 +1 @@
+2707oviz_devize.vcx : am pus diacritice pe toate labelurile, doar ca la salvarea nu mi le retine, iar in loc de t imi pune _ in unele

Formulare/test_listare_factura/proceduri_rapoarte.prg

@@ -0,0 +1,179 @@
+*!* PROCEDURI_RAPOARTE.PRG
+
+
+*!* LISTARE RAPORT UTILIZATOR
+*!* PARAMETRI : tcAlias - alias-ul cursorului; tcTipExport - FRX/XLS; tcRaport - numele raportului
+*!* Se listeaza raportul USR_<tcRaport> din directorul \\SERVER\ROA\USERREPORTS\<APPLICATIE>\<FIRMA>\ daca exista
+*!* Daca nu exista raporturl USR_<tcRaport> se listeaza raportul <tcRaport> default
+PROCEDURE LISTAREUSERREPORT
+LPARAMETERS tcAlias, tcTipExport, tcRaport, toListener, tnPreview, tcImprimanta
+**	Valori pentru tnPreview
+**	1	-	cu vizualizare
+**	2	-	listare directa
+
+LOCAL lcSelect, lcRaportPath, lcTipExport, lnPreview, lcImprimanta
+STORE [] TO lcImprimanta
+
+IF TYPE('tcTipExport') = 'C'
+	lcTipExport = UPPER(ALLTRIM(tcTipExport))
+ELSE
+	IF EMPTY(tcRaport)
+		lcTipExport = 'XLS'
+	ELSE
+		lcTipExport = 'FRX'
+	ENDIF
+ENDIF
+IF EMPTY(tcAlias)
+	RETURN
+ENDIF
+IF !USED(tcAlias)
+	RETURN
+ENDIF
+IF EMPTY(tnPreview)
+	lnPreview = 1
+ELSE
+	lnPreview = tnPreview
+ENDIF
+
+DO CASE
+CASE lcTipExport = 'FRX'
+	IF !EMPTY(tcImprimanta)
+*!*	verificare ca tcImprimanta este instalata pe calculatorul respectiv
+		IF APRINTERS(laPrinters) > 0 AND ASCAN(laPrinters,tcImprimanta,1,ALEN(laPrinters,1),1,15) > 0
+			lcImprimanta = tcImprimanta
+		ENDIF
+	ENDIF
+
+	RELEASE laPrinters
+
+	lcRaportPath = getUserRepPath() + [USR_] + JUSTSTEM(tcRaport) + [.FRX]
+
+	IF !FILE(lcRaportPath)
+		lcRaportPath = tcRaport
+	ENDIF
+
+	lcSelect = SELECT()
+	IF !EMPTY(tcAlias) AND USED(tcAlias)
+		SELECT (tcAlias)
+	ENDIF
+
+	lnRaspuns = 6
+	DO WHILE lnRaspuns = 6
+		TRY
+			IF !EMPTY(toListener)
+				REPORT FORM (lcRaportPath) OBJECT toListener
+			ELSE
+				IF lnPreview = 1
+					KEYBOARD '{CTRL+F10}'
+					REPORT FORM (lcRaportPath) TO PRINTER PROMPT PREVIEW
+				ELSE
+					IF !EMPTY(lcImprimanta)
+						lcImprimantaTemp = SYS(6)
+						SET PRINTER TO NAME (lcImprimanta)
+						REPORT FORM (lcRaportPath) TO PRINTER
+						IF !EMPTY(NVL(lcImprimantaTemp,[]))
+							SET PRINTER TO (lcImprimantaTemp)
+						ELSE
+							SET PRINTER TO
+						ENDIF
+					ELSE
+						REPORT FORM (lcRaportPath) TO PRINTER PROMPT
+					ENDIF
+				ENDIF
+			ENDIF
+			lnRaspuns = 7
+		CATCH TO oEroare
+			IF oEroare.MESSAGE='Error loading driver error.'
+				lnRaspuns = aMESSAGEBOX("Eroare la driverul imprimantei.Doriti sa reincercati listarea?",4+32+256,"Confirmare relistare")
+			ELSE
+				aMESSAGEBOX(oEroare.MESSAGE,16,"Eroare")
+				lnRaspuns = 7
+			ENDIF
+		ENDTRY
+	ENDDO
+
+	SELECT (lcSelect)
+
+CASE lcTipExport = 'XLS'
+	export_xls(tcAlias)
+ENDCASE
+
+
+ENDPROC && LISTAREUSERREPORT
+
+********************* INCEPUT Modifica_raport_utilizator **********************
+* PROCEDURE Modifica_raport_utilizator
+* Date : 26.07.2006, 17:44:33
+* author : marius.mutu
+PROCEDURE Modifica_raport_utilizator
+
+lcUserRepPath = getUserRepPath()
+CD (lcUserRepPath)
+lcFile = GETFILE("frx","Alegeti un raport","Alege")
+IF FILE(lcFile) AND UPPER(JUSTEXT(lcFile)) = "FRX"
+	MODIFY REPORT (lcFile)
+ENDIF
+
+ENDPROC && Modifica_raport_utilizator
+********************* SFARSIT Modifica_raport_utilizator **********************
+
+*!* INTOARCE DIRECTORUL CU RAPOARTE UTILIZATOR PENTRU APLICATIA, SCHEMA CURENTA
+FUNCTION getUserRepPath
+LOCAL lcAppPath, lcAppName, liAt, lcDirgen, lcUserRepPath
+lcAppPath=ADDBS(JUSTPATH(SYS(16,0)))
+lcAppName=ALLT(UPPE(JUSTSTEM(SYS(16,0))))
+liAt=RAT("\",lcAppPath,2)
+lcDirgen=ADDBS(LEFT(lcAppPath,liAt-1))
+lcUserRepPath = lcDirgen + 'USERREPORTS\'
+IF !DIRECTORY(lcUserRepPath)
+	MD (lcUserRepPath)
+ENDIF
+lcUserRepPath = lcUserRepPath + lcAppName + '\'
+IF !DIRECTORY(lcUserRepPath)
+	MD (lcUserRepPath)
+ENDIF
+lcUserRepPath = lcUserRepPath + gcS + '\'
+IF !DIRECTORY(lcUserRepPath)
+	MD (lcUserRepPath)
+ENDIF
+
+RETURN lcUserRepPath
+
+ENDFUNC
+
+****************************************************************************
+*!* extrage frx din executabil pe disc in directorul USERREPORTS
+PROCEDURE UserReport2File
+LPARAMETERS tcRaport
+
+LOCAL lcRaport, lcFile
+IF EMPTY(tcRaport)
+	lcRaport= INPUTBOX("Raport","Scrieti numele raportului","raport.frx")
+ELSE
+	lcRaport = tcRaport
+ENDIF
+
+IF EMPTY(lcRaport)
+	RETURN
+ENDIF
+
+lcRaport = JUSTSTEM(lcRaport) + '.frx'
+lcFile = getUserRepPath() + "USR_" + lcRaport
+IF FILE(lcFile)
+	RETURN
+ENDIF
+
+*!*		TRY
+*!*		USE (lcRaport) IN 0 again SHARED ALIAS crsRaportTemp
+*!*		ENDTRY
+
+IF !FILE(lcRaport)
+	aMESSAGEBOX('Nu exista raportul ' + lcRaport)
+ELSE
+	USE (lcRaport) IN 0 AGAIN SHARED ALIAS crsRaportTemp
+	SELECT crsRaportTemp
+	COPY TO (lcFile)
+	USE IN crsRaportTemp
+ENDIF
+
+ENDPROC && UserReport2File

Formulare/test_listare_factura/sel.txt

@@ -0,0 +1 @@
+select 1 as tip,(case when tip_persoana = 1 then prefix||' '||denumire||' '||sufix else denumire end) as denumire,cod_fiscal,adresa,telefon,'' as telefon2,'' as telefon3,'' as fax,reg_comert,banca,cont_banca,sysdate as dataora,tip_persoana,0 as capital_soc_var,0 as capital_soc_sub from jcsserver.vnom_parteneri where id_part = ?poDate.id_client union all select 2 as tip,denumire,cod_fiscal,'' as adresa,'' as telefon,'' as telefon2,'' as telefon3,'' as fax,reg_comert,'' as banca,'' as cont_banca,null as dataora,tip_persoana,0 as capital_soc_var,0 as capital_soc_sub from jcsserver.nom_parteneri where sters = 0 and inactiv = 0 and id_part in (select id_partener from jcsserver.utilizatori_rol_intern where sters = 0 and id_util = ?gnIdUtil)union all select 3 as tip,antet as denumire,cod_fiscal,adresa,telefon,telefon2,telefon3,fax,reg_comert,banca1 as banca,cont_banca1 as cont_banca,null as dataora,0 as tip_persoana,capital_soc_var,capital_soc_sub from syn_nom_firme where id_firma = ?gnIdFirma 

Formulare/test_listare_factura/suma_in_vorbe.prg

@@ -0,0 +1,205 @@
+*!*	Function SUMA_IN_VORBE
+Parameter tnSuma
+Local i,lit,numar1,numar2
+Store 0 To i,j,lnSuma,lnSuma2
+Store 1 To putere
+Store '' To lit,numar1,numar2
+If Used('mila1')
+	Use In mila1
+Endif
+Use mila1 In 0 Shared
+
+lnSuma=Round(tnSuma,2)
+lnSuma2=(lnSuma-Int(lnSuma))*100
+lnSuma=Int(lnSuma)
+
+*!*	lnSuma=ROUND(lnSuma,gnPa)
+*!*	FOR j=1 TO gnPa
+*!*		putere=10*putere
+*!*	ENDFOR
+*!*	lnSuma2=(lnSuma-Int(lnSuma))*putere
+
+numar1=Space(12)
+*!*	numar2=Space(gnPa)
+numar2=Space(2)
+
+numar1=Str(lnSuma,12)
+*!*	numar2=Str(lnSuma2,gnPa)
+numar2=Str(lnSuma2,2)
+
+Dimension A(12)
+A(1)=Subs(numar1,12,1)
+A(2)=Subs(numar1,11,1)
+A(3)=Subs(numar1,10,1)
+A(4)=Subs(numar1,9,1)
+A(5)=Subs(numar1,8,1)
+A(6)=Subs(numar1,7,1)
+A(7)=Subs(numar1,6,1)
+A(8)=Subs(numar1,5,1)
+A(9)=Subs(numar1,4,1)
+A(10)=Subs(numar1,3,1)
+A(11)=Subs(numar1,2,1)
+A(12)=Subs(numar1,1,1)
+Sele mila1
+*********************
+Loca For NR=Val(A(12))
+lit=lit+Alltri(cr1)
+
+If Val(A(11))=1
+	If Val(A(10))=0
+		Loca For NR=Val(A(11))
+		lit=lit+Alltri(cr5)
+	Else
+		Loca For NR=Val(A(10))
+		lit=lit+Alltri(cr4)
+	Endif
+Else
+	If Val(A(10))=0
+		Loca For NR=Val(A(11))
+		lit=lit+Alltrim(cr5)
+	Else
+		Loca For NR=Val(A(11))
+		lit=lit+Alltrim(cr2)
+		Loca For NR=Val(A(10))
+		lit=lit+Alltrim(cr3)
+	Endif
+Endif
+Do Case
+Case Val(A(12)) # 0
+	lit=lit+' miliarde'
+Case Val(A(11)) # 0
+	lit=lit+' miliarde'
+Case Val(A(10)) # 0
+	lit=lit+' miliarde'
+Endcase
+***********************
+Loca For NR=Val(A(9))
+lit=lit+Alltri(cr1)
+
+If Val(A(8))=1
+	If Val(A(7))=0
+		Loca For NR=Val(A(8))
+		lit=lit+Alltri(cr5)
+	Else
+		Loca For NR=Val(A(7))
+		lit=lit+Alltri(cr4)
+	Endif
+Else
+	If Val(A(7))=0
+		Loca For NR=Val(A(8))
+		lit=lit+Alltrim(cr5)
+	Else
+		Loca For NR=Val(A(8))
+		lit=lit+Alltrim(cr2)
+		Loca For NR=Val(A(7))
+		lit=lit+Alltrim(cr3)
+	Endif
+Endif
+Do Case
+Case Val(A(9)) # 0
+	lit=lit+' milioane'
+Case Val(A(8)) # 0
+	lit=lit+' milioane'
+Case Val(A(7)) # 0
+	lit=lit+' milioane'
+Endcase
+***********************
+Loca For NR=Val(A(6))
+lit=lit+Alltri(cr1)
+
+If Val(A(5))=1
+	If Val(A(4))=0
+		Loca For NR=Val(A(5))
+		lit=lit+Alltri(cr5)
+	Else
+		Loca For NR=Val(A(4))
+		lit=lit+Alltri(cr4)
+	Endif
+Else
+	If Val(A(4))=0
+		Loca For NR=Val(A(5))
+		lit=lit+Alltrim(cr5)
+	Else
+		Loca For NR=Val(A(5))
+		lit=lit+Alltrim(cr2)
+		Loca For NR=Val(A(4))
+		lit=lit+Alltrim(cr3)
+	Endif
+Endif
+Do Case
+Case Val(A(6)) # 0
+	lit=lit+' mii'
+Case Val(A(5)) # 0
+	lit=lit+' mii'
+Case Val(A(4)) # 0
+	lit=lit+' mii'
+Endcase
+
+*********************
+Loca For NR=Val(A(3))
+lit=lit+Alltri(cr1)
+
+If Val(A(2))=1
+	If Val(A(1))=0
+		Loca For NR=Val(A(2))
+		lit=lit+Alltri(cr5)
+	Else
+		Loca For NR=Val(A(1))
+		lit=lit+Alltri(cr4)
+	Endif
+Else
+	If Val(A(1))=0
+		Loca For NR=Val(A(2))
+		lit=lit+Alltrim(cr5)
+	Else
+		Loca For NR=Val(A(2))
+		lit=lit+Alltrim(cr2)
+		Loca For NR=Val(A(1))
+		lit=lit+Alltrim(cr3)
+	Endif
+Endif
+Do Case
+Case Val(A(3)) # 0
+	lit=lit+' lei'
+Case Val(A(2)) # 0
+	lit=lit+' lei'
+Case Val(A(1)) # 0
+	lit=lit+' lei'
+Endcase
+
+
+*********************
+Do Case
+Case lnSuma2>1
+	lit=lit+' si'
+	Dimension B(2)
+	B(1)=Subs(numar2,2,1)
+	B(2)=Subs(numar2,1,1)
+
+	Do Case
+	Case Val(B(2))=1 And Val(B(1))!=0
+		Loca For NR=Val(B(1))
+		lit=lit+Alltri(cr4)
+	Case Val(B(2))=0
+		Loca For NR=Val(B(1))
+		lit=lit+Alltrim(cr3)
+	Case Val(B(1))=0
+		Loca For NR=Val(B(2))
+		lit=lit+Alltrim(cr5)
+	Otherwise
+		Loca For NR=Val(B(2))
+		lit=lit+Alltrim(cr2)
+		Loca For NR=Val(B(1))
+		lit=lit+Alltrim(cr3)
+	Endcase
+	lit=lit+' bani'
+Case lnSuma2=1
+	lit=lit+'si un ban'
+Endcase
+
+Sele mila1
+*!*	use
+
+lit=Strtran(lit,' ','')
+Use In mila1
+Return lit

Formulare/test_listare_factura/test_listare_factura.prg

@@ -0,0 +1,245 @@
+*tnIdClient,tcCursor,tcSirNrOrd,tcNrInmat,tnTipfact,tnProcDiscM,tnProcDiscN,tnDiscountM,tnDiscountN,tnDiscountTvaM,tnDiscountTvaN,tcdenop
+SET DELETED ON
+SET CENTURY ON
+SET ANSI ON
+SET EXACT ON
+SET DATE DMY
+SET SAFETY OFF
+
+*CLOSE DATABASES ALL
+
+lcDir = "C:\TEST_LISTARE_FACTURA\"
+*lcDir = "d:\roa_rb\roaauto\test\test_listare_factura\"
+CD (lcDir)
+messagebox(lcDir)
+lcHost = "roa_arrow"
+lcUserName = "auto_arrow"
+lcPassword = "123"
+PRIVATE gnHandle
+gnHandle = 0
+gnTIP_LFACTURA = 1
+plEmiteBon = .F.
+PRIVATE gcS
+gcS = lcUserName
+PRIVATE gnIdFirma, gnIdUtil
+gnIdFirma = 1
+gnIdUtil = 1
+PRIVATE GNCGARANTIE
+GNCGARANTIE = 0
+PRIVATE GNPA, gnLuna, gnAn, gnAnRon, gnLunaRon, gnPc
+gnLuna = 7
+gnAn = 2007
+gnAnRon = 2005
+gnLunaRon = 7
+gnPc = 2
+GNPA = 2
+pntotftva = 100
+pntottva = 19
+pntotctva = 119
+pcNumeresp = ""
+pcbidresp = ""
+pccnpresp = ""
+
+SET DEFAULT TO (lcDir)
+SET PATH TO (lcDir)
+SET PROCEDURE TO oproceduri_comune.prg ADDITIVE
+SET PROCEDURE TO proceduri_rapoarte.prg ADDITIVE
+SET PROCEDURE TO test_listare_factura.prg ADDITIVE
+
+PRIVATE goExecutor
+goExecutor = CREATEOBJECT("oExecutor")
+
+PRIVATE goConn
+goConn = CREATEOBJECT("oConn")
+gnHandle = goConn.CONNECT(lcHost, lcUserName, lcPassword)
+
+
+IF !USED('actactan')
+	USE actactan IN 0 SHARED
+ENDIF 	
+
+
+DO listare_factura WITH 34,"actactan","59/CT-02-ZIP","CT-02-ZIP",1,0,0,0,0,0,0,"MANOPERA"
+
+goConn.Disconnect()
+
+PROCEDURE listare_factura
+	PARAMETERS tnIdClient,tcCursor,tcSirNrOrd,tcNrInmat,tnTipfact,tnProcDiscM,tnProcDiscN,tnDiscountM,tnDiscountN,tnDiscountTvaM,tnDiscountTvaN,tcdenop
+
+	IF EMPTY(tcdenop)
+		STORE 'MANOPERA' TO tcdenop
+	ENDIF
+
+	IF EMPTY(tnProcDiscN)
+		STORE 0 TO tnProcDiscN,tnDiscountN,tnDiscountTvaN
+	ENDIF
+
+	IF EMPTY(tnProcDiscM)
+		STORE 0 TO tnProcDiscM,tnDiscountM,tnDiscountTvaM
+	ENDIF
+
+	tnDiscountN = ABS(tnDiscountN)
+	tnDiscountM = ABS(tnDiscountM)
+
+	PRIVATE poDate,poFirma,poClient,ptDataOra
+	poDate = CREATEOBJECT('oDateFacturaDevize',tnIdClient,tcSirNrOrd,tcNrInmat,IIF(tnTipfact=4,1,0))
+	lcSql = [select 1 as tip,(case when tip_persoana = 1 then prefix||' '||denumire||' '||sufix else denumire end) as denumire,]+;
+		[cod_fiscal,adresa,telefon,'' as telefon2,'' as telefon3,'' as fax,reg_comert,banca,cont_banca,sysdate as dataora,tip_persoana,0 as capital_soc_var,] + ;
+		[0 as capital_soc_sub from ] + gcS + [.vnom_parteneri where id_part = ?poDate.id_client ] + ;
+		[union all ] + ;
+		[select 2 as tip,denumire,cod_fiscal,'' as adresa,'' as telefon,'' as telefon2,'' as telefon3,'' as fax,reg_comert,'' as banca,'' as cont_banca,] + ;
+		[null as dataora,tip_persoana,0 as capital_soc_var,0 as capital_soc_sub from ] + gcS + [.nom_parteneri ] + ;
+		[where sters = 0 and inactiv = 0 and id_part in ] + ;
+		[(select id_partener from ] + gcS + [.utilizatori_rol_intern where sters = 0 and id_util = ?gnIdUtil)] + ;
+		[union all ] + ;
+		[select 3 as tip,antet as denumire,cod_fiscal,adresa,telefon,telefon2,telefon3,fax,reg_comert,banca1 as banca,] + ;
+		[cont_banca1 as cont_banca,null as dataora,0 as tip_persoana,capital_soc_var,capital_soc_sub ] + ;
+		[from syn_nom_firme where id_firma = ?gnIdFirma ]
+	IF USED('crsdatefacturare')
+		USE IN crsdatefacturare
+	ENDIF
+	lcCursor = [crsdatefacturare]
+	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
+	IF lnSucces<0
+		amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
+		RETURN
+	ENDIF
+	SELECT crsdatefacturare
+	SCAN
+		DO CASE
+			CASE tip = 1
+				SCATTER NAME poClient
+				ptDataOra = poClient.dataora
+			CASE tip = 2
+				WITH poDate
+					.nume_responsabil	=	denumire
+					.BIresp				=	reg_comert
+					.CNPresp			=	cod_fiscal
+				ENDWITH
+			OTHERWISE
+				SCATTER NAME poFirma
+		ENDCASE
+	ENDSCAN
+	USE IN crsdatefacturare
+
+	*!*	ofrmdelegat=Createobject("frm_delegat_factura")
+	*!*	ofrmdelegat.nidpartener = poDate.id_client
+	*!*	ofrmdelegat.cclient = poDate.nume_client
+	*!*	ofrmdelegat.cnrinmat_exp = poDate.nrinmat_del
+	*!*	ofrmdelegat.Show(1)
+	*!*	Release ofrmdelegat
+
+	PRIVATE pnSumaMat,pnSumaMan,pnTvaMat,pnTvaMan,pnDiscMan,pnDiscMat,pnTvaDiscMan,pnTvaDiscMat,pnAvans,pnTvaAvans
+	STORE 0 TO pnSumaMat,pnSumaMan,pnTvaMat,pnTvaMan,pnDiscMan,pnDiscMat,pnTvaDiscMan,pnTvaDiscMat,pnAvans,pnTvaAvans
+
+	SELECT &tcCursor
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '707' AND LEFT(ALLTRIM(explicatia),3) = "MAT" TO pnSumaMat
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '4427' AND LEFT(ALLTRIM(explicatia),7) = "TVA MAT" TO pnTvaMat
+	*!*	Sum suma For Alltrim(scd) = '411' And Alltrim(scc) = '707' And Left(Alltrim(explicatia),12) = "DISCOUNT MAT" To pnDiscMat
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '4427' AND LEFT(ALLTRIM(explicatia),12) = "DISCOUNT MAT" TO pnTvaDiscMat
+
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '704' AND LEFT(ALLTRIM(explicatia),3) = "MAN" TO pnSumaMan
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '4427' AND LEFT(ALLTRIM(explicatia),7) = "TVA MAN" TO pnTvaMan
+	*!*	Sum suma For Alltrim(scd) = '411' And Alltrim(scc) = '704' And Left(Alltrim(explicatia),12) = "DISCOUNT MAN" To pnDiscMan
+	SUM suma FOR ALLTRIM(scd) = '4111' AND ALLTRIM(scc) = '4427' AND LEFT(ALLTRIM(explicatia),12) = "DISCOUNT MAN" TO pnTvaDiscMan
+
+	SELECT &tcCursor
+	*!*	Locate For Alltrim(explicatia ) = 'STORNARE AVANS'
+	*!*	If Found()
+	*!*		pnAvans = (-1) * Abs(&tcCursor..suma)
+	*!*	Endif
+	CALCULATE SUM(suma) FOR ALLTRIM(explicatia)='STORNARE AVANS' TO pnAvans
+	CALCULATE SUM(suma) FOR ALLTRIM(explicatia)='STORNARE AVANS' AND ALLTRIM(scc)<>'4427' TO pnAvansFTva
+	CALCULATE SUM(suma) FOR ALLTRIM(explicatia)='STORNARE AVANS' AND ALLTRIM(scc)='4427' TO pnAvansTva
+	pnAvans=(-1) * ABS(ROUND(pnAvans,GNPA))
+	pnAvansTva=(-1) * ABS(ROUND(pnAvansTva,GNPA))
+	pnAvansFTva=(-1) * ABS(ROUND(pnAvansFTva,GNPA))
+
+	PRIVATE plAchitat,plEmiteBon
+	STORE .T. TO plAchitat,plEmiteBon
+
+	SELECT &tcCursor
+	LOCATE FOR ALLTRIM(scd) = '4111'
+	IF FOUND()
+		poDate.nract = &tcCursor..nract
+		poDate.dataact = &tcCursor..dataact
+		poDate.proc_tva = &tcCursor..proc_tva*100-100
+		poDate.datascad = &tcCursor..datascad
+	ENDIF
+
+	SELECT &tcCursor
+	LOCATE FOR ALLTRIM(scd) = '5311'
+	DO CASE
+		CASE FOUND() AND pnTipIncasare=2
+			STORE .F. TO plAchitat
+			STORE .T. TO plEmiteBon
+			poDate.nrchit = &tcCursor..nract
+			poDate.sumaachit = &tcCursor..suma
+		CASE FOUND() AND pnTipIncasare=3
+			STORE .F. TO plEmiteBon
+			poDate.nrchit = &tcCursor..nract
+			poDate.datachit = &tcCursor..dataact
+			poDate.sumaachit = &tcCursor..suma
+			poDate.sumavorbe = SUMA_IN_VORBE(ROUND(poDate.sumaachit,gnPc))
+		OTHERWISE
+			STORE .F. TO plEmiteBon
+			STORE .F. TO plAchitat
+	ENDCASE
+
+	*-------------------
+	*!* modificare 07.04
+	*!*	pnDiscMan = tnDiscountM
+	*!*	pnDiscMat = tnDiscountN
+	pnDiscMan = SIGN(pnSumaMan) * tnDiscountM
+	tnDiscountM = SIGN(pnSumaMan) * tnDiscountM
+	pnTvaDiscMan = (-1) * pnTvaDiscMan
+
+	pnDiscMat = SIGN(pnSumaMat) * tnDiscountN
+	tnDiscountN = SIGN(pnSumaMat) * tnDiscountN
+	pnTvaDiscMat = (-1) * pnTvaDiscMat
+	*!*	modificare ^
+
+
+	REPORT FORM usr_factav_cuchit TO PRINTER PROMPT PREVIEW
+
+
+	RELEASE poDate
+ENDPROC	&&	listare_factura
+*********************************************************************************************************
+
+DEFINE CLASS oDateFacturaDevize AS CUSTOM
+	devize_multiple	=	0
+	listanrord		=	[]
+	dataact			=	{}
+	datascad		=	{}
+	nract			=	0
+	id_client		=	NULL
+	nume_client		=	[]
+	nume_responsabil=	[]		&&	alte date pentru facturare
+	BIresp			=	[]
+	CNPresp			=	[]
+	id_delegat		=	NULL
+	nume_delegat	=	[]
+	BIdelegat		=	[]
+	elibdelegat		=	[]
+	CNPdelegat		=	[]
+	eliberatde		=	[]
+	nrinmat_del		=	[]
+	proc_tva		=	0
+	nrchit			=	0
+	datachit		=	{}
+	sumaachit		=	0
+	sumavorbe		=	[]
+	text_aditional	=	[]
+
+	PROCEDURE INIT
+		LPARAMETERS tnIdPartener,tcSirNrOrd,tcNrInmat,tnDevize
+		WITH THIS
+			.id_client = tnIdPartener
+			.nrinmat_del = tcNrInmat
+			.devize_multiple = tnDevize
+			.listanrord = tcSirNrOrd
+		ENDWITH
+	ENDPROC
+
+ENDDEFINE

Initializari/euro500t.txt.template

@@ -0,0 +1,5 @@
+<LAUNCH_PATH> /t /RO /com:<COM_PORT> /speed:38400 /ecr:10 /data_file:<TXT_PATH><TXT_FILE>
+
+
+[/com:n] [/speed:nnnn] [/ecr:nn] [/num:nn] [/o:nnn] [/start:nnn] [/len:nnn] [/cfg:ssssss] [/tel:ttttttt]
+[/data_file:file] [/cfg_file:file] [/err_file:file] [/run_file  :f ile] [/drm:drm] [/online_wait:time]

Initializari/euro500t_erori.xml.template

@@ -0,0 +1,134 @@
+<EURO500T>
+<EROARE>
+<NUMAR>1</NUMAR>
+<MESAJ_ORIGINAL>Communication error</MESAJ_ORIGINAL>
+<EXPLICATIE>Eroare de comunicare</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>3</NUMAR>
+<MESAJ_ORIGINAL>Not finished sale in ECR, firstly finish the sale!</MESAJ_ORIGINAL>
+<EXPLICATIE>Vanzare neterminata in ECR!Terminati mai intai vanzarea!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>4</NUMAR>
+<MESAJ_ORIGINAL>Tax assignment out of range, or not active tax!</MESAJ_ORIGINAL>
+<EXPLICATIE>Cota de tva inexistenta sau inactiva!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>5</NUMAR>
+<MESAJ_ORIGINAL>DPT assignment out of range</MESAJ_ORIGINAL>
+<EXPLICATIE>Departament inexistent!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>6</NUMAR>
+<MESAJ_ORIGINAL>Sale unit out of range!</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>7</NUMAR>
+<MESAJ_ORIGINAL>Quantity out of range</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>8</NUMAR>
+<MESAJ_ORIGINAL>Price out of range</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>9</NUMAR>
+<MESAJ_ORIGINAL>Forbidden Online in particular mode!</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>10</NUMAR>
+<MESAJ_ORIGINAL>Command out of range or 2 times called command "3" or "4"!</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>11</NUMAR>
+<MESAJ_ORIGINAL>PLU number out of range</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>12</NUMAR>
+<MESAJ_ORIGINAL>Text out of character set</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>13</NUMAR>
+<MESAJ_ORIGINAL>Payment value out of range</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>14</NUMAR>
+<MESAJ_ORIGINAL>Payment type out of range</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>15</NUMAR>
+<MESAJ_ORIGINAL>Currency out of range!</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>16</NUMAR>
+<MESAJ_ORIGINAL>Sale command but sale no started!</MESAJ_ORIGINAL>
+<EXPLICATIE></EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>30</NUMAR>
+<MESAJ_ORIGINAL>Number of serial port out of range!</MESAJ_ORIGINAL>
+<EXPLICATIE>Numarul portului serial nu este valid!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>31</NUMAR>
+<MESAJ_ORIGINAL>ECR number out of range</MESAJ_ORIGINAL>
+<EXPLICATIE>Numarul casei de marcat nu este valid!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>32</NUMAR>
+<MESAJ_ORIGINAL>Incorrect ECR type!</MESAJ_ORIGINAL>
+<EXPLICATIE>Tipul casei de marcat specificat in fisierul de configurare este incorect!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>33</NUMAR>
+<MESAJ_ORIGINAL>Incorrect communication speed in SETUP.DAT file</MESAJ_ORIGINAL>
+<EXPLICATIE>Viteza de comunicare specificata in fisierul de configurare este incorecta!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>34</NUMAR>
+<MESAJ_ORIGINAL>Error in ITEMS.TXT</MESAJ_ORIGINAL>
+<EXPLICATIE>Eroare in fisierul ITEMS.TXT!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>35</NUMAR>
+<MESAJ_ORIGINAL>Time-out error</MESAJ_ORIGINAL>
+<EXPLICATIE>Casa de marcat nu este deschisa sau nu este conectata la computer!</EXPLICATIE>
+</EROARE>
+
+<EROARE>
+<NUMAR>36</NUMAR>
+<MESAJ_ORIGINAL>To open SETUP.DAT file impossible or do not exist</MESAJ_ORIGINAL>
+<EXPLICATIE>Eroare la deschiderea fisierului de configurare!</EXPLICATIE>
+</EROARE>
+
+</EURO500T>

Initializari/roaauto_bon.xml.template

@@ -0,0 +1,11 @@
+<FIRME>
+<SCHEMA>
+<TEMPLATE>EURO500T.TXT</TEMPLATE>
+<TEMPLATE_PATH>\INITIALIZARI\</TEMPLATE_PATH>
+<COM_PORT>1</COM_PORT>
+<LAUNCH_PATH>C:\EURO500\</LAUNCH_PATH>
+<LAUNCH_FILE>ONLINE.EXE</LAUNCH_FILE>
+<LAUNCH_DATA>ITEMS.TXT</LAUNCH_DATA>
+<PARAMS>1</PARAMS>
+</SCHEMA>
+</FIRME>

Programe/onom_devize.prg

@@ -0,0 +1,437 @@
+*******************************************
+* PROCEDURE viz_mecanici(  )
+* Data/ora : 12/14/04, 14:16:18
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_mecanici(  )
+
+Private pomecanici,pcschema1,pcselect1
+Store '' To pomecanici
+If Used('v_mecanici')
+	Use In v_mecanici
+Endif
+
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vmecanici where 1=2']
+pcorder1=[nume,prenume]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('pomecanici','v_mecanici',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+pomecanici.ca_baza1.afisare()
+ofrmmecanici=Createobject('frm_mecanici')
+ofrmmecanici.Show(1)
+Release pomecanici
+Endproc
+
+**********************sfarsit procedura viz_mecanici*******************
+
+*******************************************
+* PROCEDURE viz_asiguratori(  )
+* Data/ora : 12/15/04, 15:57:12
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_asiguratori(  )
+&&code goes here
+Local lnIdAsigurator
+Private poasiguratori,pcschema1,pcselect1
+Store '' To poasiguratori
+If Used('v_asiguratori')
+	Use In v_asiguratori
+Endif
+
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vasiguratori where 1=2']
+pcorder1=[asigurator]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('poasiguratori','v_asiguratori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+poasiguratori.ca_baza1.afisare()
+
+Select v_asiguratori
+Go Top
+lnIdAsigurator=id_asigurator
+
+Private poinspector,pcschema2,pcselect2
+Store '' To poinspector
+If Used('v_inspectori')
+	Use In v_inspectori
+Endif
+
+pcschema2=['']
+pcselect2=['select * from ] + gcS + [.auto_vinspectori where 1=2']
+pcorder2=[inspector]
+pcfiltru2 = [id_asigurator=]+Alltrim(Str(lnIdAsigurator))
+llAfiseaza = .F.
+gencursor('poinspector','v_inspectori',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
+poinspector.ca_baza1.afisare()
+
+ofrmasig=Createobject('frm_asiguratori')
+ofrmasig.Show(1)
+Release poasiguratori
+
+Endproc
+
+**********************sfarsit procedura viz_asiguratori*******************
+*******************************************
+* PROCEDURE viz_masini_marci(  )
+* Data/ora : 12/16/04, 09:15:00
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_masini_marci()
+Lparameters tlReturn
+Local llReturn
+Private pomarci,pcschema1,pcselect1
+Store '' To pomarci
+If !Empty(tlReturn)
+	llReturn=tlReturn
+Else
+	llReturn=.F.
+Endif
+
+If Used('v_marci')
+	Use In v_marci
+Endif
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vmarci where 1=2']
+pcorder1=[marca]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('pomarci','v_marci',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+pomarci.ca_baza1.afisare()
+
+
+Private pomasini,pcschema2,pcselect2
+Store '' To pomasini
+If Used('v_masini')
+	Use In v_masini
+Endif
+pcschema2=['']
+pcselect2=['select * from ] + gcS + [.auto_vmasini where 1=2']
+pcorder2=[masina]
+pcfiltru2 = [2=2]
+llAfiseaza = .F.
+gencursor('pomasini','v_masini',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
+pomasini.ca_baza1.afisare()
+SELECT v_masini
+SET FILTER TO id_marca=v_marci.id_marca
+
+ofrmmarcimasini=Createobject('frm_marci_masini')
+ofrmmarcimasini.lreturnval=llReturn
+ofrmmarcimasini.Show(1)
+Release pomasini,pomarci
+
+Endproc
+
+**********************sfarsit procedura viz_masini_marci*******************
+*******************************************
+* PROCEDURE viz_delegati(  )
+* Data/ora : 12/16/04, 09:40:39
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+*!*	Procedure viz_delegati
+*!*	Lparameters tnidpartener,tcpartener
+*!*	Private podelegati,pcschema1,pcselect1,odetalii
+*!*	LOCAL llAfiseaza
+*!*	Store '' To podelegati
+*!*	If Used('v_delegati')
+*!*		Use In v_delegati
+*!*	Endif
+*!*	pcschema1=['']
+*!*	pcselect1=['select * from ] + gcS + [.dev_vdelegati where 1=2']
+*!*	pcorder1=[delegat]
+*!*	*!*	pcfiltru1=[sters=0]
+*!*	pcfiltru1=[1=2]
+*!*	llAfiseaza=.F.
+*!*	gencursor('podelegati','v_delegati',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+*!*	podelegati.ca_baza1.afisare()
+*!*	ofrmdelegati=Createobject('frm_delegati',tnidpartener,tcpartener)
+*!*	ofrmdelegati.Show(1)
+
+*!*	Select v_delegati
+*!*	Scatter Name odetalii
+*!*	Use In v_delegati
+*!*	Release podelegati
+*!*	Return odetalii
+*!*	Endproc
+
+**********************sfarsit procedura viz_delegati*******************
+*******************************************
+* PROCEDURE viz_norme(  )
+* Data/ora : 12/16/04, 10:39:24
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_norme(  )
+Private ponorme,pcschema1,pcselect1
+Store '' To ponorme
+If Used('v_norme')
+	Use In v_norme
+Endif
+
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vnorme where 1=2']
+pcorder1=[masina,denop]
+pcfiltru1 = [1=2]
+llAfiseaza = .F.
+gencursor('ponorme','v_norme',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+ponorme.ca_baza1.afisare()
+ofrmnorme=Createobject('frm_norme')
+ofrmnorme.Show(1)
+Release ponorme
+
+Endproc
+
+**********************sfarsit procedura viz_norme*******************
+*******************************************
+* PROCEDURE viz_ansamble(  )
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_ansamble(  )
+Private ponorme,pcschema1,pcselect1
+Store '' To poansamble
+If Used('v_ansamble')
+	Use In v_ansamble
+Endif
+
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vansamble where 1=2']
+pcorder1=[denumire]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('poansamble','v_ansamble',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+poansamble.ca_baza1.afisare()
+ofrmansamble=Createobject('frm_ansamble')
+ofrmansamble.Show(1)
+Release poansamble,ofrmansamble
+Endproc
+**********************sfarsit procedura viz_norme*******************
+*******************************************
+* PROCEDURE viz_preturi(  )
+* Data/ora : 12/16/04, 11:15:21
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_preturi(  )
+Private popreturi,pcschema1,pcselect1
+Store '' To popreturi
+If Used('v_preturi')
+	Use In v_preturi
+Endif
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vpreturi where 1=2']
+pcorder1=[marca]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('popreturi','v_preturi',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+popreturi.ca_baza1.afisare()
+ofrmpreturi=Createobject('frm_preturi')
+ofrmpreturi.Show(1)
+Release popreturi
+
+Endproc
+
+**********************sfarsit procedura viz_preturi*******************
+
+*******************************************
+* PROCEDURE viz_clienti(  )
+* Data/ora : 12/27/04, 10:07:39
+* autor : liana.macinic
+* descriere:
+
+****** PARAMETER BLOCK **************
+* Parametri : 0
+*
+*******************************************
+Procedure viz_clienti(  )
+lparameters tlDoarMasiniActive		&&	modificare	v 2.1.1
+
+Private poclie,pcschema1,pcselect1
+Local llAfiseaza
+Store .F. To llAfiseaza
+Store '' To poclie
+If Used('v_clie')
+	Use In v_clie
+Endif
+
+pcschema1=['id_part N(20),denumire C(254),nume C(254),prenume C(254),cod_fiscal C(254),reg_comert C(254),id_loc_inreg N(20),id_categorie_entitate N(20),'+] + ;
+		['localitate_inreg C(254),prefix C(254),sufix C(254),tip_persoana N(20),banca C(254),cont_banca C(254),motiv_inactiv C(254),inactiv N(1),'+] + ;
+		['eliberatde C(254),dataeliberat d,id_adresa N(20),adresa C(254),telefon C(254),telefon2 C(254),id_loc N(20),localitate C(254),'+] + ;
+		['judet C(254),id_judet N(20),sector N(4),apart C(254),etaj C(254),scara C(254),bloc C(254),strada C(254),numar C(254),codpostal C(254),'+] + ;
+		['categorie_entitate C(254)']
+pcselect1=[select b.id_part,b.denumire,b.nume,b.prenume,b.cod_fiscal,b.reg_comert,b.id_loc_inreg,b.id_categorie_entitate,b.localitate_inreg,b.prefix,] + ;
+	[b.sufix,b.tip_persoana,b.banca,b.cont_banca,b.motiv_inactiv,b.inactiv,b.eliberatde,b.dataeliberat,b.id_adresa,b.adresa,b.telefon,b.telefon2,b.id_loc,] + ;
+	[b.localitate,b.judet,b.id_judet,b.sector,b.apart,b.etaj,b.scara,b.bloc,b.strada,b.numar,b.codpostal,b.categorie_entitate ] + ;
+	[from ]+gcS+[.coresp_tip_part a left join ]+gcS+[.vnom_parteneri b ]+;
+	[on a.id_part=b.id_part where a.id_tip_part in ] + ;
+	[(select id_tip_part from coresp_tip_cont where cont = ?gcCont411) and b.inactiv=0]
+pcorder1=[b.nume]
+pcfiltru1 = [1 = 2]
+llAfiseaza = .F.
+gencursor('poclie','v_clie',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+poclie.ca_baza1.afisare()
+
+Private pomasini,pcschema2,pcselect2
+Store '' To pomasini
+If Used('v_masiniclie')
+	Use In v_masiniclie
+Endif
+
+pcschema2=['']
+*!*	modificare	v 2.1.1
+If tlDoarMasiniActive
+	pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
+		['(select id_part from nom_parteneri where sters = 1 or inactiv = 1) and inactiv=0']
+Else
+*!*	modificare	v 2.1.1	^
+	pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
+		['(select id_part from nom_parteneri where sters = 1 or inactiv = 1)']
+*!*	modificare	v 2.1.1
+Endif
+*!*	modificare	v 2.1.1	^
+pcorder2=[masina]
+pcfiltru2 = [1 = 2]
+llAfiseaza = .F.
+gencursor('pomasini','v_masiniclie',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
+pomasini.ca_baza1.afisare()
+
+Select v_clie
+ofrmclienti=Createobject('frm_dev_clienti',tlDoarMasiniActive)		&&	modificare	v 2.1.1
+*!*	IF gnNivelUtilizator=0
+*!*		ofrmclienti.cmd_modifica1.visible=.T.
+*!*	ENDIF
+ofrmclienti.Show(1)
+
+Release popreturi
+Select v_masiniclie
+Scatter Name omclie
+Return omclie
+Endproc
+
+**********************sfarsit procedura viz_clienti*******************
+
+*******************************************
+* PROCEDURE viz_dealeri(  )
+* Data/ora : 01/03/05, 16:51:46
+* autor : liana.macinic
+* descriere:
+
+Procedure viz_dealeri(  )
+Private podealeri,pcschema1,pcselect1
+Store '' To podealeri
+If Used('v_furnizori')
+	Use In v_furnizori
+Endif
+
+pcschema1=['']
+pcselect1=['select * from ] + gcS + [.auto_vfurnizori where 1=2']
+pcorder1=[denumire]
+pcfiltru1 = [2=2]
+llAfiseaza = .F.
+gencursor('podealeri','v_furnizori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+podealeri.ca_baza1.afisare()
+ofrmdealeri=Createobject('frm_dealeri')
+ofrmdealeri.Show(1)
+Release podealeri
+
+
+Endproc
+
+**********************sfarsit procedura viz_dealeri*******************
+*------------------------------inceput procedura viz_responsabili-----------------------------------------
+* PROCEDURE viz_responsabili(  )
+* Data : 03/29/05, 10:05:19
+* autor : liana.macinic
+* descriere: 
+
+****** PARAMETER BLOCK **************
+* Parameters : 0
+* 
+*******************************************
+*!*	PROCEDURE viz_resp(  )
+*!*	Local lnIdResp
+*!*	Private poResp,pcschema1,pcselect1
+*!*	Store '' To poResp
+*!*	If Used('v_Resp')
+*!*		Use In v_Resp
+*!*	Endif
+
+*!*	pcschema1=['']
+*!*	pcselect1=['select * from ] + gcS + [.dev_vnom_resp where 1=2']
+*!*	pcorder1=[ales]
+*!*	pcfiltru1 = [2=2]
+*!*	llAfiseaza = .F.
+*!*	gencursor('poResp','v_Resp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
+*!*	poResp.ca_baza1.afisare()
+
+*!*	Select v_Resp
+*!*	Go Top
+*!*	lnIdResp=id_Resp
+
+
+*!*	ofrmResp=Createobject('frm_Resp')
+*!*	ofrmResp.Show(1)
+*!*	Release poResp
+
+*!*	ENDPROC
+*------------------------------sfarsit procedura viz_responsabili-----------------------------------------
+***********************************************************************
+Procedure caut_marci_masini
+Parameters tnPornire, tlDesktop,tlToateIreg
+
+Local  lcCont, loCauta, lnPornire, llDesktop
+lnPornire = tnPornire && 1-incepe cu...6-toate
+llDesktop = tlDesktop
+
+Store "" To loCauta
+
+lcSelect = [select id_marca, marca FROM ] + gcS + [.auto_vmarci ]
+lcFiltru = [1=2]
+lcSchema = []
+lcOrder = [marca]
+lccoloane = [marca]
+lcTitlu = [Alegeti marca]
+lcTitluColoane = [Marca]
+lcFiltruOriginal = [inactiv = 0]
+lcNumeProc = []
+If Empty(tlToateIreg)
+	llToateIreg = .F.
+Else
+	llToateIreg = tlToateIreg
+Endif
+loCauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal,,lnPornire,,,llDesktop)
+
+Return loCauta
+Endproc	&&	caut_marci_masini
+***********************************************************************