root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.00 1416

Browse Source 
Files correlati     : m770.exe 770100a.msk 770100f.msk
Commento
Riprostinata la commessa precedente se l'attuale è chiusa
Ricerca sulle schede nella scheda percipienti
Proposto cod10 = C per causali esenti
This commit is contained in:
Alessandro Bonazzi 2026-09-15 18:54:53 +02:00
parent 45b418599a
commit 9dbc9318e3
5 changed files with 68 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/m770/770100.cpp
View File

@ -674,7 +674,7 @@ bool TSchedaPercipienti::user_create()
HR("@1|Data@11|Compenso@16|Ritenuta@16|"),
0, NULL_WIN, 5);
set_search_field(F_CODANAGRPERC);
set_search_field(H_NPROG);
// simulo una chiamata da contabilità (lo lascio per eventuali prove)
/* real totdocla = 1000000;
@ -1764,11 +1764,11 @@ Pag_struct& TSchedaPercipienti::from_sheet_to_struct(TToken_string& t, Pag_struc
if ((pos = token_pos("COD10")) != -1)
s.cod10 = t.get(pos);
// set imorti restituiti al netto della ritenuta
// set importi restituiti al netto della ritenuta
if ((pos = token_pos("SPESERIMB")) != -1)
s.speserimb = t.get_real(pos);
// set imorti restituiti al netto della ritenuta
// set importi restituiti al netto della ritenuta
if ((pos = token_pos("RITRIMB")) != -1)
s.ritrimb = t.get_real(pos);

1
src/m770/770100a.h
View File

@ -6,6 +6,7 @@
#define F_TIPOA 151
#define F_CODANAGR 152
#define F_NPROG 153
#define H_NPROG 154
// m70100a
#define F_RAGDITTA 200

32
src/m770/770100a.uml
View File

@ -171,7 +171,6 @@ BEGIN
GROUP 1
END
NUMBER F_NPROG 6
BEGIN
PROMPT 1 11 "@bScheda numero "
@ -199,6 +198,37 @@ BEGIN
OUTPUT F_NPROG NPROG
END
NUMBER H_NPROG 6
BEGIN
PROMPT 30 11 " "
CHECKTYPE NORMAL
FLAGS "DG"
USE LF_SCPERC
JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN %CA7 INTO CODTAB=CODCAUS
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG H_NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
DISPLAY "Numero@7" NPROG
DISPLAY "Data\nDocumento@10" DATADOC
DISPLAY "Numero\nDocumento@8" NUMDOC
DISPLAY "Causale" CODCAUS
DISPLAY "Quadro" %CA7->S1
DISPLAY "Causale\nQuadro@6" CAUSQUA
DISPLAY "Ritenute\noperate@15V" RITOPE
DISPLAY "Ritenute\nversate@15V" RITVER
DISPLAY "Compenso@15V" COMPENSO
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGR CODANAGR
OUTPUT H_NPROG NPROG
OUTPUT F_NPROG NPROG
END
BUTTON F_GESTPERC 28 2
BEGIN
PROMPT -12 -1 "Fatture da ricevere"

4
src/m770/770100f.uml
View File

@ -136,8 +136,8 @@ BEGIN
ITEM "B|redditi assoggettati in parte al contributo 10%"
ITEM "C|redditi non assoggettati al contributo 10%"
OUTPUT 111
FIELD LF_RPAG->COD10
VALIDATE REQIF_FUNC 3 101 102 103
// FIELD LF_RPAG->COD10
// VALIDATE REQIF_FUNC 3 101 102 103
WARNING "Il codice contributo Inps deve essere indicato"
END

15
src/m770/770102.cpp
View File

@ -2,6 +2,7 @@
#include "770101.h"
#include "770102.h"
#include <tabutil.h>
#include <recarray.h>
void TSchedaPercipienti::init_mask(TMask& m, bool inserimento)
{
@ -133,6 +134,20 @@ bool TSchedaPercipienti::pags_notify(TSheet_field& s, int r, KEY k)
// Fine modifica di una riga
case K_ENTER:
{
TEdit_field & fld = s.mask().efield(F_CODCAUS);
TMask & row_mask = s.sheet_mask();
const TRectype & ca7 = cache().get("%CA7", fld.get());
if (ca7.get_bool("B4") == false && row_mask.get(111).blank())
{
row_mask.set(111, "C");
s.set_row_cell(111, "C", s.selected());
}
if (row_mask.get(101).full() && (row_mask.get(102).full() || row_mask.get(111).blank()) &&
row_mask.get(111).blank())
return error_box("Il codice contributo Inps deve essere indicato");
}
break;
default: