| Caja y Banco | |
|
||||||||||||||
|
||||||||||||||
|
|
|
|
|
||||||||||
";
}
//Declaración de parametros del grid.
$titleProg[1]="Nº Operación";
$titleProg[2]="Factura";
$titleProg[3]="Fecha";
$titleProg[4]="Total sin IVA";
$titleProg[5]="Total con IVA";
$titleProg[6]="Base Imponible";
$titleProg[7]="Porcentaje Impuesto";
$titleProg[8]="Total Impuesto";
$titleProg[9]="I.M. Retenido";
$titleProg[10]="Nº Documento";
$titleProg[11]="Edición";
$gridProg="grid_prog";
if($ls_operacion=="ELIMINAR")
{
$ls_per=$ls_agno.$ls_mes;
$lb_ultimo=$io_cmpret->uf_determinar_ultimo($ls_per,$ls_numcom,'0000000005');//Chequeando si el comprobante es el ultimo
if($lb_ultimo===1)
{
$io_cmpret->io_sql->begin_transaction();
$lb_valido=$io_cmpret->uf_delete_cmp_ret($ls_codret,$ls_numcom);
if($lb_valido)
{
$io_cmpret->io_sql->commit();
$io_msg->message("Comprobante Eliminado !!!");
$ls_numcom = "";
$ls_codret = "";
$ls_codsujret = "";
$ls_nomsujret = "";
$ls_dirsujret = "";
$ls_rifsujret = "";
}
else
{
$io_cmpret->io_sql->rollback();
$io_msg->message("".$io_cmpret->is_msg_error);
}
$ls_operacion="CARGAR_DT";
}
else
{
if($lb_ultimo===0)
{
$lb_valido=$io_cmpret->uf_anular_comprobante($ls_codret,$ls_numcom);
if($lb_valido)
{
$io_msg->message("El comprobante de retención no puede ser eliminado, en su lugar fue anulado");
}
else
{
$io_msg->message("Ocurrio un error en la anulación");
}
}
else
{
$io_msg->message("Ocurrio un error en el select");
}
$ls_operacion="CARGAR_DT";
}
}
if ($ls_operacion=="GUARDAR")
{
$lb_valido=$io_cmpret->uf_update_cmp_ret($ls_codret,$ls_numcom,$ls_codsujret,$ls_nomsujret,$ls_rifsujret,$ls_dirsujret);
if ($lb_valido)
{
$io_msg->message("El Comprobante de Retención 1x1000 fue actualizado");
}
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="DELETE_DT")
{
$ls_numope= $_POST["numope"];
$ls_numfac= $_POST["numfac"];
$io_cmpret->io_sql->begin_transaction();
$lb_valido=$io_cmpret->uf_delete_dt_cmp_ret($ls_codret,$ls_numcom,$ls_numope,$ls_numfac);
if($lb_valido)
{
$io_cmpret->io_sql->commit();
$io_msg->message("Registro Eliminado !!!");
}
else
{
$io_cmpret->io_sql->rollback();
$io_msg->message("".$io_cmpret->is_msg_error);
}
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="CARGAR_DT")
{
$io_cmpret->uf_select_cmp_ret($ls_numcom,$ls_codret,$object,$li_total);
}
?>