if ($ls_codproben!=$ls_probentemp) { $ls_numdoc=$io_carord->uf_generar_num_documento($ls_codemp,$ls_mov_operacion); $arr_movbco["mov_document"] = $ls_numdoc; $arr_movbco["objret"] = $ldec_monobjret; $lb_valido=$io_carord->uf_procesar_movbanco($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_desproben,$ldec_monto,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,0,'T','SCBCOR','',$ls_tipo,$ls_numcarord,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon); } else { $io_carord->uf_select_monto_actual($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,&$ldec_montoactual,&$ldec_monobjret_actual,&$ldec_monret_actual); $ldec_montomov = ($ldec_montoactual+$ldec_monto); $ldec_monobjretmov = ($ldec_monobjret_actual+$ldec_monobjret); $ldec_monretmov = $ldec_monret_actual; $lb_valido = $io_carord->uf_update_monto_movimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,$ldec_montomov,$ldec_monobjretmov,$ldec_monretmov); } $lb_valido=$io_carord->uf_insert_fuentefinancimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ls_estmov,$ls_codfuefin); if ($ldec_montopendiente==$ldec_monto) { $ls_estsol='C'; //Cancelado } else { $ls_estsol='P';//Programado } $lb_valido=$io_carord->uf_procesar_carta_orden($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estsol); if ($lb_valido) { //--------------------------------PARA EL CASO QUE LAS RETENCIONES SE APLIQUE DESDE CXP Y SE REFLEJAN EN BANCO------------ if ($lb_valido) { require_once("sigesp_scb_c_emision_chq.php");
$ds_banco["cedper"][$li_cont]= $ls_cedbene; $ds_banco["nomper"][$li_cont]= $rs_datosbene["nombene"]; $ds_banco["apeper"][$li_cont]= $rs_datosbene["apebene"]; $ds_banco["nacper"][$li_cont]= $rs_datosbene["nacper"]; $ds_banco["codcueban"][$li_cont]=$rs_datosbene["ctabene"]; $ds_banco["tipcuebanper"][$li_cont]=$ls_tipocta; $ds_banco["monnetres"][$li_cont]=$ldec_monto; } } if($li_aux==1) { $arr_movbco["mov_document"] = $ls_numcarord; $arr_movbco["objret"] = $ldec_monobjret; $lb_valido=$in_class_carta->uf_procesar_movbanco($ls_codban,$ls_cuenta_banco,$ls_numcarord,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_codbene,$ls_nombene,$ldec_montomov,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,0,'T','SCBCOR','',$ls_tipo,$ls_numcarord); } $lb_valido=$in_class_carta->uf_insert_fuentefinancimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numcarord,'ND',$ls_estmov,$ls_codfuefin); ///////////////// Guardo el detalle de las solicitudes de pago cancelades en esta carta orden /////////////////// $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 {