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

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

281
Meniuri/vanz5.mn2 Normal file
View File

@@ -0,0 +1,281 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "\<Vanzare en_detail"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Retur vanzare en-detail"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Pe lucrari in curs de executie"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _2fu0nwiv5
*----------------------------------
DEFINE POPUP _2fu0nwiv5 SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\<Factura retur marfa (valorica)"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "\<Aviz retur marfa (valoric)"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _0zz0xwwtn
*----------------------------------
DEFINE POPUP _0zz0xwwtn SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Descarcare de gestiune"
ON BAR 8 OF Shortcut ACTIVATE POPUP Descarcare
*----------------------------------
DEFINE POPUP Descarcare SHORTCUT RELATIVE
DEFINE BAR 1 OF Descarcare PROMPT "Metoda cu \<K - utilizand balante de parteneri"
ON SELECTION BAR 1 OF Descarcare DO BAR_1_OF_Descarcare_FB2P
DEFINE BAR 2 OF Descarcare PROMPT "Metoda cu K pentru marfa in \<custodie"
ON SELECTION BAR 2 OF Descarcare DO BAR_2_OF_Descarcare_FB2P
DEFINE BAR 3 OF Descarcare PROMPT "\Descarcare cantitativa (fara monetar)"
ON SELECTION BAR 3 OF Descarcare DO BAR_3_OF_Descarcare_FB2P
DEFINE BAR 4 OF Descarcare PROMPT "\<Descarcare marfa la pret de lista cu monetar"
ON SELECTION BAR 4 OF Descarcare DO BAR_4_OF_Descarcare_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\<Monetar"
ON BAR 9 OF Shortcut ACTIVATE POPUP Monetar
*----------------------------------
DEFINE POPUP Monetar SHORTCUT RELATIVE
DEFINE BAR 1 OF Monetar PROMPT "\Cu descarcare cantitativa de gestiune"
ON SELECTION BAR 1 OF Monetar DO BAR_1_OF_Monetar_FB2P
DEFINE BAR 2 OF Monetar PROMPT "\Cu descarcare valorica de gestiune"
ON SELECTION BAR 2 OF Monetar DO BAR_2_OF_Monetar_FB2P
DEFINE BAR 3 OF Monetar PROMPT "\<Fara descarcare de gestiune"
ON SELECTION BAR 3 OF Monetar DO BAR_3_OF_Monetar_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _2e20ld90d
*----------------------------------
DEFINE POPUP _2e20ld90d SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "\<Protocol cu TVA" ;
MESSAGE 'x=401;623=401;635=4427'
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
DEFINE BAR 12 OF Shortcut PROMPT "Protocol" ;
MESSAGE 'x=401;623=401;378=x; 4428=x '
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(64)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(65)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
lans(93)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(239)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(238)
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Descarcare_FB2P
DO inchidere_k IN inchidere_k.prg
*!* LOCAL A411,A371,A378,S371,S378,K,V,B
*!* STORE 0 TO S371,S378,K,V,B
*!* DO REF_GESTIUNI
*!* m.SCD=''
*!* m.SCC=''
*!* semafor=.t.
*!* lans(66)
*!* semafor=.f.
*!* IF buton=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* SELECT NUMEGEST
*!* SET FILTER TO
*!* M.GEST=GEST
*!* LOCAL ULIT
*!* ulit=SUBSTR(contg,4,1)
*!* A411='411'+ULIT
*!* A371='371'+ULIT
*!* A378='378'+ULIT
*!* SELECT GESTIUNI
*!* SEEK M.GEST
*!* IF !FOUND()
*!* DO MESAJ WITH 'Eroare: generare gestiuni!',''
*!* RETURN
*!* ENDIF
*!* M.SUMA=CRED
*!* k=procent_k
*!* IF k=0
*!* DO mesaj WITH 'Modificati procentul k','in gestiuni'
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* m.totftvam=ROUND(M.SUMA/1.19,0)
*!* m.tvam=M.SUMA-M.totftvam
*!* m.TOTCTVA=M.SUMA
*!* m.NEIMPOZAB=0
*!* m.PERECHE=0
*!* V=M.TOTCTVA
*!* LOCAL A,B,c,d,E,F,G,H
*!* A=ROUND(V*K,0)
*!* B=V-A-M.TVAM
*!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),''
*!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact
*!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact
*!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact
*!* DO STERGE
ENDPROC && BAR_1_OF_Descarcare_FB2P
PROCEDURE BAR_2_OF_Descarcare_FB2P
DO inchidere_k_custodie IN inchidere_k.prg
ENDPROC && BAR_2_OF_Descarcare_FB2P
PROCEDURE BAR_3_OF_Descarcare_FB2P
lans(84)
ENDPROC && BAR_3_OF_Descarcare_FB2P
PROCEDURE BAR_4_OF_Descarcare_FB2P
lans(95)
ENDPROC && BAR_4_OF_Descarcare_FB2P
PROCEDURE BAR_1_OF_Monetar_FB2P
LANS(69)
ENDPROC && BAR_1_OF_Monetar_FB2P
PROCEDURE BAR_2_OF_Monetar_FB2P
*!* LOCAL A411,A371,A378,S371,S378,K,V,B
*!* STORE 0 TO S371,S378,K,V,B
*!* lans(68)
*!* iF buton=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* SELECT NUMEGEST
*!* SET FILTER TO
*!* M.GEST=GEST
*!* LOCAL ULIT
*!* ULIT=SUBSTR(CONTG,4,1)
*!* A411='411'+ULIT
*!* A371='371'+ULIT
*!* A378='378'+ULIT
*!* SELECT GESTIUNI
*!* SEEK M.GEST
*!* IF !FOUND()
*!* DO MESAJ WITH 'Eroare: generare gestiuni!',''
*!* RETURN
*!* ENDIF
*!* k=procent_k
*!* IF k=0
*!* DO mesaj WITH 'Modificati procentul k','in gestiuni'
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* *m.totftvam=ROUND(M.SUMA/1.19,0)
*!* m.totftvam=m.totftva
*!* *m.tvam=M.SUMA-M.totftvam
*!* m.tvam=m.tottva
*!* *m.TOTCTVA=M.SUMA
*!* m.NEIMPOZAB=0
*!* DO CONTABILIZEAZA WITH A411,'707 ',M.TOTFTVAM,CLASAACT
*!* DO CONTABILIZEAZA WITH A411,'4427',M.TVAM,CLASAACT
*!* M.PERECHE=M.NRACT
*!* DO CONTABILIZEAZA WITH '5311',A411,M.TOTCTVA,CLASAACT
*!* m.PERECHE=0
*!* V=M.TOTCTVA
*!* LOCAL A,B,c,d,E,F,G,H
*!* A=ROUND(V*K,0)
*!* B=V-A-M.TVAM
*!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),''
*!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact
*!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact
*!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact
*!* M.SUMA=M.TOTCTVA
*!* *** in casa e prost face gath memv si nu are m.scd si m.scc
*!* m.scd='5311'
*!* m.scc=A411
*!* do inCASA
*!* DO ADVANZ
*!* SELE CLIENTI
*!* if flock()
*!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.TOTCTVA
*!* REPLACE CLIENTI.PRODUCTIE WITH CLIENTI.PRODUCTIE++m.TOTCTVA
*!* endif
*!* unlock
*!* DO STERGE
ENDPROC && BAR_2_OF_Monetar_FB2P
PROCEDURE BAR_3_OF_Monetar_FB2P
lans(67)
ENDPROC && BAR_3_OF_Monetar_FB2P
PROCEDURE BAR_11_OF_Shortcut_FB2P
*!* lans(233)
initializeaza_vanzare_din_stoc(233)
ENDPROC && BAR_11_OF_Shortcut_FB2P
PROCEDURE BAR_12_OF_Shortcut_FB2P
*lans(232)
initializeaza_vanzare_din_stoc(270)
ENDPROC && BAR_12_OF_Shortcut_FB2P
*</Procedures>