public List <XCONTA_Rpt017_Info> consultar_data(int IdEmpresa, List <ct_Periodo_Info> listPeriodo, string IdCentroCosto, int IdNivel_a_mostrar
, int IdPunto_cargo_grupo
, int IdPunto_cargo
, bool Mostrar_reg_Cero
, bool MostrarCC, string IdGrupoCble, string IdUsuario, ref String MensajeError)
{
try
{
ct_Plancta_Data Plan_cta_data = new ct_Plancta_Data();
List <ct_Plancta_Info> list_plan_cta = new List <ct_Plancta_Info>();
int contador = 1;
int IdPeriodo_max = 0;
tb_Mes_Data BusMes = new tb_Mes_Data();
List <tb_Mes_info> listMeses = new List <tb_Mes_info>();
listMeses = BusMes.Get_List_Mes();
string nMes = "";
string Nom_Periodo = "";
IdPeriodo_max = listPeriodo.Max(q => q.IdPeriodo);
foreach (var itemPeriodo in listPeriodo)
{
list_data_Periodo_data = Get_data_Mayorizado_x_fecha(itemPeriodo.IdEmpresa, itemPeriodo.pe_FechaIni, itemPeriodo.pe_FechaFin, IdCentroCosto, IdNivel_a_mostrar, IdPunto_cargo_grupo, IdPunto_cargo, Mostrar_reg_Cero, MostrarCC, IdGrupoCble, IdUsuario, ref MensajeError);
nMes = listMeses.FirstOrDefault(v => v.idMes == itemPeriodo.pe_mes).nemonico;
Nom_Periodo = itemPeriodo.IdanioFiscal.ToString() + "-" + nMes;
switch (contador)
{
case 1: list_data_Periodo_1 = list_data_Periodo_data;
IdPeriodo_1 = itemPeriodo.IdPeriodo;
nom_periodo_1 = Nom_Periodo;
break;
case 2: list_data_Periodo_2 = list_data_Periodo_data;
IdPeriodo_2 = itemPeriodo.IdPeriodo;
nom_periodo_2 = Nom_Periodo;
break;
case 3: list_data_Periodo_3 = list_data_Periodo_data;
IdPeriodo_3 = itemPeriodo.IdPeriodo;
nom_periodo_3 = Nom_Periodo;
break;
case 4: list_data_Periodo_4 = list_data_Periodo_data;
IdPeriodo_4 = itemPeriodo.IdPeriodo;
nom_periodo_4 = Nom_Periodo;
break;
case 5: list_data_Periodo_5 = list_data_Periodo_data;
IdPeriodo_5 = itemPeriodo.IdPeriodo;
nom_periodo_5 = Nom_Periodo;
break;
case 6: list_data_Periodo_6 = list_data_Periodo_data;
IdPeriodo_6 = itemPeriodo.IdPeriodo;
nom_periodo_6 = Nom_Periodo;
break;
case 7: list_data_Periodo_7 = list_data_Periodo_data;
IdPeriodo_7 = itemPeriodo.IdPeriodo;
nom_periodo_7 = Nom_Periodo;
break;
case 8: list_data_Periodo_8 = list_data_Periodo_data;
IdPeriodo_8 = itemPeriodo.IdPeriodo;
nom_periodo_8 = Nom_Periodo;
break;
case 9: list_data_Periodo_9 = list_data_Periodo_data;
IdPeriodo_9 = itemPeriodo.IdPeriodo;
nom_periodo_9 = Nom_Periodo;
break;
case 10: list_data_Periodo_10 = list_data_Periodo_data;
IdPeriodo_10 = itemPeriodo.IdPeriodo;
nom_periodo_10 = Nom_Periodo;
break;
case 11: list_data_Periodo_11 = list_data_Periodo_data;
IdPeriodo_11 = itemPeriodo.IdPeriodo;
nom_periodo_11 = Nom_Periodo;
break;
case 12: list_data_Periodo_12 = list_data_Periodo_data;
IdPeriodo_12 = itemPeriodo.IdPeriodo;
nom_periodo_12 = Nom_Periodo;
break;
}
if (list_data_Periodo_data.Count != 0)
{
Periodos.Add(Nom_Periodo);
contador++;
}
}
List <XCONTA_Rpt002_Info> list_data_Periodo_Actual = new List <XCONTA_Rpt002_Info>();
ct_Periodo_Data Periodo_data = new ct_Periodo_Data();
ct_Periodo_Info Periodo_Info_Actual = new ct_Periodo_Info();
Periodo_Info_Actual = Periodo_data.Get_Info_Periodo(IdEmpresa, IdPeriodo_max, ref MensajeError);
list_data_Periodo_Actual = Get_data_Mayorizado_x_fecha(Periodo_Info_Actual.IdEmpresa, Periodo_Info_Actual.pe_FechaIni, Periodo_Info_Actual.pe_FechaFin, IdCentroCosto, IdNivel_a_mostrar
, IdPunto_cargo_grupo, IdPunto_cargo, Mostrar_reg_Cero, MostrarCC, IdGrupoCble, IdUsuario, ref MensajeError);
foreach (var item in list_data_Periodo_Actual.Where(q => q.gc_estado_financiero == "ER").ToList())
{
ct_Plancta_Info _PlantaCtaInfo = new ct_Plancta_Info();
_PlantaCtaInfo.IdEmpresa = item.IdEmpresa;
_PlantaCtaInfo.IdCtaCble = item.IdCtaCble;
_PlantaCtaInfo.pc_Cuenta = item.nom_cuenta;
_PlantaCtaInfo.IdCtaCblePadre = (item.IdCtaCblePadre == null) ? "" : item.IdCtaCblePadre;
_PlantaCtaInfo.IdNivelCta = item.IdNivelCta;
_PlantaCtaInfo.pc_EsMovimiento = item.pc_EsMovimiento;
_PlantaCtaInfo.Nom_GrupoCble = item.gc_GrupoCble;
_PlantaCtaInfo.gc_estado_financiero = item.gc_estado_financiero;
_PlantaCtaInfo.OrderGrupoCble = item.OrderGrupoCble;
_PlantaCtaInfo.orden = item.order_grupo_mayor == null ? 0 : (int)item.order_grupo_mayor;
_PlantaCtaInfo.IdGrupo_Mayor = item.IdGrupo_Mayor;
_PlantaCtaInfo.nom_grupo_mayor = item.nom_grupo_mayor;
_PlantaCtaInfo.Nom_GrupoCble = item.GrupoCble;
list_plan_cta.Add(_PlantaCtaInfo);
}
//=====================================================
var ListaCtasCbles_x_cbtes_con_movi = from plancta in list_plan_cta
join Data_x_Periodo_1 in list_data_Periodo_1
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_1.IdEmpresa, Data_x_Periodo_1.IdCtaCble } into ps1
from sub_Data_x_Periodo_1 in ps1.DefaultIfEmpty()
join Data_x_Periodo_2 in list_data_Periodo_2
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_2.IdEmpresa, Data_x_Periodo_2.IdCtaCble } into ps2
from sub_Data_x_Periodo_2 in ps2.DefaultIfEmpty()
join Data_x_Periodo_3 in list_data_Periodo_3
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_3.IdEmpresa, Data_x_Periodo_3.IdCtaCble } into ps3
from sub_Data_x_Periodo_3 in ps3.DefaultIfEmpty()
join Data_x_Periodo_4 in list_data_Periodo_4
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_4.IdEmpresa, Data_x_Periodo_4.IdCtaCble } into ps4
from sub_Data_x_Periodo_4 in ps4.DefaultIfEmpty()
join Data_x_Periodo_5 in list_data_Periodo_5
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_5.IdEmpresa, Data_x_Periodo_5.IdCtaCble } into ps5
from sub_Data_x_Periodo_5 in ps5.DefaultIfEmpty()
join Data_x_Periodo_6 in list_data_Periodo_6
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_6.IdEmpresa, Data_x_Periodo_6.IdCtaCble } into ps6
from sub_Data_x_Periodo_6 in ps6.DefaultIfEmpty()
join Data_x_Periodo_7 in list_data_Periodo_7
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_7.IdEmpresa, Data_x_Periodo_7.IdCtaCble } into ps7
from sub_Data_x_Periodo_7 in ps7.DefaultIfEmpty()
join Data_x_Periodo_8 in list_data_Periodo_8
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_8.IdEmpresa, Data_x_Periodo_8.IdCtaCble } into ps8
from sub_Data_x_Periodo_8 in ps8.DefaultIfEmpty()
join Data_x_Periodo_9 in list_data_Periodo_9
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_9.IdEmpresa, Data_x_Periodo_9.IdCtaCble } into ps9
from sub_Data_x_Periodo_9 in ps9.DefaultIfEmpty()
join Data_x_Periodo_10 in list_data_Periodo_10
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_10.IdEmpresa, Data_x_Periodo_10.IdCtaCble } into ps10
from sub_Data_x_Periodo_10 in ps10.DefaultIfEmpty()
join Data_x_Periodo_11 in list_data_Periodo_11
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_11.IdEmpresa, Data_x_Periodo_11.IdCtaCble } into ps11
from sub_Data_x_Periodo_11 in ps11.DefaultIfEmpty()
join Data_x_Periodo_12 in list_data_Periodo_12
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { Data_x_Periodo_12.IdEmpresa, Data_x_Periodo_12.IdCtaCble } into ps12
from sub_Data_x_Periodo_12 in ps12.DefaultIfEmpty()
orderby plancta.IdCtaCble
select new
{
plancta.IdEmpresa,
plancta.IdCtaCble,
plancta.IdCtaCblePadre,
plancta.Nom_GrupoCble,
Saldo_Periodo_0_SI = (sub_Data_x_Periodo_1 == null ? 0 : sub_Data_x_Periodo_1.Saldo_Inicial),
Saldo_Periodo_1 = (sub_Data_x_Periodo_1 == null ? 0 : sub_Data_x_Periodo_1.Saldo),
Saldo_Periodo_2 = (sub_Data_x_Periodo_2 == null ? 0 : sub_Data_x_Periodo_2.Saldo),
Saldo_Periodo_3 = (sub_Data_x_Periodo_3 == null ? 0 : sub_Data_x_Periodo_3.Saldo),
Saldo_Periodo_4 = (sub_Data_x_Periodo_4 == null ? 0 : sub_Data_x_Periodo_4.Saldo),
Saldo_Periodo_5 = (sub_Data_x_Periodo_5 == null ? 0 : sub_Data_x_Periodo_5.Saldo),
Saldo_Periodo_6 = (sub_Data_x_Periodo_6 == null ? 0 : sub_Data_x_Periodo_6.Saldo),
Saldo_Periodo_7 = (sub_Data_x_Periodo_7 == null ? 0 : sub_Data_x_Periodo_7.Saldo),
Saldo_Periodo_8 = (sub_Data_x_Periodo_8 == null ? 0 : sub_Data_x_Periodo_8.Saldo),
Saldo_Periodo_9 = (sub_Data_x_Periodo_9 == null ? 0 : sub_Data_x_Periodo_9.Saldo),
Saldo_Periodo_10 = (sub_Data_x_Periodo_10 == null ? 0 : sub_Data_x_Periodo_10.Saldo),
Saldo_Periodo_11 = (sub_Data_x_Periodo_11 == null ? 0 : sub_Data_x_Periodo_11.Saldo),
Saldo_Periodo_12 = (sub_Data_x_Periodo_12 == null ? 0 : sub_Data_x_Periodo_12.Saldo),
nom_periodo_1 = nom_periodo_1,
nom_periodo_2 = nom_periodo_2,
nom_periodo_3 = nom_periodo_3,
nom_periodo_4 = nom_periodo_4,
nom_periodo_5 = nom_periodo_5,
nom_periodo_6 = nom_periodo_6,
nom_periodo_7 = nom_periodo_7,
nom_periodo_8 = nom_periodo_8,
nom_periodo_9 = nom_periodo_9,
nom_periodo_10 = nom_periodo_10,
nom_periodo_11 = nom_periodo_11,
nom_periodo_12 = nom_periodo_12,
Idperiodo_1 = IdPeriodo_1,
Idperiodo_2 = IdPeriodo_2,
Idperiodo_3 = IdPeriodo_3,
Idperiodo_4 = IdPeriodo_4,
Idperiodo_5 = IdPeriodo_5,
Idperiodo_6 = IdPeriodo_6,
Idperiodo_7 = IdPeriodo_7,
Idperiodo_8 = IdPeriodo_8,
Idperiodo_9 = IdPeriodo_9,
Idperiodo_10 = IdPeriodo_10,
Idperiodo_11 = IdPeriodo_11,
Idperiodo_12 = IdPeriodo_12,
plancta.IdGrupoCble,
plancta.IdNivelCta,
plancta.pc_EsMovimiento,
plancta.pc_Cuenta,
plancta.gc_estado_financiero,
plancta.OrderGrupoCble,
IdGrupo_Mayor = plancta.IdGrupo_Mayor,
nom_grupo_mayor = plancta.nom_grupo_mayor,
order_grupo_mayor = plancta.orden
};
string nom_Periodos = "";
foreach (var item in Periodos)
{
if (nom_Periodos == "")
{
nom_Periodos = item;
}
else
{
nom_Periodos += " / " + item;
}
}
List <XCONTA_Rpt017_Info> listadedatos = new List <XCONTA_Rpt017_Info>();
foreach (var item_data in ListaCtasCbles_x_cbtes_con_movi)
{
XCONTA_Rpt017_Info Info = new XCONTA_Rpt017_Info();
Info.IdEmpresa = item_data.IdEmpresa;
Info.gc_estado_financiero = "";
Info.GrupoCble = item_data.Nom_GrupoCble;
Info.IdCentroCosto = IdCentroCosto;
Info.IdCtaCble = item_data.IdCtaCble;
Info.IdCtaCblePadre = item_data.IdCtaCblePadre;
Info.IdNivelCta = item_data.IdNivelCta;
Info.IdPuntoCargo = IdPunto_cargo;
Info.IdPuntoCargo_Grupo = IdPunto_cargo_grupo;
Info.gc_estado_financiero = item_data.gc_estado_financiero;
Info.Periodos_mostrados = nom_Periodos;
Info.nom_cuenta = item_data.pc_Cuenta;
Info.OrderGrupoCble = item_data.OrderGrupoCble;
Info.pc_EsMovimiento = item_data.pc_EsMovimiento;
Info.Saldo_Periodo_0_SI = item_data.Saldo_Periodo_0_SI;
Info.Saldo_Periodo_1 = item_data.Saldo_Periodo_1;
Info.Saldo_Periodo_2 = item_data.Saldo_Periodo_2;
Info.Saldo_Periodo_3 = item_data.Saldo_Periodo_3;
Info.Saldo_Periodo_4 = item_data.Saldo_Periodo_4;
Info.Saldo_Periodo_5 = item_data.Saldo_Periodo_5;
Info.Saldo_Periodo_6 = item_data.Saldo_Periodo_6;
Info.Saldo_Periodo_7 = item_data.Saldo_Periodo_7;
Info.Saldo_Periodo_8 = item_data.Saldo_Periodo_8;
Info.Saldo_Periodo_9 = item_data.Saldo_Periodo_9;
Info.Saldo_Periodo_10 = item_data.Saldo_Periodo_10;
Info.Saldo_Periodo_11 = item_data.Saldo_Periodo_11;
Info.Saldo_Periodo_12 = item_data.Saldo_Periodo_12;
Info.nom_Periodo_1 = item_data.nom_periodo_1;
Info.nom_Periodo_2 = item_data.nom_periodo_2;
Info.nom_Periodo_3 = item_data.nom_periodo_3;
Info.nom_Periodo_4 = item_data.nom_periodo_4;
Info.nom_Periodo_5 = item_data.nom_periodo_5;
Info.nom_Periodo_6 = item_data.nom_periodo_6;
Info.nom_Periodo_7 = item_data.nom_periodo_7;
Info.nom_Periodo_8 = item_data.nom_periodo_8;
Info.nom_Periodo_9 = item_data.nom_periodo_9;
Info.nom_Periodo_10 = item_data.nom_periodo_10;
Info.nom_Periodo_11 = item_data.nom_periodo_11;
Info.nom_Periodo_12 = item_data.nom_periodo_12;
Info.IdPeriodo_1 = item_data.Idperiodo_1;
Info.IdPeriodo_2 = item_data.Idperiodo_2;
Info.IdPeriodo_3 = item_data.Idperiodo_3;
Info.IdPeriodo_4 = item_data.Idperiodo_4;
Info.IdPeriodo_5 = item_data.Idperiodo_5;
Info.IdPeriodo_6 = item_data.Idperiodo_6;
Info.IdPeriodo_7 = item_data.Idperiodo_7;
Info.IdPeriodo_8 = item_data.Idperiodo_8;
Info.IdPeriodo_9 = item_data.Idperiodo_9;
Info.IdPeriodo_10 = item_data.Idperiodo_10;
Info.IdPeriodo_11 = item_data.Idperiodo_11;
Info.IdPeriodo_12 = item_data.Idperiodo_12;
Info.IdGrupo_Mayor = item_data.IdGrupo_Mayor;
Info.nom_grupo_mayor = item_data.nom_grupo_mayor;
Info.order_grupo_mayor = item_data.order_grupo_mayor;
listadedatos.Add(Info);
}
return(listadedatos);
}
catch (Exception ex)
{
string mensaje = "";
string arreglo = ToString();
tb_sis_Log_Error_Vzen_Data oDataLog = new tb_sis_Log_Error_Vzen_Data();
tb_sis_Log_Error_Vzen_Info Log_Error_sis = new tb_sis_Log_Error_Vzen_Info(ex.ToString(), "", arreglo, "",
"", "", "", "", DateTime.Now);
oDataLog.Guardar_Log_Error(Log_Error_sis, ref mensaje);
mensaje = ex.ToString();
throw new Exception(ex.ToString());
}
}
public Boolean GenerarDiario(int IdEmpresa, int IdSucursal, decimal IdRegistroGasto, ref string msg, ref decimal idCbteCble, ref string CodTipod)
{
try{
#region Declaracion
ct_Periodo_Info Per_I = new ct_Periodo_Info();
ct_Cbtecble_Info CbteCble_I = new ct_Cbtecble_Info();
List <imp_ordencompra_ext_x_imp_gastosxImport_Det_Info> ListaDetalle = new List <imp_ordencompra_ext_x_imp_gastosxImport_Det_Info>();
imp_gastosximport_x_empresa_Data BusGastosXEmpresa = new imp_gastosximport_x_empresa_Data();
List <imp_gastosximport_x_empresa_Info> lstGastosXEmpresa = new List <imp_gastosximport_x_empresa_Info>();
List <imp_ordencompra_ext_x_imp_gastosxImport_Info> Lst = new List <imp_ordencompra_ext_x_imp_gastosxImport_Info>();
imp_ordencompra_ext_x_imp_gastosxImport_Info _Info = new imp_ordencompra_ext_x_imp_gastosxImport_Info();
int IdTipoCbte = 0;
ba_Cbte_Ban_Bus BusCbteBanco = new ba_Cbte_Ban_Bus();
ct_Periodo_Data Per_B = new ct_Periodo_Data();
List <ct_Cbtecble_det_Info> LstCbteCble = new List <ct_Cbtecble_det_Info>();
cl_parametrosGenerales_Bus param = cl_parametrosGenerales_Bus.Instance;
ba_Cbte_Ban_Info CbteBan_I = new ba_Cbte_Ban_Info();
string MensajeError = "";
#endregion
#region ObtenerGastoImportacion
Lst = Get_List_ordencompra_ext_x_imp_gastosxImport_Para_Contabilizar(IdEmpresa, IdSucursal, IdRegistroGasto);
foreach (var item in Lst)
{
_Info.IdOrdenCompraExt = item.IdOrdenCompraExt;
_Info.IdProveedor = item.IdProveedor;
_Info.IdEmpresa = item.IdEmpresa;
_Info.IdSucusal = item.IdSucusal;
_Info.IdRegistroGasto = item.IdRegistroGasto;
_Info.Observacion = item.Observacion;
_Info.IdCtaCble_Banco = item.IdCtaCble_Banco;
_Info.IdBanco = item.IdBanco;
_Info.CodOrdenCompraExt = item.CodOrdenCompraExt;
IdTipoCbte = item.IdTipoCbte;
_Info.Fecha = item.Fecha;
_Info.IdCtaCble_Importacion = item.IdCtaCble_Importacion;
imp_ordencompra_ext_x_imp_gastosxImport_Det_Info Det = new imp_ordencompra_ext_x_imp_gastosxImport_Det_Info();
Det.IdGastoImp = item.IdGastoImp;
Det.Valor = item.Valor;
_Info.ListaGastos.Add(Det);
}
#endregion
Per_I = Per_B.Get_Info_Periodo(_Info.IdEmpresa, _Info.Fecha, ref MensajeError);
lstGastosXEmpresa = BusGastosXEmpresa.Get_List_gastosximport_x_empresa(IdEmpresa);
var DatosDiario = from p in _Info.ListaGastos
join w in lstGastosXEmpresa
on new { p.IdGastoImp } equals new { w.IdGastoImp }
select new { p.IdGastoImp, w.IdCtaCble, p.Valor, w.debCre_Provicion, w.debcre_DebBanco };
if (DatosDiario.ToList().Count != _Info.ListaGastos.Count)
{
msg = "No existen parametros contables verifique que los parametros Contables Esten Llenados correctametne /n Comunicarce Cons sistemas";
return(false);
}
#region CbteCble_Detalle
foreach (var item in DatosDiario)
{
ct_Cbtecble_det_Info obj = new ct_Cbtecble_det_Info();
obj.dc_Observacion = "Cont. X gastos De Imp " + _Info.CodOrdenCompraExt + " / " + _Info.IdOrdenCompraExt + " / " + _Info.Observacion + " / " + Get_Descripcion(item.IdGastoImp);
obj.IdCtaCble = item.IdCtaCble;
obj.IdTipoCbte = IdTipoCbte;
obj.IdEmpresa = _Info.IdEmpresa;
if (CodTipod == "DEBBAN")
{
if (item.debcre_DebBanco == "C")
{
obj.dc_Valor = item.Valor * -1;
}
else
{
obj.dc_Valor = item.Valor;
}
}
if (CodTipod == "PROVI")
{
if (item.debcre_DebBanco == "D")
{
obj.dc_Valor = item.Valor * -1;
}
else
{
obj.dc_Valor = item.Valor;
}
}
LstCbteCble.Add(obj);
}
ct_Cbtecble_det_Info obj2 = new ct_Cbtecble_det_Info();
double Valor = 0;
foreach (var item in _Info.ListaGastos)
{
Valor = Valor + item.Valor;
}
obj2.dc_Observacion = "Cont. X gastos De Imp " + _Info.CodOrdenCompraExt + " / " + _Info.IdOrdenCompraExt + " / " + _Info.Observacion + " / Importacion";
obj2.IdCtaCble = _Info.IdCtaCble_Banco;
obj2.IdTipoCbte = IdTipoCbte;
obj2.IdEmpresa = _Info.IdEmpresa;
ba_Banco_Cuenta_Bus B_banco = new ba_Banco_Cuenta_Bus();
var Banco = B_banco.Get_Info_Banco_Cuenta(param.IdEmpresa, _Info.IdBanco);
if (CodTipod == "DEBBAN")
{
obj2.IdCtaCble = Banco.IdCtaCble;
obj2.dc_Valor = Valor * -1;
}
if (CodTipod == "PROVI")
{
obj2.IdCtaCble = _Info.IdCtaCble_Importacion;
obj2.dc_Valor = Valor;
}
LstCbteCble.Add(obj2);
#endregion
#region CbteCble
CbteCble_I.IdEmpresa = _Info.IdEmpresa;
CbteCble_I.IdTipoCbte = IdTipoCbte;
CbteCble_I.IdPeriodo = Per_I.IdPeriodo;
CbteCble_I.cb_Fecha = Convert.ToDateTime(_Info.Fecha.ToShortDateString());
CbteCble_I.cb_Valor = Valor;
if (CodTipod == "DEBBAN")
{
CbteCble_I.CodCbteCble = "DEBBAN";
}
if (CodTipod == "PROVI")
{
CbteCble_I.CodCbteCble = "PROVI";
}
CbteCble_I.cb_Observacion = "Cont. X Imp. " + _Info.CodOrdenCompraExt + " / " + _Info.IdOrdenCompraExt + "Gastos de Importacion. / " + _Info.Observacion;
CbteCble_I.Secuencia = 0;
CbteCble_I.Estado = "A";
CbteCble_I.Anio = _Info.Fecha.Year;
CbteCble_I.Mes = _Info.Fecha.Month;
CbteCble_I.IdUsuario = param.IdUsuario;
CbteCble_I.IdUsuarioUltModi = param.IdUsuario;
CbteCble_I.cb_FechaTransac = param.GetDateServer();
CbteCble_I.cb_FechaUltModi = param.GetDateServer();
CbteCble_I.Mayorizado = "N";
CbteCble_I._cbteCble_det_lista_info = LstCbteCble;
// decimal idCbteCble = 0;
string cod_CbteCble = "";
ct_Cbtecble_Bus CbteCble_B = new ct_Cbtecble_Bus();
if (CbteCble_B.GrabarDB(CbteCble_I, ref idCbteCble, ref msg) == false)
{
return(false);
}
oData.ModificarDB(_Info, idCbteCble);
#endregion
if (CodTipod == "DEBBAN")
{
#region CbteBan_I
CbteBan_I.IdEmpresa = param.IdEmpresa;
CbteBan_I.IdTipocbte = IdTipoCbte;
CbteBan_I.IdCbteCble = idCbteCble;
CbteBan_I.Cod_Cbtecble = cod_CbteCble;
CbteBan_I.IdPeriodo = Per_I.IdPeriodo;
CbteBan_I.IdBanco = _Info.IdBanco;
CbteBan_I.cb_Fecha = Convert.ToDateTime(_Info.Fecha.ToShortDateString());
CbteBan_I.cb_Observacion = _Info.Observacion.Trim();
CbteBan_I.cb_Valor = Valor;
CbteBan_I.Estado = "A";
CbteBan_I.IdUsuario = param.IdUsuario;
CbteBan_I.IdUsuario_Anu = param.IdUsuario;
CbteBan_I.FechaAnulacion = param.Fecha_Transac;
CbteBan_I.Fecha_Transac = param.Fecha_Transac;
CbteBan_I.Fecha_UltMod = param.Fecha_Transac;
CbteBan_I.IdUsuarioUltMod = param.IdUsuario;
CbteBan_I.ip = param.ip;
CbteBan_I.nom_pc = param.nom_pc;
if (BusCbteBanco.GrabarDB(CbteBan_I, ref MensajeError) == false)
{
return(false);
}
#endregion
}
imp_ordencompra_ext_x_ct_cbtecble_Data DataOrdxCbt = new imp_ordencompra_ext_x_ct_cbtecble_Data();
imp_ordencompra_ext_x_ct_cbtecble_Info ordCompraxCbte_info = new imp_ordencompra_ext_x_ct_cbtecble_Info();
ordCompraxCbte_info.ct_IdEmpresa = ordCompraxCbte_info.imp_IdEmpresa = _Info.IdEmpresa;
ordCompraxCbte_info.imp_IdOrdenCompraExt = _Info.IdOrdenCompraExt;
ordCompraxCbte_info.imp_IdSucusal = _Info.IdSucusal;
ordCompraxCbte_info.ct_IdTipoCbte = IdTipoCbte;
ordCompraxCbte_info.ct_IdCbteCble = idCbteCble;
ordCompraxCbte_info.TipoReg = "Gast";
DataOrdxCbt.GuardarDB(ordCompraxCbte_info, ref mensaje);
return(true);
}
catch (Exception ex)
{
Core.Erp.Info.Log_Exception.LoggingManager.Logger.Log(Core.Erp.Info.Log_Exception.LoggingCategory.Error, ex.Message);
throw new Core.Erp.Info.Log_Exception.DalException(string.Format("", "GenerarDiario", ex.Message), ex)
{
EntityType = typeof(imp_ordencompra_ext_x_imp_gastosxImport_Bus)
};
}
}
public List <XCONTA_Rpt011_Info> consultar_data(int IdEmpresa, int IdPeriodo_Actual, string IdCentroCosto, int IdNivel_a_mostrar
, int IdPunto_cargo_grupo
, int IdPunto_cargo
, bool Mostrar_reg_Cero
, bool Mostrar_cc, string IdUsuario, ref String MensajeError)
{
try
{
ct_Plancta_Data Plan_cta_data = new ct_Plancta_Data();
List <ct_Plancta_Info> list_plan_cta = new List <ct_Plancta_Info>();
ct_Periodo_Data Periodo_data = new ct_Periodo_Data();
ct_Periodo_Info Periodo_Info_Actual = new ct_Periodo_Info();
ct_Periodo_Info Periodo_Info_Anterior = new ct_Periodo_Info();
List <XCONTA_Rpt002_Info> list_data_Periodo_Actual = new List <XCONTA_Rpt002_Info>();
List <XCONTA_Rpt002_Info> list_data_Periodo_Anterior = new List <XCONTA_Rpt002_Info>();
Periodo_Info_Actual = Periodo_data.Get_Info_Periodo(IdEmpresa, IdPeriodo_Actual, ref MensajeError);
Periodo_Info_Anterior = Periodo_data.Get_Info_PeriodoAnterior(IdEmpresa, IdPeriodo_Actual, ref MensajeError);
list_data_Periodo_Actual = Get_data_Mayorizado_x_fecha(Periodo_Info_Actual.IdEmpresa, Periodo_Info_Actual.pe_FechaIni, Periodo_Info_Actual.pe_FechaFin, IdCentroCosto, IdNivel_a_mostrar
, IdPunto_cargo_grupo, IdPunto_cargo, Mostrar_reg_Cero, Mostrar_cc, IdUsuario, ref MensajeError);
list_data_Periodo_Anterior = Get_data_Mayorizado_x_fecha(Periodo_Info_Anterior.IdEmpresa, Periodo_Info_Anterior.pe_FechaIni, Periodo_Info_Anterior.pe_FechaFin, IdCentroCosto, IdNivel_a_mostrar
, IdPunto_cargo_grupo, IdPunto_cargo, Mostrar_reg_Cero, Mostrar_cc, IdUsuario, ref MensajeError);
foreach (var item in list_data_Periodo_Actual.Where(q => q.gc_estado_financiero == "ER").ToList())
{
ct_Plancta_Info _PlantaCtaInfo = new ct_Plancta_Info();
_PlantaCtaInfo.IdEmpresa = item.IdEmpresa;
_PlantaCtaInfo.IdCtaCble = item.IdCtaCble;
_PlantaCtaInfo.pc_Cuenta = item.nom_cuenta;
_PlantaCtaInfo.IdCtaCblePadre = (item.IdCtaCblePadre == null) ? "" : item.IdCtaCblePadre;
_PlantaCtaInfo.IdNivelCta = item.IdNivelCta;
_PlantaCtaInfo.pc_EsMovimiento = item.pc_EsMovimiento;
_PlantaCtaInfo.Nom_GrupoCble = item.gc_GrupoCble;
_PlantaCtaInfo.gc_estado_financiero = item.gc_estado_financiero;
_PlantaCtaInfo.OrderGrupoCble = item.OrderGrupoCble;
_PlantaCtaInfo.orden = item.order_grupo_mayor == null ? 0 : (int)item.order_grupo_mayor;
_PlantaCtaInfo.IdGrupo_Mayor = item.IdGrupo_Mayor;
_PlantaCtaInfo.nom_grupo_mayor = item.nom_grupo_mayor;
_PlantaCtaInfo.Nom_GrupoCble = item.GrupoCble;
list_plan_cta.Add(_PlantaCtaInfo);
}
var ListaCtasCbles_x_cbtes_con_movi = from plancta in list_plan_cta
join lstPeriodo_act in list_data_Periodo_Actual
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { lstPeriodo_act.IdEmpresa, lstPeriodo_act.IdCtaCble } into p_1
from sublist_data_Periodo_Actual in p_1.DefaultIfEmpty()
join lstPeriod_ant in list_data_Periodo_Anterior
on new { plancta.IdEmpresa, plancta.IdCtaCble } equals new { lstPeriod_ant.IdEmpresa, lstPeriod_ant.IdCtaCble } into p_2
from sublist_data_Periodo_Anterior in p_2.DefaultIfEmpty()
select new
{
plancta.IdEmpresa,
plancta.IdCtaCble,
plancta.IdCtaCblePadre,
Saldo_Periodo_act = sublist_data_Periodo_Actual == null ? 0 : sublist_data_Periodo_Actual.Saldo,
Saldo_Periodo_ant = sublist_data_Periodo_Anterior == null ? 0 : sublist_data_Periodo_Anterior.Saldo,
plancta.IdGrupoCble,
plancta.IdNivelCta,
plancta.pc_EsMovimiento,
plancta.pc_Cuenta,
nom_empresa = sublist_data_Periodo_Actual == null ? "" : sublist_data_Periodo_Actual.nom_empresa,
nom_CentroCosto = sublist_data_Periodo_Actual == null ? "" : sublist_data_Periodo_Actual.nom_CentroCosto,
nom_PuntoCargo = sublist_data_Periodo_Actual == null ? "" : sublist_data_Periodo_Actual.nom_PuntoCargo,
nom_PuntoCargo_Grupo = sublist_data_Periodo_Actual == null ? "" : sublist_data_Periodo_Actual.nom_PuntoCargo_Grupo,
GrupoCble = plancta.Nom_GrupoCble,
nom_Periodo_ant = Periodo_Info_Anterior.nom_periodo,
nom_Periodo_act = Periodo_Info_Actual.nom_periodo,
IdGrupo_Mayor = plancta.IdGrupo_Mayor,
nom_grupo_mayor = plancta.nom_grupo_mayor,
order_grupo_mayor = plancta.orden
};
List <XCONTA_Rpt011_Info> listadedatos = new List <XCONTA_Rpt011_Info>();
double Total_ventas_act = ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_act) == null ? 0 : (double)ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_act);
double Total_ventas_ant = ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_ant) == null ? 0 : (double)ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_ant);
double Total_varianza = ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_act - q.Saldo_Periodo_ant) == null ? 0 : (double)ListaCtasCbles_x_cbtes_con_movi.Where(q => q.IdNivelCta == 1 && q.IdGrupo_Mayor == "VTAS_NETAS").Sum(q => q.Saldo_Periodo_act - q.Saldo_Periodo_ant);
foreach (var item_data in ListaCtasCbles_x_cbtes_con_movi)
{
XCONTA_Rpt011_Info Info = new XCONTA_Rpt011_Info();
Info.IdNivelCta = item_data.IdNivelCta;
if (item_data.GrupoCble == "UTILIDAD")
{
Info.IdNivelCta = 1;
}
Info.IdEmpresa = item_data.IdEmpresa;
Info.gc_estado_financiero = "";
Info.GrupoCble = item_data.GrupoCble;
Info.IdCentroCosto = IdCentroCosto;
Info.IdCtaCble = item_data.IdCtaCble;
Info.IdCtaCblePadre = item_data.IdCtaCblePadre;
Info.IdPuntoCargo = IdPunto_cargo;
Info.IdPuntoCargo_Grupo = IdPunto_cargo_grupo;
Info.nom_CentroCosto = item_data.nom_CentroCosto;
Info.nom_cuenta = item_data.pc_Cuenta;
Info.nom_empresa = item_data.nom_empresa;
Info.nom_PuntoCargo = item_data.nom_PuntoCargo;
Info.nom_PuntoCargo_Grupo = item_data.nom_PuntoCargo_Grupo;
Info.OrderGrupoCble = 0;
Info.pc_EsMovimiento = item_data.pc_EsMovimiento;
Info.Porcen_Periodo1 = (item_data.Saldo_Periodo_act / Total_ventas_act);
Info.Porcen_Periodo2 = (item_data.Saldo_Periodo_ant / Total_ventas_ant);
Info.Saldo_Periodo_act = item_data.Saldo_Periodo_act;
Info.Saldo_Periodo_ant = item_data.Saldo_Periodo_ant;
Info.Saldo_x_Movi_Periodo_act = 0;
Info.Saldo_x_Movi_Periodo_ant = 0;
Info.Variacion = item_data.Saldo_Periodo_act - item_data.Saldo_Periodo_ant;
Info.Porcen_Variacion = (Info.Variacion / Total_varianza);
Info.nom_Periodo_act = item_data.nom_Periodo_act;
Info.nom_Periodo_ant = item_data.nom_Periodo_ant;
Info.IdGrupo_Mayor = item_data.IdGrupo_Mayor;
Info.nom_grupo_mayor = item_data.nom_grupo_mayor;
Info.order_grupo_mayor = item_data.order_grupo_mayor;
listadedatos.Add(Info);
}
if (!Mostrar_reg_Cero)
{
listadedatos = listadedatos.Where(q => Math.Abs((double)q.Saldo_Periodo_act) + Math.Abs((double)q.Saldo_Periodo_ant) != 0).ToList();
}
return(listadedatos);
}
catch (Exception ex)
{
string mensaje = "";
string arreglo = ToString();
tb_sis_Log_Error_Vzen_Data oDataLog = new tb_sis_Log_Error_Vzen_Data();
tb_sis_Log_Error_Vzen_Info Log_Error_sis = new tb_sis_Log_Error_Vzen_Info(ex.ToString(), "", arreglo, "",
"", "", "", "", DateTime.Now);
oDataLog.Guardar_Log_Error(Log_Error_sis, ref mensaje);
mensaje = ex.ToString();
throw new Exception(ex.ToString());
}
}
public Boolean GenerarDiarioFOB(int IdEmpresa, int IdSucursal, decimal IdImportacion, ref string msg, ref decimal idCbteCble, string idCbteCble_Proveedor)
{
try
{
imp_ordencompra_ext_x_ct_cbtecble_Info ordCompraxCbte_info = new imp_ordencompra_ext_x_ct_cbtecble_Info();
ct_Periodo_Info Per_I = new ct_Periodo_Info();
ct_Cbtecble_Info CbteCble_I = new ct_Cbtecble_Info();
List <imp_ordencompra_ext_x_imp_gastosxImport_Det_Info> ListaDetalle = new List <imp_ordencompra_ext_x_imp_gastosxImport_Det_Info>();
imp_gastosximport_x_empresa_Data BusGastosXEmpresa = new imp_gastosximport_x_empresa_Data();
List <imp_gastosximport_x_empresa_Info> lstGastosXEmpresa = new List <imp_gastosximport_x_empresa_Info>();
List <imp_ordencompra_ext_x_imp_gastosxImport_Info> Lst = new List <imp_ordencompra_ext_x_imp_gastosxImport_Info>();
ba_Cbte_Ban_Bus BusCbteBanco = new ba_Cbte_Ban_Bus();
ct_Periodo_Data Per_B = new ct_Periodo_Data();
List <ct_Cbtecble_det_Info> LstCbteCble = new List <ct_Cbtecble_det_Info>();
cl_parametrosGenerales_Bus param = cl_parametrosGenerales_Bus.Instance;
ba_Cbte_Ban_Info CbteBan_I = new ba_Cbte_Ban_Info();
imp_Parametros_Data Data_parametros = new imp_Parametros_Data();
var tip = Data_parametros.Get_Info_Parametros(IdEmpresa);
imp_ordencompra_ext_x_ct_cbtecble_Data DataOrdxCbt = new imp_ordencompra_ext_x_ct_cbtecble_Data();
cp_proveedor_Data _Prove_D = new cp_proveedor_Data();
imp_ordencompra_ext_Info _Info = oData.Get_Info_ordencompra_ext(IdEmpresa, IdSucursal, IdImportacion);
string MensajeError = "";
var proveedor = _Prove_D.Get_Info_Proveedor(param.IdEmpresa, _Info.IdProveedor);
Per_I = Per_B.Get_Info_Periodo(_Info.IdEmpresa, _Info.ci_fecha, ref MensajeError);
ct_Cbtecble_det_Info _CbteCble_I = new ct_Cbtecble_det_Info();
in_categorias_data producto_data = new in_categorias_data();
//var producto = producto_data.ObtenerObjeto(param.IdEmpresa, _Info.IdCategoria).ca_Categoria;
var producto = producto_data.Get_List_categorias(0);
string Observacion = _CbteCble_I.dc_Observacion = proveedor.pr_nombre + ".: " + _Info.CodOrdenCompraExt + ": //" + IdImportacion + "//" + "Cont. de la Importacion #" + IdImportacion +
@"'\'" + _Info.CodOrdenCompraExt + " Diario FOB" + _Info.ci_Observacion + " : " + producto + ". " + _Info.ci_tonelaje + " T";
_CbteCble_I.IdCtaCble = _Info.IdCtaCble_import;
_CbteCble_I.IdEmpresa = IdEmpresa;
_CbteCble_I.IdTipoCbte = tip.IdTipoCbte_DiarioFob;
_CbteCble_I.dc_Valor = _Info.FOB;
LstCbteCble.Add(_CbteCble_I);
ct_Cbtecble_det_Info obj2 = new ct_Cbtecble_det_Info();
obj2.IdCtaCble = _Info.IdCtaCble_import;
obj2.dc_Observacion = Observacion;// "Cont. de la Importacion #" + IdImportacion + @"'\'" + _Info.CodOrdenCompraExt + " Diario FOB" + _Info.ci_Observacion;
obj2.IdCtaCble = idCbteCble_Proveedor;
obj2.IdTipoCbte = tip.IdTipoCbte_DiarioFob;
obj2.IdEmpresa = _Info.IdEmpresa;
obj2.dc_Valor = _Info.FOB * -1;
LstCbteCble.Add(obj2);
CbteCble_I.IdEmpresa = _Info.IdEmpresa;
CbteCble_I.IdTipoCbte = tip.IdTipoCbte_DiarioFob;
CbteCble_I.CodCbteCble = "IM";
CbteCble_I.IdPeriodo = Per_I.IdPeriodo;
CbteCble_I.cb_Fecha = Convert.ToDateTime(_Info.ci_fecha.ToShortDateString());
CbteCble_I.cb_Valor = _Info.FOB;
if (_Info.CodOrdenCompraExt == null || _Info.CodOrdenCompraExt == "")
{
_Info.CodOrdenCompraExt = "IMP" + IdImportacion;
}
CbteCble_I.cb_Observacion = Observacion;
CbteCble_I.Secuencia = 0;
CbteCble_I.Estado = "A";
CbteCble_I.Anio = _Info.ci_fecha.Year;
CbteCble_I.Mes = _Info.ci_fecha.Month;
CbteCble_I.IdUsuario = param.IdUsuario;
CbteCble_I.IdUsuarioUltModi = param.IdUsuario;
CbteCble_I.cb_FechaTransac = param.GetDateServer();
CbteCble_I.cb_FechaUltModi = param.GetDateServer();
CbteCble_I.Mayorizado = "N";
CbteCble_I._cbteCble_det_lista_info = LstCbteCble;
ct_Cbtecble_Bus CbteCble_B = new ct_Cbtecble_Bus();
string cod_CbteCble = "";
if (CbteCble_B.GrabarDB(CbteCble_I, ref idCbteCble, ref msg) == false)
{
return(false);
}
ordCompraxCbte_info.ct_IdEmpresa = ordCompraxCbte_info.imp_IdEmpresa = _Info.IdEmpresa;
ordCompraxCbte_info.imp_IdOrdenCompraExt = _Info.IdOrdenCompraExt;
ordCompraxCbte_info.imp_IdSucusal = _Info.IdSucusal;
ordCompraxCbte_info.ct_IdTipoCbte = tip.IdTipoCbte_DiarioFob;
ordCompraxCbte_info.ct_IdCbteCble = idCbteCble;
ordCompraxCbte_info.TipoReg = "FOB";
DataOrdxCbt.GuardarDB(ordCompraxCbte_info, ref mensaje);
return(true);
}
catch (Exception ex)
{
Core.Erp.Info.Log_Exception.LoggingManager.Logger.Log(Core.Erp.Info.Log_Exception.LoggingCategory.Error, ex.Message);
throw new Core.Erp.Info.Log_Exception.DalException(string.Format("", "consultaDiariosxImportacion", ex.Message), ex)
{
EntityType = typeof(imp_ordencompra_ext_Bus)
};
}
}
