From af646cfa738ad59887817537d22132396ae95aa3 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 15 Apr 2010 14:44:54 +0000 Subject: [PATCH] Patch level : 10.0 706 Files correlati : mg3.exe Ricompilazione Demo : [ ] Commento : 0001572: Pharmatex - valorizzazione magazzino Descrizione Verificare quanto in oggetto su area dati spedita da Ilaria. La segnalazione riguardava differenze sul saldo iniziale delle schede di articoli per magazzino e per lotto. e la Pharmatex ha form personalizzati vanno modificati di conseguenza. rifatta la correzione in modo da non dover cambiare i report personalizzati git-svn-id: svn://10.65.10.50/trunk@20343 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- mg/mg3300.cpp | 8 +++++++- mg/mg3300a.frm | 48 +++++++++++++++++++++++------------------------- mg/mg3300as.frm | 45 ++++++++++++++++++++++----------------------- 3 files changed, 52 insertions(+), 49 deletions(-) diff --git a/mg/mg3300.cpp b/mg/mg3300.cpp index 94df69bba..65d06ead3 100755 --- a/mg/mg3300.cpp +++ b/mg/mg3300.cpp @@ -277,10 +277,16 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s) const bool stampa_perart = relation()->lfile().num() == LF_ANAMAG; if (stampa_perart) // Stampa per articoli { - const TRectype& rmovmag = cursor()->curr(LF_RMOVMAG); // Record collegato a LF_ANAMAG + cursor()->relation()->save_status(); + TLocalisamfile & rmovmag = cursor()->relation()->lfile(LF_RMOVMAG); + + rmovmag.prev(); + codmag = rmovmag.get(RMOVMAG_CODMAG); codart = rmovmag.get(RMOVMAG_CODART); livello = rmovmag.get(RMOVMAG_LIVGIAC); + cursor()->relation()->restore_status(); + } else { diff --git a/mg/mg3300a.frm b/mg/mg3300a.frm index 8c2461d46..86be6004b 100755 --- a/mg/mg3300a.frm +++ b/mg/mg3300a.frm @@ -213,7 +213,7 @@ SECTION BODY ODD 0 BEGIN KEY "dep" PROMPT 5 1 "Deposito " - FIELD ALIAS_DEP@->S0 + FIELD ALIAS_DEP@-MAG END END // HEADER deposito END // HEADER magazzino @@ -303,30 +303,6 @@ SECTION BODY ODD 0 FLAGS "H" MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS,Q END - SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_CANPRINTSALDOPREC!=0) - NUMERO 100 18 - BEGIN - PROMPT 8 1 "Saldo precedente :" - END - NUMERO FF_SALDOPREC 15 - BEGIN - PROMPT 46 1 "" - PICTURE "##.###.##@,@##" - MESSAGE _USER,SALDOPREC|ADD,FF_SALDO_GRMOV - END - NUMERO 101 12 - BEGIN - FLAGS "H" - MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC - END - STRINGA 102 12 - BEGIN - PROMPT 42 1 "" - FIELD LF_UMART->UM - END - END // stampa saldo precedente - - SECTION MOVIMENTO_CAUSALE 1 0 0 FILE LF_RMOVMAG GROUP CAUS NUMERO FF_QUANTRIGA 12 @@ -389,6 +365,28 @@ SECTION BODY ODD 0 END // sezione movimenti di competenza END // SEZIONE righe movimento di competenza ragg. per causale + SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_CANPRINTSALDOPREC!=0) + NUMERO 100 18 + BEGIN + PROMPT 8 1 "Saldo precedente :" + END + NUMERO FF_SALDOPREC 15 + BEGIN + PROMPT 46 1 "" + PICTURE "##.###.##@,@##" + MESSAGE _USER,SALDOPREC|ADD,FF_SALDO_GRMOV + END + NUMERO 101 12 + BEGIN + FLAGS "H" + MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC + END + STRINGA 102 12 + BEGIN + PROMPT 42 1 "" + FIELD LF_UMART->UM + END + END // stampa saldo precedente SECTION TOTALI_MOV 1 1 1 NUMEXPR #FF_SALDO_MOV!=0 SECTION HEADER_MOV 1 1 1 NUMEXPR (#FF_NUMRIGHE==0) diff --git a/mg/mg3300as.frm b/mg/mg3300as.frm index 3644cc4f4..7d47c518c 100755 --- a/mg/mg3300as.frm +++ b/mg/mg3300as.frm @@ -293,29 +293,6 @@ SECTION BODY ODD 0 FLAGS "H" MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS,Q END - SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_CANPRINTSALDOPREC!=0) - NUMERO 100 18 - BEGIN - PROMPT 20 1 "Saldo precedente :" - END - NUMERO FF_SALDOPREC 15 - BEGIN - PROMPT 66 1 "" - PICTURE "##.###.##@,@##" - MESSAGE _USER,SALDOPREC|ADD,FF_SALDO_GRMOV - END - NUMERO 101 12 - BEGIN - FLAGS "H" - MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC - END - STRINGA 102 12 - BEGIN - PROMPT 62 1 "" - FIELD LF_UMART->UM - END - END // stampa saldo precedente - SECTION MOVIMENTO_CAUSALE 1 0 0 FILE LF_RMOVMAG GROUP CAUS NUMERO FF_QUANTRIGA 12 @@ -378,6 +355,28 @@ SECTION BODY ODD 0 END // sezione movimenti di competenza END // SEZIONE righe movimento di competenza ragg. per causale + SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_CANPRINTSALDOPREC!=0) + NUMERO 100 18 + BEGIN + PROMPT 20 1 "Saldo precedente :" + END + NUMERO FF_SALDOPREC 15 + BEGIN + PROMPT 66 1 "" + PICTURE "##.###.##@,@##" + MESSAGE _USER,SALDOPREC|ADD,FF_SALDO_GRMOV + END + NUMERO 101 12 + BEGIN + FLAGS "H" + MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC + END + STRINGA 102 12 + BEGIN + PROMPT 62 1 "" + FIELD LF_UMART->UM + END + END // stampa saldo precedente SECTION TOTALI_MOV 1 1 1 NUMEXPR #FF_SALDO_MOV!=0 STRINGA FF_CAUSALE_RIGA 5