|
|||||||||
|
|
|
|
|
|
||||
|
|
|
|
||||||
";
global $li_temp_spg;
$li_temp_spg=1;
$objectSpg[$li_temp_spg][1] = "";
$objectSpg[$li_temp_spg][2] = "";
$objectSpg[$li_temp_spg][3] = "";
$objectSpg[$li_temp_spg][4] = "";
$objectSpg[$li_temp_spg][5] = "";
$objectSpg[$li_temp_spg][6] = "";
$objectSpg[$li_temp_spg][7] = "";
$objectSpg[$li_temp_spg][8] = "";
global $li_temp_spi;
$li_temp_spi=1;
$objectSpi[$li_temp_spi][1] = "";
$objectSpi[$li_temp_spi][2] = "";
$objectSpi[$li_temp_spi][3] = "";
$objectSpi[$li_temp_spi][4] = "";
$objectSpi[$li_temp_spi][5] = "";
$objectSpi[$li_temp_spi][6] = "";
$objectSpi[$li_temp_spi][7] = "";
global $li_temp_ret;
$li_temp_ret=1;
$objectRet[$li_temp_ret][1] = "";
$objectRet[$li_temp_ret][2] = "";
$objectRet[$li_temp_ret][3] = "";
$objectRet[$li_temp_ret][4] = "";
$objectRet[$li_temp_ret][5] = "";
$objectRet[$li_temp_ret][6] = "";
$objectRet[$li_temp_ret][7] = "";
$objectRet[$li_temp_ret][8] = "";
}
$titleSpi[1]="Cuenta"; $titleSpi[2]="Descripción"; $titleSpi[3]="Procede"; $titleSpi[4]="Documento"; $titleSpi[5]="Operación"; $titleSpi[6]="Monto"; $titleSpi[7]="Edición";
$title2[1]="Cuenta"; $title2[2]="Documento"; $title2[3]="Descripción"; $title2[4]="Procede"; $title2[5]="Debe/Haber"; $title2[6]="Monto"; $title2[7]="Edición";
$title[1]="Cuenta"; $title[2]="Programatico"; $title[3]="Documento"; $title[4]="Descripción"; $title[5]="Procede"; $title[6]="Operación"; $title[7]="Monto"; $title[8]="Edición";
$titleRet[1]="Deducción"; $titleRet[2]="Cuenta"; $titleRet[3]="Descripción"; $titleRet[4]="Documento"; $titleRet[5]="Procede"; $titleRet[6]="Objeto a Retencion"; $titleRet[7]="Retenido"; $titleRet[8]="Edición";
$gridSpi="grid_Spi";
$grid2="gridscg";
$grid1="grid_SPG";
$gridRet="grid_Ret";
if($ls_operacion == "NUEVO")
{
$ls_operacion= "" ;
uf_nuevo();
}
if($ls_operacion == "GUARDAR")
{
$ldec_salsegban = $_POST["txtsalsegbco"];
$ldec_salsegban = str_replace(".","",$ldec_salsegban);
$ldec_salsegban = str_replace(",",".",$ldec_salsegban);
$ldec_salseglib = $_POST["txtsalseglib"];
$ldec_salseglib = str_replace(".","",$ldec_salseglib);
$ldec_salseglib = str_replace(",",".",$ldec_salseglib);
$aa_conciliacion["mesano"] = str_replace("/","",$ls_mesano);
$aa_conciliacion["salseglib"] = $ldec_salseglib;
$aa_conciliacion["salsegban"] = $ldec_salsegban;
$aa_conciliacion["conciliacion"] = $ldec_montomov;
$aa_conciliacion["estcon"] = 0;
if($ls_tip_mov=='B')
{
$arr_errorbco["codban"]=$ls_codban;
$arr_errorbco["ctaban"]=$ls_cuenta_banco;
$arr_errorbco["numdoc"]=$ls_docmov;
$arr_errorbco["codope"]=$ls_mov_operacion;
if($lb_nocontab=="checked")
{
$ls_estmov="L";
$arr_errorbco["estmov"]=$ls_estmov;
}
else
{
$ls_estmov="N";
$arr_errorbco["estmov"]=$ls_estmov;
}
if(($ls_operacion=="CH")||($ls_operacion=="ND"))
{
$li_cobrapaga=$_POST["ddlb_spg"];
}
elseif(($ls_operacion=="DP")||($ls_operacion=="NC"))
{
$li_cobrapaga=$_POST["ddlb_spi"];
}
else
{
$li_cobrapaga=0;
}
if($ls_operacion=="CH")
{
$ls_chevau=$_POST["txtchevau"];
if($ls_chevau=="")
{
$lb_valido=false;
}
else
{
$lb_valido=true;
}
}
else
{
$ls_chevau="";
$lb_valido=true;
}
if($ls_operacion=="NC")
{
if(array_key_exists("chkinteres",$_POST))
{
$li_estint=1;
}
else
{
$li_estint=0;
}
}
else
{
$li_estint=0;
}
$arr_errorbco["fecmes"]=$ls_mesano;
$arr_errorbco["fecmov"]=$ld_fecha;
$arr_errorbco["conmov"]=$ls_desmov;
$arr_errorbco["monto"] =$ldec_montomov;
$arr_errorbco["monret"]=$ldec_montoret;
$arr_errorbco["chevau"]=$ls_chevau;
$arr_errorbco["estbpd"]=$ls_tip_mov;
$arr_errorbco["procede_doc"]='SCBMOV';
$arr_errorbco["estmovint"]=$li_estint;
$arr_errorbco["esterrcon"]='C';
$arr_errorbco["cobrapaga"]=$li_cobrapaga;
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_procesar_errorbanco($arr_errorbco);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$msg->message($in_classmovbco->is_msg_error);
}
if ($ls_tip_mov=='L')
{
$ls_provbene=$_POST["txtprovbene"];
$ls_desproben=$_POST["txtdesproben"];
$ls_tipo=$_POST["rb_provbene"];
switch ($ls_tipo){
case 'P':
$ls_codpro=$ls_provbene;
$ls_cedbene="----------";
break;
case 'B':
$ls_codpro="----------";
$ls_cedbene=$ls_provbene;
break;
default:
$ls_codpro="----------";
$ls_cedbene="----------";
}
$ls_estdoc='C';
$ls_codfuefin='--';
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_guardar_automatico($ls_codban,$ls_cuenta_banco,$ls_docmov,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_desproben,$ldec_montomov,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,$li_estint,0,$ls_estbpd,'SCBMOV',$ls_estreglib,$ls_estdoc,$ls_tipo,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon);
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
if($lb_valido)
{
$lb_valido = $in_classconciliacion->uf_procesar_conciliacion($aa_conciliacion,$ls_empresa,$ls_codban,$ls_cuenta_banco);
if($lb_valido)
{
$lb_valido = $in_classconciliacion->uf_update_movimientos($ls_empresa,$ls_codban,$ls_cuenta_banco,$ls_docmov,$ls_mov_operacion,1,$ld_fecdb);
}
}
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$msg->message($in_classmovbco->is_msg_error);
uf_cargar_dt();
}
else
{
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,$ls_cuenta_banco,$ls_mov_operacion);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$msg->message($in_classmovbco->is_msg_error);
uf_nuevo();
}
if($ls_operacion=="DELETESCG")
{
$li_row_delete=$_POST["delete_scg"];
$ls_codded='00000';
$ls_cuenta_scg=$_POST["txtcontable".$li_row_delete];
$ls_debhab=$_POST["txtdebhab".$li_row_delete];
$ls_numdoc=$_POST["txtdocscg".$li_row_delete];
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_scg($ls_docmov,$ls_codban,$ls_cuenta_banco,$ls_mov_operacion,$ls_numdoc,$ls_cuenta_scg,$ls_debhab,$ls_codded);
$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=="DELETESPG")
{
$li_row_delete=$_POST["delete_spg"];
$ls_cuenta_spg=$_POST["txtcuenta".$li_row_delete];
$ls_programatica=$_POST["txtprogramatico".$li_row_delete];
$ls_numdoc=$_POST["txtdocumento".$li_row_delete];
$ls_operacion=$_POST["txtoperacion".$li_row_delete];
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_spg($ls_docmov,$ls_codban,$ls_cuenta_banco,$ls_mov_operacion,$ls_numdoc,$ls_cuenta_spg,$ls_operacion,$ls_programatica);
$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=="DELETERET")
{
$li_row_delete=$_POST["delete_ret"];
$ls_codded=$_POST["txtdeduccion".$li_row_delete];
$ls_cuenta=$_POST["txtcontable".$li_row_delete];
$ls_debhab=$_POST["txtdebhab".$li_row_delete];
$ls_numdoc=$_POST["txtdocscg".$li_row_delete];
$ldec_monto=$_POST["txtmontoret".$li_row_delete];
$arr_movbco["codban"]=$ls_codban;
$arr_movbco["ctaban"]=$ls_cuenta_banco;
$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["retenido"] =$ldec_montoret;
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_scg($ls_docmov,$ls_codban,$ls_cuenta_banco,$ls_mov_operacion,$ls_numdoc,$ls_cuenta,$ls_debhab,$ls_codded);
$msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
if(($ls_mov_operacion=="ND")||($ls_mov_operacion=="RE")||($ls_mov_operacion=="CH"))
{
$ls_operacioncon="H";
}
else
{
$ls_operacioncon="D";
}
$ldec_monto=str_replace(".","",$ldec_monto);
$ldec_monto=str_replace(",",".",$ldec_monto);
$lb_valido=$in_classmovbco->uf_update_montodelete($arr_movbco,$ls_cuenta_scg,'SCBMOV',$ls_desmov,$ls_docmov,$ls_operacioncon,$ldec_monto,$ldec_monobjret,'00000');
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
uf_cargar_dt();
}
if($ls_operacion=="ELIMINAR_ERROR_BANCO")
{
$ls_mes=substr($ls_mesano,0,2);
$ls_ano=substr($ls_mesano,3,4);
$ls_fecmesano=$ls_mes.$ls_ano;
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_eliminar_error_banco($ls_docmov,$ls_cuenta_banco,$ls_codban,$ls_fecmesano);
if($lb_valido)
{
$msg->message("El Error en Banco fue eliminado");
$in_classmovbco->io_sql->commit();
}
else
{
$msg->message("El Error en Banco no pudo ser eliminado");
$in_classmovbco->io_sql->rollback();
}
uf_nuevo();
}
if($ls_operacion == "CAMBIO_OPERA")
{
uf_cargar_dt();
}
if($ls_mov_operacion=='ND')
{
$lb_nd="selected";
$lb_nc="";
$lb_dp="";
$lb_re="";
$lb_ch="";
}
if($ls_mov_operacion=='NC')
{
$lb_nd="";
$lb_nc="selected";
$lb_dp="";
$lb_re="";
$lb_ch="";
if($li_estint==1)
{
$lb_checked="checked";
}
else
{
$lb_checked="";
}
}
if($ls_mov_operacion=='DP')
{
$lb_nd="";
$lb_nc="";
$lb_dp="selected";
$lb_re="";
$lb_ch="";
}
if($ls_mov_operacion=='RE')
{
$lb_nd="";
$lb_nc="";
$lb_dp="";
$lb_re="selected";
$lb_ch="";
}
if($ls_mov_operacion=='CH')
{
$lb_nd="";
$lb_nc="";
$lb_dp="";
$lb_re="";
$lb_ch="selected";
$ls_chevau=$in_classmovbco->uf_generar_voucher($ls_empresa);
}
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";
}
?>