| Caja y Banco | |
|
|||||||||||||||
|
|||||||||||||||
|
|
|
|
|
|
|
|||||||||
";
}// fin de nuevo
$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";
$grid2="gridscg";
if($ls_operacion == "NUEVO")
{
$ls_estmanant="";
$in_classmovbco->uf_validar_pago_anticipo($ls_estmanant);
if ($ls_estmanant==0)
{
print("");
}
$ls_operacion= "" ;
uf_nuevo();
$ls_numcarord="";
$ls_docmov="";
$ls_chevau=$in_classmovbco->uf_generar_voucher($ls_empresa);
}
if($ls_operacion == "GUARDAR")
{
$ls_provbene=$_POST["txtprovbene"];
$ls_desproben=$_POST["txtdesproben"];
$ls_operaban="CHEQUE";
$ls_afecta="CONTABLE";
if ($ls_operaban=="CHEQUE")
{
$ls_mov_operacion="CH";
}
$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="----------";
}
if(($ls_codconmov=="---")||(!empty($ls_codconmov)))
{
if(($ls_codigoconcepto!="---")||(!empty($ls_codigoconcepto)))
{
$ls_codconmov=$ls_codigoconcepto;
}
}
$in_classmovbco->io_sql->begin_transaction();
$ls_docant='---------------';
$ls_monamo=0;
$lb_valido=$in_classmovbco->uf_guardar_automatico2($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,"$ls_opepre",$ls_estbpd,'SCBMOV',' ',$ls_estdoc,$ls_tipo,$ls_codfuefin,'1',$ls_docant,$ls_monamo);// se guarda el movimiento marcado como anticipo
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$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,$ls_cuenta_banco,$ls_mov_operacion,$ls_estmov);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
$msg->message($in_classmovbco->is_msg_error);
$ls_docmov="";
uf_nuevo();
}
if($ls_operacion=="DELETESCG")
{
$ls_operaban="CHEQUE";
if(($ls_codconmov=="---")||(!empty($ls_codconmov)))
{
if(($ls_codigoconcepto!="---")||(!empty($ls_codigoconcepto)))
{
$ls_codconmov=$ls_codigoconcepto;
}
}
$li_row_delete = $_POST["delete_scg"];
$ls_codded = trim($_POST["txtcodded".$li_row_delete]);
$ls_cuentascg = trim($_POST["txtcontable".$li_row_delete]);
$ls_debhab = trim($_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;
$arr_movbco["ctaban"]=$ls_cuenta_banco;
$arr_movbco["mov_document"]=$ls_docmov;
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
if ($ls_operaban=="CHEQUE")
{
$ls_mov_operacion="CH";
}
$arr_movbco["codope"]=$ls_mov_operacion;
$arr_movbco["fecha"]=$ld_fecha;
$arr_movbco["estmov"]=$ls_estmov;
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_estmov,$ls_numdoc,$ls_cuentascg,$ls_debhab,$ls_codded,$ldec_montoscg,'SCG');
if (($lb_valido)&&($ls_debhab=="D"))
{
$lb_valido=$in_classmovbco->uf_delete_anticipo($ls_docmov,$ls_codban,$ls_cuenta_banco,$ls_mov_operacion,
$ls_estmov,$ls_cuentascg);
}
if($ls_codded!="00000")
{
if($ls_mov_operacion=="CH")
{
$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_montoscg,$ldec_monobjret,'00000');
$ldec_montoret=$ldec_montoret-$ldec_monto;
}
$msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
uf_cargar_dt();
}// fin del if
if($ls_operacion == "VERIFICAR_VAUCHER")
{
$ls_chevaux=$_POST["txtchevau"];
$ls_operaban=$_POST["cmboperacion"];
$lb_existe=$in_classmovbco->uf_select_voucher($ls_chevaux);
if($lb_existe)
{
$msg->message("Nº de Voucher ya existe, favor indicar otro");
uf_cargar_dt();
}
else
{
uf_cargar_dt();
$ls_chevau=$ls_chevaux;
}
}
if($ls_operaban=='CH')
{
$lb_nd="";
$lb_nc="";
$lb_dp="";
$lb_re="";
$lb_ch="selected";
}
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_estdoc=='C')
{
$ls_readOnly_doc="readonly";
$ls_readOnly_ban="readonly";
$ls_readOnly_cta="readonly";
$ls_readOnly_ctascg="readonly";
$ls_readOnly_ope="onClick='return false'";
}
else
{
$ls_readOnly_doc="";
$ls_readOnly_ban="";
$ls_readOnly_cta="";
$ls_readOnly_ctascg="";
$ls_readOnly_ope="";
}
?>