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

Patch level :

Browse Source 
Files correlati     :   pd0610.exe
Ricompilazione Demo : [ ]
Commento            :

Creazione ordini fornitore SRM


git-svn-id: svn://10.65.10.50/branches/R_10_00@22324 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-06-25 17:30:17 +00:00
parent 2234ff0150
commit c2a8964859
1 changed files with 43 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ps/pd0610200.cpp
View File

@ -325,6 +325,20 @@ TDoc_key * TCrea_ordini_srm_app::crea_ordf(const TDocumento& ordc, const long nr
ordf.put(DOC_FASCMS, ordc.get(RDOC_FASCMS));
ordf.put(DOC_NUMDOCRIF, ordc.numero());
ordf.put(DOC_DATADOCRIF, ordc.get(DOC_DATADOC));
TRiga_documento & row = ordf.new_row("05");
TString rif;
ordc.riferimento(rif);
if (rif.empty())
rif = ordc.tipo().descrizione();
if (rif.full())
rif << ' ';
rif << "n. " << ordc.numero();
rif << " del " << ordc.get(DOC_DATADOC);
row.put(RDOC_DESCR, rif);
}
const TRiga_documento & orfrow = ordc[nriga];
const long codcf = ordf.get_long(DOC_CODCF);
@ -366,20 +380,6 @@ TDoc_key * TCrea_ordini_srm_app::crea_ordf(const TDocumento& ordc, const long nr
else
ordf.put(DOC_CODCONT, codcont);
}
TRiga_documento & row = ordf.new_row("05");
TString rif;
ordc.riferimento(rif);
if (rif.empty())
rif = ordc.tipo().descrizione();
if (rif.full())
rif << ' ';
rif << "n. " << ordc.numero();
rif << " del " << ordc.get(DOC_DATADOC);
row.put(RDOC_DESCR, rif);
}
ordini_fornitore(ordc, nriga, ordf);
return new TDoc_key(ordf.get_int(DOC_ANNO), ordf.get(DOC_CODNUM), ordf.get_long(DOC_NDOC), ordf.get_char(DOC_PROVV));
}