private string _Mtd_CrearComprobanteContable()
{
var _Str_TipoDocAjus = _Cls_VariosMetodos._Mtd_TipoDocument_INV(_Int_Sw == 1 ? "ctipodocent" : "ctipodocsal").Trim();
double _Dbl_Monto = 0;
double.TryParse(_Txt_Monto.Text, out _Dbl_Monto);
var _Cls_Proceso_Cont = new Clases._Cls_ProcesosCont(_Int_Sw == 1 ? "P_INV_AJUS_ENT" : "P_INV_AJUS_SAL");
var _Str_Cconceptocomp = _Cls_Proceso_Cont._Field_ConceptoComprobante;
var _Str_Ctypcompro = _Cls_Proceso_Cont._Field_TipoComprobante;
var _Int_Comprobante = _Cls_VariosMetodos._Mtd_Consecutivo_TCOMPROBANC();
var _Str_Cadena = "INSERT INTO TCOMPROBANC (ccompany,cidcomprob,ctypcomp,cname,cyearacco,cmontacco,cregdate,ctotdebe,ctothaber,cbalance,cdateadd,cuseradd,clvalidado,cstatus) VALUES ('" + Frm_Padre._Str_Comp + "','" + _Int_Comprobante + "','" + _Str_Ctypcompro + "','" + _Str_Cconceptocomp + "','" + Clases._Cls_ProcesosCont._Mtd_ContableAno(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())) + "','" + Clases._Cls_ProcesosCont._Mtd_ContableMes(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())) + "','" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_Monto) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_Monto) + "','0',GETDATE(),'" + Frm_Padre._Str_Use + "','1','0')";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
_Dg_Comprobante.Rows.Cast <DataGridViewRow>()
.Where(x => x.Cells["Cuenta"].Value != null)
.ToList()
.ForEach(x =>
{
var _Str_Cuenta = Convert.ToString(x.Cells["Cuenta"].Value).Trim();
var _Str_Descrip = Convert.ToString(x.Cells["Descripcion"].Value).Trim();
var _Str_TipoDocumento = _Str_TipoDocAjus;
var _Str_Documento = _Txt_Ajuste.Text;
double _Dbl_DebeD, _Dbl_HaberD;
double.TryParse(Convert.ToString(x.Cells["Debe"].Value), out _Dbl_DebeD);
double.TryParse(Convert.ToString(x.Cells["Haber"].Value), out _Dbl_HaberD);
_Str_Cadena = "INSERT INTO TCOMPROBAND (ccompany,cidcomprob,corder,ccount,cdescrip,ctdocument,cnumdocu,cdatedocu,ctotdebe,ctothaber,cdateadd,cuseradd)VALUES('" + Frm_Padre._Str_Comp + "','" + _Int_Comprobante.ToString() + "','" + (x.Index + 1) + "','" + _Str_Cuenta + "','" + _Str_Descrip + "','" + _Str_TipoDocumento + "','" + _Str_Documento + "','" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_DebeD) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_HaberD) + "',GETDATE(),'" + Frm_Padre._Str_Use + "')";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
});
return(_Int_Comprobante.ToString());
}
private string _Mtd_CrearComprobanteContable()
{
double _Dbl_Debe, _Dbl_Haber;
_Mtd_TotalDebeHaber(out _Dbl_Debe, out _Dbl_Haber);
var _Cls_Proceso_Cont = new Clases._Cls_ProcesosCont("P_CXC_RET_ANUL_EMI");
var _Str_Cconceptocomp = _Cls_Proceso_Cont._Field_ConceptoComprobante;
var _Str_Ctypcompro = _Cls_Proceso_Cont._Field_TipoComprobante;
var _Int_Comprobante = _Cls_VariosMetodos._Mtd_Consecutivo_TCOMPROBANC();
var _Str_Cadena = "INSERT INTO TCOMPROBANC (ccompany,cidcomprob,ctypcomp,cname,cyearacco,cmontacco,cregdate,ctotdebe,ctothaber,cbalance,cdateadd,cuseradd,clvalidado,cstatus) VALUES ('" + Frm_Padre._Str_Comp + "','" + _Int_Comprobante + "','" + _Str_Ctypcompro + "','" + _Str_Cconceptocomp + "','" + Clases._Cls_ProcesosCont._Mtd_ContableAno(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())) + "','" + Clases._Cls_ProcesosCont._Mtd_ContableMes(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())) + "','" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_Debe) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_Haber) + "','0',GETDATE(),'" + Frm_Padre._Str_Use + "','1','0')";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
CLASES._Cls_Varios_Metodos._Mtd_EliminarAuxiliarCont(Frm_Padre._Str_Comp, _Int_Comprobante.ToString());
_Dg_Comprobante.Rows.Cast <DataGridViewRow>()
.Where(x => x.Cells["Cuenta"].Value != null)
.ToList()
.ForEach(x =>
{
var _Str_Cuenta = Convert.ToString(x.Cells["Cuenta"].Value).Trim();
var _Str_Descrip = Convert.ToString(x.Cells["Descripcion"].Value).Trim();
var _Str_TipoDocumento = Convert.ToString(x.Cells["TipoDocumento"].Value).Trim();
var _Str_Documento = Convert.ToString(x.Cells["Documento"].Value).Trim();
double _Dbl_DebeD, _Dbl_HaberD;
double.TryParse(Convert.ToString(x.Cells["Debe"].Value), out _Dbl_DebeD);
double.TryParse(Convert.ToString(x.Cells["Haber"].Value), out _Dbl_HaberD);
_Str_Cadena = "INSERT INTO TCOMPROBAND (ccompany,cidcomprob,corder,ccount,cdescrip,ctdocument,cnumdocu,cdatedocu,ctotdebe,ctothaber,cdateadd,cuseradd)VALUES('" + Frm_Padre._Str_Comp + "','" + _Int_Comprobante.ToString() + "','" + (x.Index + 1) + "','" + _Str_Cuenta + "','" + _Str_Descrip + "','" + _Str_TipoDocumento + "','" + _Str_Documento + "','" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_DebeD) + "','" + CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_HaberD) + "',GETDATE(),'" + Frm_Padre._Str_Use + "')";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
if (_Dbl_DebeD != 0)
{
CLASES._Cls_Varios_Metodos._Mtd_InsertAuxiliarCont(_Int_Comprobante.ToString(), _Str_Cuenta, Convert.ToString(_Txt_Cliente.Tag).Trim(), _Str_Descrip, _Str_TipoDocumento, _Str_Documento, _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()), _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()), CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_DebeD), Clases._Cls_ProcesosCont._Mtd_ContableMes(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())), Clases._Cls_ProcesosCont._Mtd_ContableAno(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())), "D");
}
else
{
CLASES._Cls_Varios_Metodos._Mtd_InsertAuxiliarCont(_Int_Comprobante.ToString(), _Str_Cuenta, Convert.ToString(_Txt_Cliente.Tag).Trim(), _Str_Descrip, _Str_TipoDocumento, _Str_Documento, _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()), _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()), CLASES._Cls_Varios_Metodos._Mtd_MontosSQL(_Dbl_HaberD), Clases._Cls_ProcesosCont._Mtd_ContableMes(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())), Clases._Cls_ProcesosCont._Mtd_ContableAno(_Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate())), "H");
}
});
return(_Int_Comprobante.ToString());
}
