| Caja y Banco | |
|
|||||||||||||||
|
|||||||||||||||
|
|
|
|
|
|
|
|
|
|||||||
";
$li_row=0;
$objectScg[$li_row][1] = "";
$objectScg[$li_row][2] = "";
$objectScg[$li_row][3] = "";
$objectScg[$li_row][4] = "";
$objectScg[$li_row][5] = "";
$objectScg[$li_row][6] = "";
$objectScg[$li_row][7] = "";
$objectScg[$li_row][8] = "";
}
$title=array('1'=>'Cuenta', '2'=>'Programatico','3'=>'Documento','4'=>'Descripción','5'=>'Procede','6'=>'Operación','7'=>'Monto','8'=>'Edición');
$title2[1]="Cuenta"; $title2[2]="Documento"; $title2[3]="Descripción"; $title2[4]="Procede"; $title2[5]="Debe/Haber"; $title2[6]="Monto"; $title2[7]="Deduccion"; $title2[8]="Edición";
$grid1="grid_SPG";
$grid2="gridscg";
if($ls_operacion == "GUARDAR")
{
$ls_tipo=$_POST["rb_provbene"];
$ls_provbene=$_POST["txtprovbene"];
if($ls_tipo=='P')
{
$ls_codpro=$ls_provbene;
$ls_cedbene='----------';
}
else
{
$ls_cedbene=$ls_provbene;
$ls_codpro='----------';
}
$ls_nomproben=$_POST["txtdesproben"];
if (array_key_exists("chkserext",$_POST))
{
$li_estserext = $_POST["chkserext"];
}
else
{
$li_estserext = '0';
}
$lb_valido=$in_classmovbco->uf_guardar_automatico($ls_codban_tesoreria,$ls_ctaban_tesoreria,$ls_docmov,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_nomproben,$ldec_montomov,$ldec_monobjret,$ldec_montoret,'',$ls_estmov,0,0,'M','SCBMOV','',$ls_estdoc,$ls_tipo,$ls_tipdocressig,$ls_numdocressig,$ls_fecordpagsig,$ls_tipreg,$ls_codfuefin,$ls_origen,$ls_forpagsig,$ls_medpagsig,$ls_modalidad,$ls_unidad,$ls_codbansig,$ls_codestpro1,$ls_codban,$ls_denban,$ls_cuenta_banco,$ls_codbanaut,$ls_nombanaut,$ls_ctabanaut,$ls_rifaut,$ls_nombreaut,$ls_nrocontrol,$li_estserext);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
$ls_estdoc='C';
$io_msg->message("Movimiento Registrado !!!");
}
else
{
$in_classmovbco->io_sql->rollback();
$io_msg->message($in_classmovbco->is_msg_error);
}
uf_cargar_dt();
}
if($ls_operacion == "ELIMINAR")
{
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_all_movimiento($ls_docmov,$ls_codban_tesoreria,$ls_ctaban_tesoreria,$ls_mov_operacion,$ls_estmov);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$io_msg->message($in_classmovbco->is_msg_error);
$ls_operacion=="NUEVO";
uf_nuevo($ls_config_ordpag);
}
if($ls_operacion=="DELETESPG")
{
$li_row_delete = $_POST["delete_spg"];
$ls_cuenta_spg = $_POST["txtcuenta".$li_row_delete];
$ls_programatica = $_POST["txtprogramatico".$li_row_delete];
$ls_estcla = trim($_POST["hidestcla".$li_row_delete]);
$ls_codestpro1 = substr($ls_programatica,0,$li_loncodestpro1);
$ls_codestpro2 = substr($ls_programatica,$li_loncodestpro1+1,$li_loncodestpro2);
$ls_codestpro3 = substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+2,$li_loncodestpro3);
$ls_codestpro1 = trim(str_pad($ls_codestpro1,25,0,0));
$ls_codestpro2 = trim(str_pad($ls_codestpro2,25,0,0));
$ls_codestpro3 = trim(str_pad($ls_codestpro3,25,0,0));
if ($_SESSION["la_empresa"]["estmodest"]==2)
{
$ls_codestpro4 = substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+3,$li_loncodestpro4);
$ls_codestpro5 = substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+$li_loncodestpro4+4,$li_loncodestpro5);
$ls_codestpro4 = trim(str_pad($ls_codestpro4,25,0,0));
$ls_codestpro5 = trim(str_pad($ls_codestpro5,25,0,0));
}
else
{
$ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
}
$ls_programatica = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_numdoc=$_POST["txtdocumento".$li_row_delete];
$ls_operacion=$_POST["txtoperacion".$li_row_delete];
$ldec_montospg=$_POST["txtmonto".$li_row_delete];
$ldec_montospg=str_replace(".","",$ldec_montospg);
$ldec_montospg=str_replace(",",".",$ldec_montospg);
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_spg($ls_docmov,$ls_codban_tesoreria,$ls_ctaban_tesoreria,$ls_mov_operacion,$ls_estmov,$ls_numdoc,$ls_cuenta_spg,$ls_operacion,$ls_programatica,$ldec_montospg,$ls_estcla);
$io_msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
uf_cargar_dt();
}
if($ls_operacion=="DELETESCG")
{
$li_row_delete=$_POST["delete_scg"];
$ls_codded=$_POST["txtcodded".$li_row_delete];
$ls_cuentascg=$_POST["txtcontable".$li_row_delete];
$ls_debhab=$_POST["txtdebhab".$li_row_delete];
$ls_numdoc=$_POST["txtdocscg".$li_row_delete];
$ldec_montoscg=$_POST["txtmontocont".$li_row_delete];
$ldec_montoscg=str_replace(".","",$ldec_montoscg);
$ldec_montoscg=str_replace(",",".",$ldec_montoscg);
$arr_movbco["codban"]=$ls_codban_tesoreria;
$arr_movbco["ctaban"]=$ls_ctaban_tesoreria;
$arr_movbco["mov_document"]=$ls_docmov;
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"]=$ls_mov_operacion;
$arr_movbco["fecha"]=$ld_fecha;
if($ls_tipo=="P")
{
$arr_movbco["codpro"] =$ls_provbene;
$arr_movbco["cedbene"]="----------";
}
else
{
$arr_movbco["cedbene"]=$ls_provbene;
$arr_movbco["codpro"] ="----------";
}
$arr_movbco["monto_mov"]=$ldec_montomov;
$arr_movbco["objret"] =$ldec_monobjret;
$arr_movbco["estmov"]=$ls_estmov;
$arr_movbco["retenido"] =$ldec_montoret;
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_scg($ls_docmov,$ls_codban_tesoreria,$ls_ctaban_tesoreria,$ls_mov_operacion,$ls_estmov,$ls_numdoc,$ls_cuentascg,$ls_debhab,$ls_codded,$ldec_montoscg,'SCG');
$io_msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
if($ls_codded!="00000")
{
$ls_operacioncon="H";
$ldec_monto=$ldec_montoscg;
$lb_valido=$in_classmovbco->uf_update_montodelete($arr_movbco,$ls_cuenta_scg,'SCBMOV',$ls_desmov,$ls_docmov,$ls_operacioncon,$ldec_monto,$ldec_monobjret,'00000');
$ldec_montoret=$ldec_montoret-$ldec_monto;
}
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
uf_cargar_dt();
}
if($ls_operacion == "NUEVO")
{
$ls_operacion= "" ;
uf_nuevo($ls_config_ordpag);
$ldec_disponible="";
$ls_tipdocressig="";
$ls_fecordpagsig="";
$ls_numdocressig="";
$ls_codbansig="";
$ls_forpagsig="";
$ls_codfuefin="";
$ls_denfuefin="";
$ls_forpagsig="";
$ls_medpagsig="";
$ls_unidad="";
$ls_denuniadm="";
$ls_nrocontrol="";
$ls_resuac="";
$ls_estuac="";
$ls_codestpro1="";
$ls_codestpro2="";
$ls_codestpro3="";
$ls_proyecto="";
$ls_codban="";
$ls_estdoc="N";
$ls_ctaban="";
$ls_cuenta_scg="";
}
if($ls_tipo=='-')
{
$rb_n="checked";
$rb_p="";
$rb_b="";
}
if($ls_tipo=='P')
{
$rb_n="";
$rb_p="checked";
$rb_b="";
}
if($ls_tipo=='B')
{
$rb_n="";
$rb_p="";
$rb_b="checked";
}
if($ls_modalidad=='PP')
{
$rb_pp="selcted";
$rb_oa="";
$rb_cm="";
}
if($ls_modalidad=='OA')
{
$rb_pp="";
$rb_oa="selected";
$rb_cm="";
}
if($ls_modalidad=='CM')
{
$rb_pp="";
$rb_oa="";
$rb_cm="selected";
}
switch($ls_forpagsig){
case 'A':
$ls_select_a="selected";
$ls_select_d="";
break;
case 'D':
$ls_select_a="";
$ls_select_d="selected";
break;
}
?>