$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_totret;
$ls_codded="00000";
if($lb_valido)
{
if(($ls_codope=="ND")||($ls_codope=="RE")||($ls_codope=="CH"))
{
$ls_operacioncon="H";
}
else
{
$ls_operacioncon="D";
}
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,$ls_mov_procede,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,$ldec_monto_mov,$ldec_objret,true,$ls_codded);
if($lb_valido)
{
$ldec_monto_aux=$ldec_monto_mov-$ldec_totret;
for($z=1;$z<=$totrow && $lb_valido ;$z++)
{
if(array_key_exists("chkislr".$z,$_POST))
{
$chk_islr="checked";
$li_status_islr=1;
}
else
{
$chk_islr="";
$li_status_islr=0;
{
$la_deducciones2=$_SESSION["la_deducciones"];
$li_total2 = count($la_deducciones2["Codded"]);
for ($j=1;$j<=$li_total2;$j++)
{
if (array_key_exists("$j",$la_deducciones2["Codded"]))
{
$ls_ctascg1 = trim($la_deducciones2["SC_Cuenta"][$j]);
$ls_dended1 = $la_deducciones2["Dended"][$j];
$ls_codded1 = $la_deducciones2["Codded"][$j];
$ldec_objret1 = $la_deducciones2["MonObjRet"][$j];
$ldec_montoret1 = $la_deducciones2["MonRet"][$j];
$ld_montotret += $ldec_montoret1;
if (!empty($ls_codded1))
{
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_ctascg1,$ls_procede_doc,$ls_dended1,$ls_numsol,'H',$ldec_montoret1,$ldec_objret1,true,$ls_codded1);
}
}
}
}
for ($i=1;$i<=$li_total;$i++)
{
if (array_key_exists("$i",$la_deducciones["codded"]))
{
$ls_ctascg = trim($la_deducciones["sc_cuenta"][$i]);
$ls_dended = $la_deducciones["dended"][$i];
$ls_codded = $la_deducciones["codded"][$i];
$ldec_objret = $la_deducciones["monobjret"][$i];
$ldec_montoret = $la_deducciones["monret"][$i];
$ld_montotret += $ldec_montoret;
if ($ls_codded!="")
$arr_movbco["fecha"] = $ld_fecha;
$arr_movbco["codpro"] = $ls_codpro;
$arr_movbco["cedbene"] = $ls_cedbene;
$arr_movbco["monto_mov"] = $ldec_monto_mov;
$arr_movbco["objret"] = $ldec_objret;
$arr_movbco["retenido"] = $ldec_retenido;
$arr_movbco["estmov"] = $ls_estmov;
$ls_cuenta = $_POST["cuenta_ingreso"];
$ld_monto = $_POST["txtmoning"];
$ldec_monto = str_replace(".","",$ld_monto);
$ldec_monto = str_replace(",",".",$ldec_monto);
if ($lb_valido)
{
$ls_operacioncon="H";
if ($li_cobrapaga==0)
$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_procedencia,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,$ldec_monto,$ldec_objret,false,'00000');
$ls_cuenta = $_POST["cuenta_scg"];
$ls_documento = $_POST["txtdocumento"];
$ls_denominacion = $_POST["txtdescripcion"];
$ls_operacioncon = "D";
$ld_mondeb = $_POST["monto"];
if ($lb_valido)
{
$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_procedencia,$ls_descripcion,$ls_mov_document,$ls_operacioncon,$ld_mondeb,$ldec_objret,true,'00000');
if ($lb_valido)
{
$ls_spicuenta = trim($_POST["txtcuenta"]);
$ls_desmov = $_POST["txtdescripcion"];
$ls_operacion = $_POST["txtafectacion"];
$ldec_monto = $_POST["txtmoning"];
$ldec_monto = str_replace(".","",$ldec_monto);
$li_total = count($la_deducciones["codded"]);
}
for ($i=1;$i<=$li_total;$i++)
{
if (array_key_exists("$i",$la_deducciones["codded"]))
{
$ls_ctascg = trim($la_deducciones["sc_cuenta"][$i]);
$ls_dended = $la_deducciones["dended"][$i];
$ls_codded = $la_deducciones["codded"][$i];
$ldec_objret = $la_deducciones["monobjret"][$i];
$ldec_montoret = $la_deducciones["monret"][$i];
$ld_montotret += $ldec_montoret;
if ($ls_codded!="")
{
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_ctascg,
$ls_procede_doc,$ls_dended,
$ls_numsol,'H',$ldec_montoret,
$ldec_objret,true,$ls_codded);
}//FIN DEL IF
}//FIN DEL IF
}// FIN DEL FOR
if ($ls_estretiva=='B')
{
$ldec_montotot=$ldec_montomov;
}
elseif($ls_estretiva=='C')
{
$ldec_montotot=($ldec_montomov-$ldec_montoret);
}
unset($la_deducciones);
}//FIN DEL IF
///-----------------------------------------------------------------------------------------------------------------------------------
$lb_valido=$in_class_carta->uf_procesar_dtmov($ls_codemp, $ls_codban, $ls_cuenta_banco, $ls_numcarord, $ls_mov_operacion,'N', $ls_codpro, $ls_cedbene, $ls_numsol, $ldec_monto,$rs_datosbene["ctabene"]);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($ldec_montopendiente==$ldec_monto)
{
$ls_estsol='C'; //Cancelado
}
else
{
$ls_estsol='P';//Programado
}
$lb_valido=$in_class_carta->uf_procesar_carta_orden($ls_codban,$ls_cuenta_banco,$ls_numcarord,$ls_mov_operacion,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estsol);
if($lb_valido)//Segundo
{
$ldec_montotot=$ldec_montomov-$ldec_montoret;
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,'SCBCOR',$ls_desmov,$ls_numcarord,'H',$ldec_monto,$ldec_monobjret,false,'00000');
if($lb_valido)//Tercer if
{
$ls_ctaprovbene=$in_class_carta->uf_select_ctaprovbene($ls_tipo,$ls_codproben,&$as_codban,&$as_ctaban);
//Reemplazo los valores de banco y cuenta banco por los del proveedor.
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_ctaprovbene,'CXPSOP',$ls_desmov,$ls_numsol,'D',$ldec_monto,$ldec_monobjret,false,'00000');
if($lb_valido)//Cuarto if
{
$ldec_monto_spg=0;
$in_class_carta->uf_buscar_dt_cxpspg($ls_numsol);
if(array_key_exists("codestpro1",$in_class_carta->ds_sol->data))
{
$li_total_rows=$in_class_carta->ds_sol->getRowCount("codestpro1");
for($li_x=1;$li_x<=$li_total_rows;$li_x++)
{
$ldec_monto_aux=$in_class_carta->ds_sol->getValue("monto",$li_x);
