Search Forum Home   Visual FoxPro  Cod, sintaxa si comenzi  problema tabele...  problema tabele va rog help    5/28/2010 2:56:45 AM darky85 113 posts problema tabele va rog help  (N/A) am urmatoare problema si mai am putin si mor am un form cu un ckeck box de ex formul foloseste tabela t_angajati si in momentul in care se apasa pe ckeck box vreau sa imi transfere intr-o alta tabela t_garaj codul folosit "T_garaj.nume=thisform.nume1.text1.Value DO FORM F_garaj " problema este ca imi zice ca nu gaseste T_garaj . si asa imi face in orice operatie in care vreau sa transfer intr-o parte in alta indiferent cum .... am default directory pe directorul pe care il folosesc am bagat si in Data environment si tabela T_garaj si tot asa Multumesc anticipat  5/28/2010 8:37:16 AM Daniel Buduru 2141 posts Re: problema tabele va rog help  (N/A)  Codul nu este corect. Asa cum l-ai scris, VFP cauta un obiect t_garaj in care sa puna in proprietatea nume valoarea din textbox. Obiectul t_haraj nu exista - tu ai o tabela - si de aici mesajul de eroare. Inlocuirea valorii unui camp dintr-o tabela se face cu comanda REPLACE: REPLACE nume WITH thisform.text1.value IN t_garaj Sau cu comanda sql UPDATE. Daniel Buduru  5/28/2010 10:04:45 AM darky85 113 posts Re: problema tabele va rog help  (N/A) Am incercat si cu replace si imi zice ca alias 't_garaj' is not found campul nume este  5/28/2010 10:09:28 AM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote Am incercat si cu replace si imi zice ca alias 't_garaj' is not found campul nume este in cele din urma am rezolvat si problema cu alias sper problema este ca imi zice replace 0  5/28/2010 10:12:26 AM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote  darky85 wrote Am incercat si cu replace si imi zice ca alias 't_garaj' is not found campul nume este in cele din urma am rezolvat si problema cu alias sper problema este ca imi zice replace 0 in cele din urma am izbutit :)) ii lipsea un append blank ;) multumesc  5/31/2010 1:01:50 AM darky85 113 posts Re: problema tabele va rog help  (N/A) As mai vea o probelma : am asa o tabela clienti si una produse si mai am facut inca o tabela factura, cum as putea sa bag in tabela factura doar produsele pe care le vreau ? si asta tinand cont ca am un client si mai multe produse mutumesc anticipat  5/31/2010 1:05:38 AM darky85 113 posts Re: problema tabele va rog help  (N/A) As mai vea o probelma : am asa o tabela clienti si una produse si mai am facut inca o tabela factura, cum as putea sa bag in tabela factura doar produsele pe care le vreau ? si asta tinand cont ca am un client si mai multe produse Eu m-am gandit sa fac o cautare dupa numele clientului si daca gaseste sa il afiseze si tot asa pentru produse numai ca daca il gaseste sa ma intrebe si cantitatea dupa care un buton in care sa imi introduca toate datele din forma in tabela problema este ca nu stiu cum sa bag mai multe produse la un cumparator mutumesc anticipat  5/31/2010 2:08:27 AM Eugen Gliga 1038 posts Re: problema tabele va rog help  (N/A) Ar fi bine sa faci doua tabele pt facturi, una pt date generale si alta pentru detail. In prima tii numarul facturii, data, codul clientului, etc iar in cealalta cate o pozitie pt fiecare produs, continand codul produsului, cantitatea pretul, tva, etc. Cele doua tabele trebuie legate prin Id-ul facturii.  6/5/2010 2:57:41 PM darky85 113 posts Re: problema tabele va rog help  (N/A) eu folosesc urmatorul cod " Locate For T_produse.denumire=thisform.combo1.Value If Found() thisform.text7.value=T_produse.cantitate MESSAGEBOX('Cautarea a fost efectuata',64,'Cautare') IF thisform.text6.ValueMESSAGEBOX('ok') ELSE MESSAGEBOX('EROARE') ENDIF ELSE MESSAGEBOX('Nu exista inregistrare eroare - 11',48 , 'Eroare') ENDIF " problemea este ca orice valoare as pune el imi da eroare unde gresesc ??? eu vreau sa verific daca cantiteatea introdusa este mai mare sau mai mica decat ce am in stoc multumesc anticipat  6/5/2010 3:10:53 PM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A) Salut! Ce eroare îţi dă?  6/5/2010 3:54:09 PM darky85 113 posts Re: problema tabele va rog help  (N/A) salut pai nu imi da nici o eroare face , if si intra doar pe else  6/5/2010 3:57:10 PM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A) Pe care if, că sunt doua!  6/5/2010 4:05:08 PM darky85 113 posts Re: problema tabele va rog help  (N/A) IF thisform.text6.Value < t_stoc.cantitate MESSAGEBOX('ok') ELSE MESSAGEBOX('EROARE') ENDIF scuze da sunt fff obosit si nervos in aceelas timp  6/5/2010 9:04:53 PM gldesign 394 posts Re: problema tabele va rog help  (N/A)  darky85 wrote IF thisform.text6.Value < t_stoc.cantitate MESSAGEBOX('ok') ELSE MESSAGEBOX('EROARE') ENDIF scuze da sunt fff obosit si nervos in aceelas timp Din cate vad ai 2 tabele t_produse si t_stoc. Prin linia Locate For T_produse.denumire=thisform.combo1.Value te pozitionezi pe prosi in t_produse in timp ce i t_stoc esti undeva nedefinit trebuie sa te pozitionezi si in t_stoc pe acelasi produs pt a avea stocul corect  6/9/2010 2:53:41 AM darky85 113 posts Re: problema tabele va rog help  (N/A) mda a mers greseam eu nu bagam tabela ... ms mult as mai avea o probleama :D *stergere cantitate din stoc PRIVATE cantitate_finala,a,b a=thisform.text6.Value b=thisform.text7.Value cantitate_finala=a-b replace cantitate WITH cantitate_finala IN t_stoc imi da eroare cantitate_finala "operator/operand type mismatch" in text 6 este cantitatea dorita si in text7 cantitatea din stoc  6/9/2010 9:54:19 AM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A) Incearca asa replace CANTITATE with Val(thisform.text6.Value) - Val(thisform.text7.Value) IN T_STOC sau replace CANTITATE with thisform.text6.Value- thisform.text7.Value IN T_STOC in functie de tipul textboxurilor (numeric sau string); nu-i nevoie sa folosesti variabilele a, b, cantitate_finala  6/9/2010 10:51:59 AM darky85 113 posts Re: problema tabele va rog help  (N/A) la prima imi da eroare - function argument value, type or count is invalid si la a doua imi da acceasi eroare  6/9/2010 10:57:17 AM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote la prima imi da eroare - function argument value, type or count is invalid si la a doua imi da acceasi eroare P.S. asa arata tot codul din buton: LOCATE FOR T_stoc.denumire=thisform.combo1.Value If Found() thisform.text7.value=T_stoc.cantitate *adaugare produse APPEND BLANK IN t_adaugare_produs REPLACE numar_fac WITH thisform.text5.Value IN t_adaugare_produs REPLACE denumire WITH thisform.combo1.Value IN t_adaugare_produs REPLACE cantitate WITH thisform.text6.Value IN t_adaugare_produs *REPLACE pret_um WITH thisform.text8.value IN t_adaugare_produs MESSAGEBOX('Produs adaugat' ,64,'Produs Adaugat') *stergere cantitate din stoc replace CANTITATE with thisform.text6.Value - cantitate IN T_STOC ELSE MESSAGEBOX('Nu exista inregistrare eroare - 11',48 , 'Eroare') ENDIF  6/9/2010 12:03:30 PM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A)  darky85 wrote  darky85 wrote la prima imi da eroare - function argument value, type or count is invalid si la a doua imi da acceasi eroare P.S. asa arata tot codul din buton: LOCATE FOR T_stoc.denumire=thisform.combo1.Value If Found() thisform.text7.value=T_stoc.cantitate *adaugare produse APPEND BLANK IN t_adaugare_produs REPLACE numar_fac WITH thisform.text5.Value IN t_adaugare_produs REPLACE denumire WITH thisform.combo1.Value IN t_adaugare_produs REPLACE cantitate WITH thisform.text6.Value IN t_adaugare_produs *REPLACE pret_um WITH thisform.text8.value IN t_adaugare_produs MESSAGEBOX('Produs adaugat' ,64,'Produs Adaugat') *stergere cantitate din stoc * aici pune si spun-ne ce se afiseaza = MessageBox(Type("CANTITATE") + '|' + Type(" thisform.text6.value") + '|' + Type(" thisform.text7.value")) replace CANTITATE with thisform.text6.Value - cantitate IN T_STOC ELSE MESSAGEBOX('Nu exista inregistrare eroare - 11',48 , 'Eroare') ENDIF  6/9/2010 12:11:05 PM darky85 113 posts Re: problema tabele va rog help  (N/A) U|C|N  6/9/2010 12:49:44 PM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A)  Ce inseamna thisform.text6.value si thisform.text7.value Ideea este ca la datele de tip C, ca sa le faci numere trebuie sa pui Val( ... ). Vezi : replace T_STOC.CANTITATE with  Val(thisform.text6.value) - T_STOC.CANTITATE   IN T_STOC  6/9/2010 1:06:39 PM darky85 113 posts Re: problema tabele va rog help  (N/A) dap a mers multumesc mult !!!  6/23/2010 2:12:32 AM darky85 113 posts Re: problema tabele va rog help  (N/A) spune si mie te rog am urmatorul select SELECT T_generare_factura_finala.nume_clien,; T_generare_factura_finala.numar, T_adaugare_produs.denumire,; T_adaugare_produs.um, T_adaugare_produs.cantitate,; T_adaugare_produs.pret_um , T_generare_factura_finala.data_fac; FROM ; DATA1!T_GENERARE_FACTURA_FINALA ; INNER JOIN DATA1!T_ADAUGARE_PRODUS ; ON T_generare_factura_finala.id = T_adaugare_produs.numar_fac; GROUP BY T_generare_factura_finala.numar ; WHERE BETWEEN(T_generare_factura_finala.data_fac,thisform.text1.value,thisform.text2.Value); si imi da eroare la Group By  6/23/2010 7:02:46 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Scoate Group By sau toate campurile care apar in Select trece-le si in group by. Da' eu as zice sa scoti group by-ul ca n-ai ce face cu el acolo. Pe de alta parte, ai un INNER JOIN intre cele doua tabele, asta inseamna ca o sa-ti vina o singura inregistrare din fiecare. Din cate-mi dau seama, tu acolo de fapt ai antetul facturilor si pozitiile de facturi; ti-ar trebui un left join, nu un innner join. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/23/2010 10:48:24 AM darky85 113 posts Re: problema tabele va rog help  (N/A) pai as avea nevoie de group by ca atunci cand scot un raport sau pot sa pun in raport group by :-?  6/23/2010 10:55:20 AM darky85 113 posts Re: problema tabele va rog help  (N/A) hai ca am reusit am descoperit group by in raport :D multumesc  6/23/2010 11:20:48 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Hai sa-ti explic cum e cu group by-ul ala in select si de ce trebuie sa ai campurile si in select si in group by: Sa zicem ca ai urmatoarea sintaxa: Select antet.numar_factura, antet.data_factura, pozitii.produs, pozitii.pret from antet left join pozitii on antet.id=pozitii.idantet group by numar_factura O sa obtii un cursor care contine cate o inregistrare pentru fiecare factura, astfel: numarul facturii, data facturii si 1 (UN) produs din pozitii. La ce ti-e buna informatia aia? iti spun eu: la nimic. Mai departe: Select antet.numar_factura, antet.client_id, sum(pozitii.pret) From antet left join pozitii on antet.id = pozitii.idantet group by client_id O sa obtii un cursor care contine suma facturilor fiecarui client (asta e o chestie buna) si un numar de factura, la INTAMPLARE, din facturile clientului respectiv. La ce ti-e buna informatia aia? iti spun eu: la NIMIC. De-aia ori le pui in group by, ori le scoti din select, fiindca NU iti trebuie. N-ai ce sa faci cu informatia respectiva. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/23/2010 3:52:49 PM darky85 113 posts Re: problema tabele va rog help  (N/A) am inteles , multumesc mult  6/24/2010 4:30:20 PM darky85 113 posts Re: problema tabele va rog help  (N/A) inca un mic help daca se poate am urmatorul cod : APPEND BLANK IN dispozitie_de_incasare REPLACE numesiprnume WITH thisform.text19.Value IN dispozitie_de_incasare REPLACE functie WITH thisform.text20.Value IN dispozitie_de_incasare REPLACE suma WITH thisform.text21.Value IN dispozitie_de_incasare REPLACE scopul WITH thisform.edit3.Value IN dispozitie_de_incasare problema e la suma campul suma este numeric problema este ca atunci cand ii dau sa imi ruleze imi zice ca "Data type mismatch" daca ii dau suma sa fie de tip caracter merge  6/24/2010 6:02:02 PM costin_mentor 483 posts www.accessoft.ro Re: problema tabele va rog help  (N/A) O varianta : REPLACE suma WITH val(transform(thisform.text21.Value)) IN dispozitie_de_incasare  6/24/2010 6:51:20 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Banuiesc ca in textbox-ul cu suma poti sa scrii si litere. Daca este adevarat, atunci trebuie sa stii ca poti sa fortezi textboxul sa iti accepte numai valori de tipul de date dorit de tine. Ca sa obtii asta, deschizi formul in designer, selectezi textboxul, te duci in fereastra de proprietati, cauti proprietatea .Value si scrii 0 acolo. Din clipa asta o sa accepte numai valori numerice, iar valoarea o sa fie de tip numeric, nu caracter (adica n-o sa mai primesti eroarea aia la linia REPLACE suma WITH thisform.text21.Value IN dispozitie_de_incasare). La fel si pentru date calendaristice; scrii in value doua acolade: {}. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/24/2010 8:16:01 PM Eugen Gliga 1038 posts Re: problema tabele va rog help  (N/A)  darky85 wrote inca un mic help daca se poate am urmatorul cod : APPEND BLANK IN dispozitie_de_incasare REPLACE numesiprnume WITH thisform.text19.Value IN dispozitie_de_incasare REPLACE functie WITH thisform.text20.Value IN dispozitie_de_incasare REPLACE suma WITH thisform.text21.Value IN dispozitie_de_incasare REPLACE scopul WITH thisform.edit3.Value IN dispozitie_de_incasare Facand abstractie de problema pt care s-a dat mai multe solutii, n-ar fi mai simplu sa folosesti un INSERT in loc de cele 5 instructiuni :   INSERT INTO dispozitie_de_incasare (numesiprnume,functie,suma,scopul) value (ThisForm.Text19.Value,ThisForm.Text20.Value,ThisForm.Text21.Value,ThisForm.Edit3.Value)  6/25/2010 2:04:40 AM darky85 113 posts Re: problema tabele va rog help  (N/A) multumesc pentru sfaturi a mers :D cu value 0  6/26/2010 3:04:08 AM darky85 113 posts Re: problema tabele va rog help  (N/A) deci am pus value 0 dar a aparut o problema nu imi accepta virgura (123,45) imi face (12345) campul este declarat 10, 2 astept o solutie multumesc  6/26/2010 6:12:01 AM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote deci am pus value 0 dar a aparut o problema nu imi accepta virgura (123,45) imi face (12345) campul este declarat 10, 2 astept o solutie multumesc si as mai avea o intrebare am 2 combo in combo1 am tipuri de transport (autoturism , autoutilitara etc) sa caut in tabela dupa denumire stiu dar cum pot sa ii dau dupa ce imi cauta sa imi afiseze in combo2 nr.de inmatriculare tinand cont ca pot exista mai multe autoturisme multumesc  6/26/2010 11:03:43 AM costin_mentor 483 posts www.accessoft.ro Re: problema tabele va rog help  (N/A)   darky85 wrote deci am pus value 0 dar a aparut o problema nu imi accepta virgura (123,45) imi face (12345) campul este declarat 10, 2 astept o solutie multumesc La textbox ai doua proprietati : Format si InputMask, pune la ambele : 9999999.99 Legat de a doua problema cu combo trebuie sa setezi (pentru fiecare combo): boundto =.t. rowsource='tabela2.camp1,tabela2.cheieprimara' boundcolumn=2 columncount=1 && ca sa afiseze doar campul camp1 iar in plus la combo1 sa pui cod corespunzator in event-ul InteractiveChange : PS Iti recomand sa parcurgi postul Atestat 2010 , contine multe chestii utile si interesante : http://profox.ro/Forum/tabid/55/forumid/12/threadid/28639/threadpage/1/scope/posts/Default.aspx  6/26/2010 12:59:44 PM darky85 113 posts Re: problema tabele va rog help  (N/A) deci in combo1 la interactiveChange am asa : Locate For tip_transport_factura.tip_transport=thisform.combo1.Value ; WHILE tip_transport_factura.nume=thisform.text1.Value If Found() thisform.combo2.ReadOnly= .F. ELSE thisform.text5.Visible= .T. ENDIF in combo2 la additem am : boundto =.t. rowsource='tabela2.camp1' boundcolumn=2 columncount=1 in combo2 nu am pus pentru ca le-am bagat de mana sa zis asa . Si nu imi afiseaza in combo2 nimik  6/26/2010 1:08:08 PM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote deci in combo1 la interactiveChange am asa : Locate For tip_transport_factura.tip_transport=thisform.combo1.Value ; WHILE tip_transport_factura.nume=thisform.text1.Value If Found() thisform.combo2.ReadOnly= .F. ELSE thisform.text5.Visible= .T. ENDIF in combo2 la additem am : boundto =.t. rowsource='tabela2.camp1' boundcolumn=2 columncount=1 in combo2 nu am pus pentru ca le-am bagat de mana sa zis asa . Si nu imi afiseaza in combo2 nimik P.S. tabela2.camp1 am modificat-o in tabela mea  6/28/2010 3:03:06 PM darky85 113 posts Re: problema tabele va rog help  (N/A)  darky85 wrote  darky85 wrote deci in combo1 la interactiveChange am asa : Locate For tip_transport_factura.tip_transport=thisform.combo1.Value ; WHILE tip_transport_factura.nume=thisform.text1.Value If Found() thisform.combo2.ReadOnly= .F. ELSE thisform.text5.Visible= .T. ENDIF in combo2 la additem am : boundto =.t. rowsource='tabela2.camp1' boundcolumn=2 columncount=1 in combo2 nu am pus pentru ca le-am bagat de mana sa zis asa . Si nu imi afiseaza in combo2 nimik P.S. tabela2.camp1 am modificat-o in tabela mea Si mai am o problema chiar urgenta :( Am un form cu 2 campuri si un buton si urmatorul cod pe buton USE t_angajati GO TOP LOCATE FOR nume = thisform.text1.Value IF FOUND() Locate For id_angajat=thisform.text2.Value If Found() MESSAGEBOX('Cautarea a fost efectuata',64,'Cautare') ELSE MESSAGEBOX('Nu exista inregistrare eroare - 11',48 , 'Eroare') ENDIF ELSE MESSAGEBOX('Eroare nume ') ENDIF thisform.text1.SetFocus Problema esta ca imi intra numai pe eroare nume si nu stiu de ce campul este nume , numele pe care il introduc exita in baza de date ... ce are :-? va rog help  6/28/2010 5:02:25 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Pentru ca in tabela campul nume are o gramada de spatii dupa valoarea respectiva, si tu banuiesc ca nu scrii si spatiile in textbox ;) Locate For Alltrim(Nume) = Alltrim(ThisForm.text1.Value) Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/29/2010 1:17:21 AM darky85 113 posts Re: problema tabele va rog help  (N/A) multumesc mult pentru ajutor :) as mai avea o mica intrebare :"> sa zicem ca am o tabele ca nume data ora . Cum pot ca atunci cand apas pe buton sa imi copieze automat ultimul nume intordus si sa imi bage data si ora :-?  6/29/2010 2:39:35 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Ai o functie care iti returneaza data si ora curenta a sistemului. Campul de data_ora il faci de tip datetime si codul arata cam asa: Replace Data_Ora with DateTime() Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/29/2010 2:59:05 AM darky85 113 posts Re: problema tabele va rog help  (N/A) multumesc pentru raspunsul rapid  6/30/2010 2:35:15 AM darky85 113 posts Re: problema tabele va rog help  (N/A) as mai avea o mica problema am urmatorul cod : APPEND BLANK IN delegat_factura replace eliberat WITH thisform.text4.Value IN delegat_factura replace nr WITH thisform.text3.Value IN delegat_factura replace nume WITH thisform.text1.value IN delegat_factura replace seria WITH thisform.text2.Value IN delegat_factura replace numar_factura WITH t_generare_factura_finala.text5.value IN delegat_factura APPEND BLANK IN tip_transport_factura replace nr WITH thisform.text5.Value IN tip_transport_factura replace tip_transport WITH thisform.combo1.Value IN tip_transport_factura replace numar_factura WITH t_generare_factura_finala.text5.value IN tip_transport_factura imi zice ca a facut replace dar de fapt nu face nimik scrie jos 1 replacements  6/30/2010 9:50:58 AM nae racaru 714 posts www.rarom.ro Re: problema tabele va rog help  (Romania) In teorie ar trebui sa mearga. Incearca asa: replace delegat_factura.eliberat WITH thisform.text4.Value VFP 6 si 9 + Oracle  6/30/2010 10:12:05 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Ia scrie tu SELECT <tabela> inainte de append blank. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 10:35:24 AM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A)  sau incearca lnZona = Select(0) SELECT "DELEGAT_FACTURA" * hai sa folosim o singura comanda REPLACE REPLACE eliberat WITH thisform.text4.Value, nr WITH thisform.text3.Value, nume WITH thisform.text1.value, seria WITH thisform.text2.Value, numar_factura WITH t_generare_factura_finala.text5.value * asta numai ca sa vedem că s-a adăugat ce trebuie BROW SELECT "TIP_TRANSPORT_FACTURA" replace nr WITH thisform.text5.Value, tip_transport WITH thisform.combo1.Value, numar_factura WITH t_generare_factura_finala.text5.value BROW SELECT (lnZona)  6/30/2010 11:51:03 AM darky85 113 posts Re: problema tabele va rog help  (N/A)   oviciandrus wrote sau incearca lnZona = Select(0) SELECT "DELEGAT_FACTURA" * hai sa folosim o singura comanda REPLACE REPLACE eliberat WITH thisform.text4.Value, nr WITH thisform.text3.Value, nume WITH thisform.text1.value, seria WITH thisform.text2.Value, numar_factura WITH t_generare_factura_finala.text5.value * asta numai ca sa vedem că s-a adăugat ce trebuie BROW SELECT "TIP_TRANSPORT_FACTURA" replace nr WITH thisform.text5.Value, tip_transport WITH thisform.combo1.Value, numar_factura WITH t_generare_factura_finala.text5.value BROW SELECT (lnZona) cand face brow imi arata ca le-a introdus iar cand intru doar in tabela nu imi mai arata nimik ... si as mai avea o problema am urmatoarea sintaxa : thisform.text6.Value = thisform.text8.Value*thisform.text5.Value thisform.text7.Value = (thisform.text8.value*thisform.text5.Value*tva.tva_act)+thisform.text6.value APPEND BLANK IN t_detali_factura_furnizori REPLACE nume WITH thisform.combo1.Value IN t_detali_factura_furnizori REPLACE numar WITH thisform.text1.Value IN t_detali_factura_furnizori REPLACE data_factura WITH thisform.text2.Value IN t_detali_factura_furnizori REPLACE denumire WITH thisform.text3.Value IN t_detali_factura_furnizori REPLACE um WITH thisform.text4.Value IN t_detali_factura_furnizori REPLACE cantitate WITH thisform.text8.Value IN t_detali_factura_furnizori REPLACE pret_bucata WITH thisform.text5.Value IN t_detali_factura_furnizori REPLACE pret_fara_tva WITH thisform.text6.Value IN t_detali_factura_furnizori REPLACE pret_total WITH thisform.text7.Value IN t_detali_factura_furnizori eMessageTitle = 'Adaugare in stoc' eMessageText = 'Doriti sa adaugati produs in stoc ?' nDialogType = 4 + 16 + 256 nAnswer = MESSAGEBOX(eMessageText, nDialogType, eMessageTitle) DO CASE CASE nAnswer = 6 LOCATE FOR ALLTRIM(t_stoc.denumire) = ALLTRIM(thisform.text3.Value) IF FOUND() t_stoc.cantitate = t_stoc.cantitate+thisform.text8.Value t_stoc.pret_total = t_stoc.pret_total+thisform.text7.value t_stoc.data_stoc = DATE() WAIT WINDOW 'Cantitatea a fost marita' ELSE APPEND BLANK IN t_stoc REPLACE denumire WITH thisform.text3.Value IN t_stoc REPLACE um WITH thisform.text4.Value IN t_stoc REPLACE cantitate WITH thisform.text8.Value IN t_stoc REPLACE pret_total WITH thisform.text7.Value IN t_stoc WAIT WINDOW 'Produs nou adaugat in stoc' ENDIF CASE nAnswer = 7 WAIT WINDOW 'Stocul nu a fost modificat!' ENDCASE thisform.text3.SetFocus si imi intra numai pe else de la if found ()  6/30/2010 1:41:32 PM nae racaru 714 posts www.rarom.ro Re: problema tabele va rog help  (Romania) cand face brow imi arata ca le-a introdus iar cand intru doar in tabela nu imi mai arata nimik ... Cred ca adaugi pe o tabela si te uiti pe alta, altfel nu exista explicatie! LOCATE FOR ALLTRIM(t_stoc.denumire) = ALLTRIM(thisform.text3.Value) IF FOUND() In mod sigur, in conditiile aratate de tine ALLTRIM(thisform.text3.Value) nu exista in t_stoc.denumire VFP 6 si 9 + Oracle  6/30/2010 2:01:46 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Modifica instructiunea Wait Window astfel: WAIT WINDOW 'Produs nou adaugat in stoc' + " - Nr. inregistrare: " + Transform(Recno()) Si zi-mi si mie ce numar a primit inregistrarea aia. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 2:29:44 PM darky85 113 posts Re: problema tabele va rog help  (N/A)   Grigore Dolghin wrote Modifica instructiunea Wait Window astfel: WAIT WINDOW 'Produs nou adaugat in stoc' + " - Nr. inregistrare: " + Transform(Recno()) Si zi-mi si mie ce numar a primit inregistrarea aia. Produs nou adaugat in stoc - Nr inregistrare : 6 si pot sa ii dau 100 de produse ca el tot nr inregistrare 6 arata :-??  6/30/2010 3:18:39 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Ti-am scris mai devreme ca inainte de append blank sa pui SELECT <NUME_TABELA>!!! Nu-mi irosi timpul, te rog. Tu faci append blankul in altceva, nu in tabela care trebuie. Deci SELECT CUM-O-CHEAMA-PE-TABELA-IN-CARE-VREI-SA-FACI-APPEND-BLANK APPEND BLANK REPLACE camp with valoare (nu mai pune si IN tabela) replace replace replace replace WAIT WINDOW - linia pe care ti-am scris-o mai sus si dupa aia zi-mi ce numar de inregistrare ai primit. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 3:27:33 PM darky85 113 posts Re: problema tabele va rog help  (N/A) nu inteleg cine te obliga sa imi raspunzi .... las-o balta .... imi cer scuze pentru deranj  6/30/2010 3:49:02 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Hehehe. Ok, succes. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 3:58:00 PM oviciandrus 761 posts www.comptech.ro Re: problema tabele va rog help  (N/A) sau incearca lnZona = Select(0) SELECT "DELEGAT_FACTURA" APPEND BLANK * hai sa folosim o singura comanda REPLACE REPLACE eliberat WITH thisform.text4.Value, nr WITH thisform.text3.Value, nume WITH thisform.text1.value, seria WITH thisform.text2.Value, numar_factura WITH t_generare_factura_finala.text5.value * asta numai ca sa vedem că s-a adăugat ce trebuie BROW SELECT "TIP_TRANSPORT_FACTURA" APPEND BLANK replace nr WITH thisform.text5.Value, tip_transport WITH thisform.combo1.Value, numar_factura WITH t_generare_factura_finala.text5.value BROW SELECT (lnZona)  6/30/2010 4:29:32 PM Adrian Gerlan 581 posts Re: problema tabele va rog help  (N/A) Mai e scenariul in care se lucreaza pe tabela buferata la replace iar verificarea o face deschizand tabela in alta sesiune de VFP fara sa dea tabelupdate in prima sesiune.. In acest scenariu sigur sigur nu apar inregistrarile noi. AdiG  6/30/2010 5:01:01 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) De-aia ii tot cer numarul de inregistrare. Daca are buffer, RECNO() intoarce numar negativ. Da' ma rog, s-a suparat. Tipic romanesc. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 5:19:45 PM darky85 113 posts Re: problema tabele va rog help  (N/A) Nu e tipic romanesc doar ca nu inteleg de ce ma acuzi ca iti irosesc tipul ... ca doar nu esti obligat , si nu intreb ca ma plictisesc doar ca nu stiu de ce nu merge :-?? ca doar mai am alte butoane care fac acelasi lucuru si nu imi face probleme. Oricum aprecize mult pentru ajutorul dat de tine pana acum , si pur si simplu nu am inteles unde sa pun linia aia de comanda ....  6/30/2010 5:25:04 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Atunci o sa citez un mesaj scris mai sus: "Ia scrie tu SELECT <tabela> inainte de append blank." Adica fix inainte de append blank. N-am cum sa zic altfel; daca m-ar intreba cineva de 100 de ori, de 100 de ori as spune la fel. Inainte de append blank dai un enter si in spatiul liber scrii SELECT <nume_tabela> (cum o cheama pe ea, ca nu vad textul tau cand raspund). Deci fix inainte de append blank. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 5:30:32 PM darky85 113 posts Re: problema tabele va rog help  (N/A) imi afiseaza -1  6/30/2010 6:32:34 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Gotcha. Ai bufferingul activ pe tabela aia. Nu stiu cum ai ajuns in situatia asta (pentru ca sunt mai multe moduri in care se poate activa bufferingul), dar ai doua solutii: #1. Cauti unde l-ai activat si il dezactivezi (in Form/BufferingMode, parca; in DataEnvironment, buffering pe tabela respectiva; comanda CURSORSETPROP(), daca ai folosit-o pe undeva) #2. Lasi bufferingul asa cum e si imediat dupa Replace scrii TABLEUPDATE(.T.,.T.) Sugestia mea ar fi sa incerci varianta 1 mai intai. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  6/30/2010 7:18:25 PM darky85 113 posts Re: problema tabele va rog help  (N/A) Am reusit pe variatna 1 , aveam bufferingmode la 5 parca l-am pus pe 1 care era default si s-a rezolvat . Iti multumesc  7/1/2010 12:30:04 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) You're welcome. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  7/1/2010 1:41:26 AM darky85 113 posts Re: problema tabele va rog help  (N/A) Mai am o mica problema si cred ca gata am sintaxa : LOCATE FOR ALLTRIM(t_stoc.denumire) = ALLTRIM(thisform.text3.Value) IF FOUND() t_stoc.cantitate = t_stoc.cantitate + thisform.text8.Value t_stoc.pret_total = t_stoc.pret_total + thisform.text7.value t_stoc.data_stoc = DATE() WAIT WINDOW 'Cantitatea a fost marita' ELSE APPEND BLANK IN t_stoc REPLACE denumire WITH thisform.text3.Value IN t_stoc REPLACE um WITH thisform.text4.Value IN t_stoc REPLACE cantitate WITH thisform.text8.Value IN t_stoc REPLACE pret_total WITH thisform.text7.Value IN t_stoc WAIT WINDOW 'Produs aduagat' ENDIF si nu vrea sa imi intre pe if found chiar data am produsul in tabela imi intra numai pe else  7/1/2010 2:03:37 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Nu stiu ce sa zic. Am senzatia ca faci cautarea in alta tabela decat cea in care crezi. Ia pune tu inainte de LOCATE linia asta: Select T_Stoc si vezi daca merge bine. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  7/1/2010 2:49:42 AM darky85 113 posts Re: problema tabele va rog help  (N/A) Da a mers dar acum imi intra pe if found() si zice object t_stoc is not found pe linia asta : t_stoc.cantitate = t_stoc.cantitate + thisform.text8.Value  7/1/2010 2:56:25 AM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) Pentru ca t_stoc.Cantitate e camp. Campurile se populeaza cu REPLACE, nu? Replace T_Stoc.Cantitate With T_Stoc.Cantitate + thisform.text8.value ------------------------------------ Eu cred ca esti obosit. Las-o pentru maine. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  7/1/2010 3:05:12 AM darky85 113 posts Re: problema tabele va rog help  (N/A) a mers gata :) Multumes mult si scuze daca am fost nepoliticos mai devreme . Dar ....  7/1/2010 10:52:13 AM darky85 113 posts Re: problema tabele va rog help  (N/A) Cum fac sa incep un rand nou dupa un text intr-un label : ex text1 text2 Si cum pot sa sterg tot dintr-o tabelela dar fara sa ma intrebe daca vreau sa sterg tabela x ca am incercat cu zap dar ma intreba daca vreau sa sterg . Multumesc  7/1/2010 12:40:44 PM Grigore Dolghin 3521 posts www.class-software.eu Re: problema tabele va rog help  (N/A) a) Labelul e limitat la 254 de caractere. Clasa Label are proprietatea WordWrap, dar nu poti sa ai un rand lung si unul scurt, ci are tendinta sa le rupa la lungimi egale. Foloseste un editbox - poti sa jonglezi cu proprietatile lui incat sa arate exact ca un label. b) SET DELETED ON iti "ascunde" inregistrarile marcate pentru stergere cu comand DELETE. Ele o sa fie acolo, fizic, dar nu se mai vad. PACK le elimina pe cele marcate pentru stergere dar necesita acces exclusiv pe tabela. Confirmarea aia se elimina cu SET SAFETY OFF. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  7/5/2010 10:44:17 AM darky85 113 posts Re: problema tabele va rog help  (N/A) am si eu urmatorul cod : SELECT t_angajati Locate For Alltrim(t_angajati.nume) = Alltrim(ThisForm.text1.Value) IF FOUND() Locate For t_angajati.id_angajat=thisform.text2.Value If Found() APPEND BLANK IN logare REPLACE nume WITH thisform.text1.Value IN logare replace nume_tabela WITH 'Logare' IN logare replace data WITH DATE() IN logare REPLACE ora WITH TIME() IN logare thisform.Release MESSAGEBOX('Ai fost logat',48,'Logare') DO FORM f_start ELSE MESSAGEBOX('Parola este gresita eroare - XX',16 ,'Logare') ENDIF ELSE MESSAGEBOX('Numele nu exista in baza de date',16,'Logare') ENDIF thisform.text1.SetFocus problema este ca nu vrea sa imi faca release am incercat si cu numele tabelei in loc de thisform  Page 1 of 1   Visual FoxPro  Cod, sintaxa si comenzi  problema tabele... Flat View Tree View Oldest To Newest Newest To Oldest