uf_obtenervalor("proceso","");
// Número de comprobante
$ls_comprobante=$io_funciones_scf->uf_obtenervalor("comprobante","");
// Fecha del comprobante
$ld_fecha=$io_funciones_scf->uf_obtenervalor("fecha","");
// Procede del Comprobante
$ls_procede=$io_funciones_scf->uf_obtenervalor("procede","");
// Código de Banco
$ls_codban=$io_funciones_scf->uf_obtenervalor("codban","---");
// Cuenta de banco
$ls_ctaban=$io_funciones_scf->uf_obtenervalor("ctaban","-------------------------");
// Tipo Destino
$ls_tipdes=$io_funciones_scf->uf_obtenervalor("tipdes","");
// Cédula del beneficiario
$ls_cedbene=$io_funciones_scf->uf_obtenervalor("cedbene","");
// Código del proveedor
$ls_codpro=$io_funciones_scf->uf_obtenervalor("codpro","");
// total de filas de cuentas contables
$li_totrowscg=$io_funciones_scf->uf_obtenervalor("totrowscg",1);
// total de filas de cuentas de cargos
switch($ls_proceso)
{
case "NUEVO":
$lb_valido=$io_comprobante->io_fecha->uf_valida_fecha_periodo($ld_fecha,$io_comprobante->ls_codemp);
if(!$lb_valido)
{
print "ERROR->".$io_comprobante->io_fecha->is_msg_error;
}
if($lb_valido)
{
$lb_existe=$io_comprobante->io_intscg->uf_obtener_comprobante($io_comprobante->ls_codemp,$ls_procede,
$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban,
$ls_tipdes,$ls_cedbene,$ls_codpro);
if($lb_existe)
{
print "ERROR->El comprobante ya existe.";
$lb_valido=false;
}
}
if($lb_valido)
{
uf_load_grid_contable($li_totrowscg);
uf_print_cuentas_contable_ds();
}
break;
case "PROCESAR":
uf_load_grid_contable($li_totrowscg);
uf_print_cuentas_contable_ds();
break;
case "LOADCOMPROBANTE":
$lb_valido=$io_comprobante->uf_load_cuentas_contables($ls_procede,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban,
&$io_ds_scgcuentas);
/*$lb_valido=$io_comprobante->uf_obtener_cuentas_contables($ls_procede,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban,&$rs_cuentas);*/
if($lb_valido)
{
uf_print_cuentas_contable_ds();
}
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_grid_contable($ai_totrowscg)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_grid_contable
// Access: private
// Arguments: ai_totrowscg // Total de filas de contabilidad
// Description: Método que carga el datastored de las cuentas contables
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 27/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_scf, $io_ds_scgcuentas;
// Recorrido del Grid de Cuentas Contables
for($li_fila=1;$li_fila<$ai_totrowscg;$li_fila++)
{
$ls_cuenta=trim($io_funciones_scf->uf_obtenervalor("txtcuenta".$li_fila,""));
$ls_descripcion=trim($io_funciones_scf->uf_obtenervalor("txtdescripcion".$li_fila,""));
$ls_procede=trim($io_funciones_scf->uf_obtenervalor("txtprocede".$li_fila,"SCGCMP"));
$ls_documento=trim($io_funciones_scf->uf_obtenervalor("txtdocumento".$li_fila,""));
$li_mondeb=trim($io_funciones_scf->uf_obtenervalor("txtmondeb".$li_fila,""));
$li_monhab=trim($io_funciones_scf->uf_obtenervalor("txtmonhab".$li_fila,""));
$ls_debhab=trim($io_funciones_scf->uf_obtenervalor("txtdebhab".$li_fila,""));
$li_mondeb=str_replace(".","",$li_mondeb);
$li_mondeb=str_replace(",",".",$li_mondeb);
$li_monhab=str_replace(".","",$li_monhab);
$li_monhab=str_replace(",",".",$li_monhab);
$io_ds_scgcuentas->insertRow("cuenta",$ls_cuenta);
$io_ds_scgcuentas->insertRow("descripcion",$ls_descripcion);
$io_ds_scgcuentas->insertRow("procede",$ls_procede);
$io_ds_scgcuentas->insertRow("documento",$ls_documento);
$io_ds_scgcuentas->insertRow("mondeb",$li_mondeb);
$io_ds_scgcuentas->insertRow("monhab",$li_monhab);
$io_ds_scgcuentas->insertRow("debhab",$ls_debhab);
}
}// end function uf_load_grid_contable
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_cuentas_contable()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas_contable
// Access: private
// Arguments:
// Description: Método que imprime el grid de las cuentas de contabilidad
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 27/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_scf, $io_ds_scgcuentas, $rs_cuentas;
global $io_comprobante,$ls_comprobante,$ld_fecha,$ls_procede,$ls_codban,$ls_ctaban;
if($rs_cuentas == NULL)
{
$lb_valido=$io_comprobante->uf_obtener_cuentas_contables($ls_procede,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban,&$rs_cuentas);
}
// Titulos el Grid
$lo_title[1]="Cuenta";
$lo_title[2]="Descripción";
$lo_title[3]="Procede";
$lo_title[4]="Documento";
$lo_title[5]="Debe";
$lo_title[6]="Haber";
$lo_title[7]=" ";
$li_totaldebe=0;
$li_totalhaber=0;
$li_fila = 1;
while(!$rs_cuentas->EOF)
{
$ls_cuenta=$rs_cuentas->fields["cuenta"];
$ls_descripcion=utf8_encode($rs_cuentas->fields["descripcion"]);
$ls_procede=$rs_cuentas->fields["procede"];
$ls_documento=$rs_cuentas->fields["documento"];
$ls_debhab=$rs_cuentas->fields["debhab"];
$ls_formato="";
if($ls_debhab=="D")
{
$ls_formato="sin-borde";
$li_mondeb=number_format($rs_cuentas->fields["mondeb"],2,",",".");
$li_monhab="";
$li_totaldebe=$li_totaldebe+$rs_cuentas->fields["mondeb"];
}
else
{
$ls_formato="celdas-azules";
$li_mondeb="";
$li_monhab=number_format($rs_cuentas->fields["monhab"],2,",",".");
$li_totalhaber=$li_totalhaber+$rs_cuentas->fields["monhab"];
}
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="
".
"";
$li_fila++;
$rs_cuentas->MoveNext();
}
$li_diferencia=$li_totaldebe-$li_totalhaber;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="".
"";
print " ";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,720,"Cuentas Contables","gridcuentas");
print "";
unset($io_ds_scgcuentas);
unset($rs_cuentas);
}// end function uf_print_cuentas_contable
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_cuentas_contable_ds()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas_contable_ds
// Access: private
// Arguments:
// Description: Método que imprime el grid de las cuentas de contabilidad
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 27/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_scf, $io_ds_scgcuentas;
// Titulos el Grid
$lo_title[1]="Cuenta";
$lo_title[2]="Descripción";
$lo_title[3]="Procede";
$lo_title[4]="Documento";
$lo_title[5]="Debe";
$lo_title[6]="Haber";
$lo_title[7]=" ";
$li_totaldebe=0;
$li_totalhaber=0;
//$io_ds_scgcuentas->group_by(array('0'=>'cuenta'),array('0'=>'mondeb','1'=>'monhab'),'mondeb');
$li_totrow=$io_ds_scgcuentas->getRowCount('cuenta');
for($li_fila=1;$li_fila<=$li_totrow;$li_fila++)
{
$ls_cuenta=$io_ds_scgcuentas->getValue("cuenta",$li_fila);
$ls_descripcion=utf8_encode($io_ds_scgcuentas->getValue("descripcion",$li_fila));
$ls_procede=$io_ds_scgcuentas->getValue("procede",$li_fila);
$ls_documento=$io_ds_scgcuentas->getValue("documento",$li_fila);
$ls_debhab=$io_ds_scgcuentas->getValue("debhab",$li_fila);
$ls_formato="";
if($ls_debhab=="D")
{
$ls_formato="sin-borde";
$li_mondeb=number_format($io_ds_scgcuentas->getValue("mondeb",$li_fila),2,",",".");
$li_monhab="";
$li_totaldebe=$li_totaldebe+$io_ds_scgcuentas->getValue("mondeb",$li_fila);
}
else
{
$ls_formato="celdas-azules";
$li_mondeb="";
$li_monhab=number_format($io_ds_scgcuentas->getValue("monhab",$li_fila),2,",",".");
$li_totalhaber=$li_totalhaber+$io_ds_scgcuentas->getValue("monhab",$li_fila);
}
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="".
"";
}
$li_diferencia=$li_totaldebe-$li_totalhaber;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="".
"";
print " ";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,720,"Cuentas Contables","gridcuentas");
print "";
unset($io_ds_scgcuentas);
}// end function uf_print_cuentas_contable
?>
Agregar Cuenta Contable