diff --git a/Programe/oproceduri_devize.prg b/Programe/oproceduri_devize.prg
index 024d023..69e2a34 100644
--- a/Programe/oproceduri_devize.prg
+++ b/Programe/oproceduri_devize.prg
@@ -1268,6 +1268,36 @@ Procedure factureaza_deviz
 				If lnSucces >= 0
 					lnSucces = oscrie_in_fisiere(0,.F.,.T.)	&&	?
 					If lnSucces >= 0
+						lcListaIncasare = ''
+						If Inlist(poDate.ntip_incasare, 11, 2, 3) && 11 = CHITANTA, 2 = BON FISCAL, 3 = POS/Card
+							Do Case
+								Case poDate.ntip_incasare = 11 && chitanta
+									If poDate.incasat <> 0
+										lcListaIncasare = lcListaIncasare + ['11|] + Alltrim(Str(poDate.incasat,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
+									Endif
+								Case poDate.ntip_incasare = 3 && POS/Card
+									If poDate.incasatCARD <> 0
+										lcListaIncasare = lcListaIncasare + ['3|] + Alltrim(Str(poDate.incasatCARD,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
+									Endif
+								Otherwise && bon fiscal
+									If poDate.incasat <> 0
+										lcListaIncasare = lcListaIncasare + ['2|] + Alltrim(Str(poDate.incasat,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
+									Endif
+									If poDate.incasatCARD <> 0
+										lcListaIncasare = lcListaIncasare + ['3|] + Alltrim(Str(poDate.incasatCARD,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
+									Endif
+							Endcase
+						Else
+							lcListaIncasare = [NULL]
+						Endif
+						If lcListaIncasare <> [NULL]
+							lcSql = [begin ] + gcS + [.pack_facturare.scrie_incasari('] + Alltrim(Nvl(poDate.serie_chit,[])) + [',] + ;
+								Alltrim(Str(Nvl(poDate.nr_incasare,0))) + [,] + lcListaIncasare + [,NULL,'D'); end;]
+							lnSucces = goExecutor.oExecute(lcSql)
+							If lnSucces < 0
+								amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
+							Endif
+						Endif
 *!*	modificare	v 2.0.47 : am adaugat lnIdSet la pack_devize.actualizeaza_deviz
 						lcSql = [begin ] + gcS + [.pack_facturare.scrie_in_vanzari(0,] + ;
 							IIF(Isnull(poDate.id_delegat),[NULL],Alltrim(Str(poDate.id_delegat))) + [,] + ;