///-----------------------------------------------------------------------------------------------------------------------------------
//$ldec_montotot = ($ldec_montomov-$ldec_montoret);
$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,'SCBCOR',$ls_desmov,$ls_numdoc,'H',$ldec_monto,$ldec_monobjret,false,'00000');
if ($lb_valido)
{
$ls_ctaprovbene=$io_carord->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');*/
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_ctaprovbene,'CXPSOP',$ls_desmov,$ls_numsol,'D',$ldec_monto+$ld_montotret,$ldec_monobjret,false,'00000');
if ($lb_valido)
{
//Sustiyuyo nuevamente las del movimiento.
if ($lb_valido)
{
$ldec_monto_spg=0;
$io_carord->uf_buscar_dt_cxpspg($ls_numsol);
if (array_key_exists("codestpro1",$io_carord->ds_sol->data))
{
$li_total_rows=$io_carord->ds_sol->getRowCount("codestpro1");
for ($li_x=1;$li_x<=$li_total_rows;$li_x++)
{
$ldec_monto_aux=$io_carord->ds_sol->getValue("monto",$li_x);
$ldec_monto_spg=$ldec_monto_spg + $ldec_monto_aux;
}
$ldec_montospg2=0;
for ($li_y=1;$li_y<=$li_total_rows;$li_y++)
{
$ldec_monto_aux = $io_carord->ds_sol->getValue("monto",$li_y);
if ($lb_valido)
{
if ($ls_estsol!="C")
$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);
$ldec_monto_spg=$ldec_monto_spg + $ldec_monto_aux;
}
$ldec_montospg2=0;
for($li_y=1;$li_y<=$li_total_rows;$li_y++)
{
$ldec_monto_aux=$in_class_carta->ds_sol->getValue("monto",$li_y);
