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()); }