コード例 #1
0
        void AsignarEntidad()
        {
            l_DocumentoDet.Clear();
            l_DetDoc.Clear();
            l_DetOCT.Clear();

            e_Documento.n_id          = 0;
            e_Documento.n_idemp       = STU_SISTEMA.EMPRESAID;
            e_Documento.n_anotra      = STU_SISTEMA.ANOTRABAJO;
            e_Documento.n_idmes       = STU_SISTEMA.MESTRABAJO;
            e_Documento.n_idlib       = 14;
            e_Documento.c_numreg      = "";
            e_Documento.n_idtippro    = 2;
            e_Documento.n_idcli       = Convert.ToInt32(LblIdCliente.Text);
            e_Documento.n_idpunvencli = 0;
            e_Documento.n_idtipdoc    = Convert.ToInt32(CboTipDocumento.SelectedValue);
            e_Documento.c_numser      = LblSerDoc.Text;
            e_Documento.c_numdoc      = LblNumDoc.Text;
            if (e_Documento.n_idmes == 0)
            {
                e_Documento.d_fchreg = Convert.ToDateTime("01/01/" + e_Documento.n_anotra.ToString("0000"));
            }
            else
            {
                e_Documento.d_fchreg = Convert.ToDateTime("01/" + LblFchEmi.Text.Substring(3, 2) + "/" + LblFchEmi.Text.Substring(6, 4));
            }
            e_Documento.d_fchdoc    = Convert.ToDateTime(LblFchEmi.Text);
            e_Documento.d_fchven    = Convert.ToDateTime(LblFchEmi.Text);
            e_Documento.n_idconpag  = 1;
            e_Documento.n_idmon     = Convert.ToInt32(CboMoneda.SelectedValue);
            e_Documento.n_impbru    = Convert.ToDouble(LblImpBru.Text);
            e_Documento.n_impbru2   = 0;
            e_Documento.n_impbru3   = 0;
            e_Documento.n_impinaf   = 0;
            e_Documento.n_impigv    = Convert.ToDouble(LblIgv.Text);
            e_Documento.n_impisc    = 0;
            e_Documento.n_impotr    = 0;
            e_Documento.n_imptotven = Convert.ToDouble(LblTotal.Text);
            e_Documento.n_tc        = Convert.ToDouble(LblTipCam.Text);
            e_Documento.n_impsal    = Convert.ToDouble(LblTotal.Text);
            e_Documento.n_idven     = 0;
            e_Documento.n_tasaigv   = douIGVTasa;
            e_Documento.c_glosa     = "VENTA EN MOSTRADOR DEL DIA " + LblFchEmi.Text;
            e_Documento.n_impsubtot = Convert.ToDouble(LblImpBru.Text);
            e_Documento.n_pordsc    = 0;
            e_Documento.n_idtipope  = 1;

            e_Documento.n_idtipdocref = 0;
            e_Documento.n_iddocref    = 0;

            e_Documento.c_serdocref = "";
            e_Documento.c_numdocref = "";

            string c_mon = "";

            if (Convert.ToDouble(CboMoneda.SelectedValue) == 115)
            {
                c_mon = "soles.";
            }
            if (Convert.ToDouble(CboMoneda.SelectedValue) == 151)
            {
                c_mon = "dolares americanos.";
            }
            e_Documento.c_numlet = funLet.Convertir(LblTotal.Text, true, c_mon);

            e_Documento.n_oriitem = 1;             // INDICAMOS QUE LA VENTA NO TIENE GUIA DE REMISION
            e_Documento.n_anulado = 0;
            e_Documento.c_motnc   = "";

            if (OptForPag1.Checked == true)
            {
                e_Documento.n_idforpag = 1;
            }
            if (OptForPag2.Checked == true)
            {
                e_Documento.n_idforpag = 2;
            }

            if (OptTarCre1.Checked == true)
            {
                e_Documento.n_idtarcre = 1;
            }
            if (OptTarCre1.Checked == true)
            {
                e_Documento.n_idtarcre = 2;
            }
            if (OptTarCre1.Checked == true)
            {
                e_Documento.n_idtarcre = 3;
            }

            int       n_fila      = 0;
            DataTable DtFiltro    = new DataTable();
            string    c_nomitem   = "";
            string    c_presendes = "";
            double    n_valor     = 0;

            if (FgDetalle.Rows.Count > 2)
            {
                for (n_fila = 1; n_fila <= FgDetalle.Rows.Count - 1; n_fila++)
                {
                    if (funFunciones.NulosC(FgDetalle.GetData(n_fila, 1)) != "")
                    {
                        BE_VTA_VENTASDET BE_Detalle = new BE_VTA_VENTASDET();

                        c_nomitem   = FgDetalle.GetData(n_fila, 1).ToString();
                        c_presendes = FgDetalle.GetData(n_fila, 2).ToString();

                        BE_Detalle.n_idvta  = e_Documento.n_id;
                        BE_Detalle.n_canpro = Convert.ToDouble(FgDetalle.GetData(n_fila, 3).ToString());

                        BE_Detalle.n_iditem   = Convert.ToInt32(FgDetalle.GetData(n_fila, 6).ToString());
                        BE_Detalle.n_idunimed = Convert.ToInt32(FgDetalle.GetData(n_fila, 7).ToString());

                        //n_valor = Convert.ToDouble(FgDetalle.GetData(n_fila, 4).ToString());
                        //n_valor = n_valor / ((douIGVTasa / 100) + 1);
                        BE_Detalle.n_preunibru = Convert.ToDouble(FgDetalle.GetData(n_fila, 8).ToString());
                        BE_Detalle.n_preuninet = Convert.ToDouble(FgDetalle.GetData(n_fila, 8).ToString());
                        BE_Detalle.n_imptot    = Convert.ToDouble(FgDetalle.GetData(n_fila, 9).ToString());
                        BE_Detalle.n_idtipven  = 0;
                        BE_Detalle.n_pordsc    = 0;
                        BE_Detalle.n_porigv    = douIGVTasa;
                        //string c_dato = FgDetalle.GetData(n_fila, 8).ToString();
                        //c_dato = funDatos.DataTableBuscar(dtAnex07, "c_codsun", "n_id", c_dato, "C").ToString();
                        BE_Detalle.n_preuninetigv = Convert.ToDouble(FgDetalle.GetData(n_fila, 4).ToString());
                        BE_Detalle.n_imptotigv    = Convert.ToDouble(FgDetalle.GetData(n_fila, 5).ToString());
                        BE_Detalle.n_idtipafeigv  = 1;
                        BE_Detalle.c_datadi       = funFunciones.NulosC(FgDetalle.GetData(n_fila, 9)).ToString();
                        l_DocumentoDet.Add(BE_Detalle);
                    }
                }
            }

            l_DetOCT.Clear();
            BE_VTA_VENTASOCT entOC = new BE_VTA_VENTASOCT();

            ////  1001 - Total valor de venta - operaciones gravadas
            entOC.n_idvta   = 0;
            entOC.n_idcon   = 1;
            entOC.n_importe = Convert.ToDouble(LblImpBru.Text);
            l_DetOCT.Add(entOC);
        }
コード例 #2
0
        void AsignarEntidad()
        {
            DataTable dtresul    = new DataTable();
            int       n_row      = 2;
            string    c_dato     = "";
            string    C_RECIBO   = "";
            int       N_SERVICIO = 0;
            int       N_UNIMED   = 0;
            string    C_SERVICIO = "";
            string    C_PERIODO  = "";

            for (n_row = 0; n_row <= FgReg.Rows.Count - 1; n_row++)
            {
                c_dato = FgReg.GetData(n_row, 7).ToString();

                if (c_dato == "True")
                {
                    C_RECIBO   = FgReg.GetData(n_row, 2).ToString();
                    N_SERVICIO = Convert.ToInt16(FgReg.GetData(n_row, 10).ToString());
                    N_UNIMED   = Convert.ToInt16(FgReg.GetData(n_row, 11).ToString());
                    //C_PERIODO = "DEL " + Convert.ToDateTime(FgReg.GetData(n_row, 4)).ToString("dd/MM/yy") + " AL " + Convert.ToDateTime(FgReg.GetData(n_row, 4)).AddDays(30).ToString("dd/MM/yy");

                    c_dato     = FgReg.GetData(n_row, 4).ToString();
                    C_SERVICIO = c_dato;
                }
            }

            l_DocumentoDet.Clear();
            l_DetDoc.Clear();
            l_DetOCT.Clear();

            e_Documento.n_id          = 0;
            e_Documento.n_idemp       = STU_SISTEMA.EMPRESAID;
            e_Documento.n_anotra      = STU_SISTEMA.ANOTRABAJO;
            e_Documento.n_idmes       = STU_SISTEMA.MESTRABAJO;
            e_Documento.n_idlib       = N_IDLIBRO;
            e_Documento.c_numreg      = "";
            e_Documento.n_idtippro    = 23;
            e_Documento.n_idcli       = Convert.ToInt16(LbIdCliente.Text);
            e_Documento.n_idpunvencli = 0;
            e_Documento.n_idtipdoc    = Convert.ToInt16(CboTipDoc.SelectedValue);
            e_Documento.c_numser      = TxtNumSer.Text;
            e_Documento.c_numdoc      = TxtNumDoc.Text;
            if (e_Documento.n_idmes == 0)
            {
                e_Documento.d_fchreg = Convert.ToDateTime("01/01/" + e_Documento.n_anotra.ToString("0000"));
            }
            else
            {
                e_Documento.d_fchreg = Convert.ToDateTime("01/" + TxtFecha.Text.Substring(3, 2) + "/" + TxtFecha.Text.Substring(6, 4));
            }
            e_Documento.d_fchdoc    = Convert.ToDateTime(TxtFecha.Text);
            e_Documento.d_fchven    = Convert.ToDateTime(TxtFecha.Text);
            e_Documento.n_idconpag  = 1;
            e_Documento.n_idmon     = Convert.ToInt16(CboMoneda.SelectedValue);
            e_Documento.n_impbru    = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            e_Documento.n_impbru2   = 0;
            e_Documento.n_impbru3   = 0;
            e_Documento.n_impinaf   = 0;
            e_Documento.n_impigv    = (Convert.ToDouble(TxtImpPag.Text) - (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1)));
            e_Documento.n_impisc    = 0;
            e_Documento.n_impotr    = 0;
            e_Documento.n_imptotven = Convert.ToDouble(TxtImpPag.Text);
            e_Documento.n_tc        = Convert.ToDouble(LblTc.Text);
            e_Documento.n_impsal    = Convert.ToDouble(TxtImpPag.Text);
            e_Documento.n_idven     = 0;
            e_Documento.n_tasaigv   = douIGVTasa;
            e_Documento.c_glosa     = "COBRANZA DEL CARGO Nº " + C_RECIBO;
            e_Documento.n_impsubtot = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            e_Documento.n_pordsc    = 0;
            e_Documento.n_idtipope  = 1;

            e_Documento.n_idtipdocref = 0;
            e_Documento.n_iddocref    = 0;

            e_Documento.c_serdocref = "";
            e_Documento.c_numdocref = "";

            string c_mon = "";

            if (Convert.ToDouble(CboMoneda.SelectedValue) == 115)
            {
                c_mon = "SOLES.";
            }
            if (Convert.ToDouble(CboMoneda.SelectedValue) == 151)
            {
                c_mon = "DOLARES AMERICANOS.";
            }
            e_Documento.c_numlet = funLet.Convertir(TxtImpPag.Text, true, c_mon);

            e_Documento.n_oriitem = 1;             // INDICAMOS QUE LA VENTA NO TIENE GUIA DE REMISION
            e_Documento.n_anulado = 0;
            e_Documento.c_motnc   = "";

            e_Documento.n_idforpag = 1;            // INDICAMOS QUE LA FORMA DE PAGO ES EN EFECTIVO
            e_Documento.n_idtarcre = 0;            // NO HAY TARJETA DE CREDITO

            // PREPARAMOS EL DETALLE DE LA VENTA
            BE_VTA_VENTASDET BE_Detalle = new BE_VTA_VENTASDET();

            BE_Detalle.n_idvta  = e_Documento.n_id;
            BE_Detalle.n_canpro = 1;

            BE_Detalle.n_iditem = N_SERVICIO;

            //N_UNIMED = Convert.ToInt32(funGen.DataTableBuscar(dtservicio, "n_id", "n_idunimed", N_SERVICIO.ToString(), "N"));
            BE_Detalle.n_idunimed     = N_UNIMED;
            BE_Detalle.n_preunibru    = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            BE_Detalle.n_preuninet    = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            BE_Detalle.n_imptot       = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            BE_Detalle.c_desusu       = C_SERVICIO;
            BE_Detalle.n_idtipven     = 0;
            BE_Detalle.n_pordsc       = 0;
            BE_Detalle.n_porigv       = douIGVTasa;
            BE_Detalle.n_preuninetigv = Convert.ToDouble(TxtImpPag.Text);
            BE_Detalle.n_imptotigv    = Convert.ToDouble(TxtImpPag.Text);
            BE_Detalle.n_idtipafeigv  = 1;
            BE_Detalle.c_datadi       = "";
            l_DocumentoDet.Add(BE_Detalle);

            l_DetOCT.Clear();
            BE_VTA_VENTASOCT entOC = new BE_VTA_VENTASOCT();

            ////  1001 - Total valor de venta - operaciones gravadas
            entOC.n_idvta   = 0;
            entOC.n_idcon   = 1;
            entOC.n_importe = (Convert.ToDouble(TxtImpPag.Text) / ((douIGVTasa / 100) + 1));
            l_DetOCT.Add(entOC);

            l_DetDat.Clear();
            BE_VTA_VENTASDAT entDat = new BE_VTA_VENTASDAT();

            entDat.n_idvta     = 0;
            entDat.n_idcaj     = Convert.ToInt16(CboCajero.SelectedValue);
            entDat.c_cajnom    = STU_SISTEMA.USUARIOALIAS; //CboCajero.Text;
            entDat.n_idloc     = Convert.ToInt16(N_LOCAL);
            entDat.c_locdes    = C_LOCAL;
            entDat.h_horemi    = DateTime.Now.ToString("HH:mm:ss");
            entDat.c_numpla    = TxtNumPla.Text;
            entDat.c_horini    = "";
            entDat.c_horfin    = "";
            entDat.c_tiempousu = "";

            l_DetDat.Add(entDat);

            double    n_valor     = 0;
            string    c_numasi    = "";
            int       n_idcueite  = 0;
            int       n_idcuedoc  = 0;
            int       n_idcueigv  = 0;
            string    c_abrtipdoc = "";
            DataTable dtResult    = new DataTable();

            CN_est_conecta o_conec  = new CN_est_conecta(STU_SISTEMA);
            CN_con_diario  o_diario = new CN_con_diario();

            o_diario.mysConec = o_conec.mysConec;
            c_numasi          = o_diario.ObtenerUltimoAsiento(STU_SISTEMA.ANOTRABAJO, STU_SISTEMA.MESTRABAJO, 14, STU_SISTEMA.EMPRESAID);
            o_conec           = null;


            // OBTENEMOS EL ID DE LA CUENTA CONTABLE DEL DOCUMENTO DE VENTA
            dtResult = funGen.DataTableFiltrar(dtdoccuecon, "n_idtipdoc = " + Convert.ToInt16(CboTipDoc.SelectedValue) + " AND n_idmon = " + Convert.ToInt16(CboMoneda.SelectedValue) + "");
            if (dtResult.Rows.Count == 0)
            {
                MessageBox.Show("¡ El tipo de documento seleccionado no tiene cuenta contable asignada, asignele una cuenta contable en el menu contabilidad !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                return;
            }
            n_idcuedoc = Convert.ToInt16(dtResult.Rows[0]["n_idcueven"]);

            // OBTENEMOS EL ID DE LA CUENTA CONTABLE DEL IMPUESTO DE LA VENTA
            dtResult = funGen.DataTableFiltrar(dtdocimp, "n_idtipdoc = " + Convert.ToInt16(CboTipDoc.SelectedValue) + "");
            if (dtResult.Rows.Count == 0)
            {
                MessageBox.Show("¡ El tipo de documento seleccionado no tiene un impuesto asignado, asignele una cuenta contable en el menu contabilidad !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                return;
            }
            n_idcueigv = Convert.ToInt16(dtResult.Rows[0]["n_idcueven"]);

            // OBTENEMOS EL ID DE LA CUENTA CONTABLE DEL SERVICIO
            dtResult = funGen.DataTableFiltrar(dtpcite, "n_iditem = " + N_SERVICIO + "");
            if (dtResult.Rows.Count == 0)
            {
                MessageBox.Show("¡ El item seleccionado no tiene cuenta contable asignada, asignele una cuenta contable en el menu contabilidad !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                return;
            }
            n_idcueite = Convert.ToInt16(dtResult.Rows[0]["n_idpcven"]);

            // OBTENEMOS LA ABREVIATURA DEL TIPO DE DOUCMENTO
            dtResult    = funGen.DataTableFiltrar(dtTipDocumento, "n_id = " + Convert.ToInt16(CboTipDoc.SelectedValue) + "");
            c_abrtipdoc = dtResult.Rows[0]["c_abr"].ToString();


            // ******************************************
            // CREAMOS LOS ASIENTOS CONTABLES DE LA VENTA
            l_Diario.Clear();

            // *****************
            // AGREGAMOS EL DEBE
            BE_CON_DIARIO ediario = new BE_CON_DIARIO();

            ediario.n_id     = 0;
            ediario.n_idemp  = STU_SISTEMA.EMPRESAID;
            ediario.n_ano    = STU_SISTEMA.ANOTRABAJO;
            ediario.n_mes    = STU_SISTEMA.MESTRABAJO;
            ediario.n_lib    = 14;
            ediario.c_numasi = c_numasi;
            ediario.n_idcue  = n_idcuedoc;
            ediario.n_tc     = Convert.ToDouble(LblTc.Text);

            if (Convert.ToInt16(CboMoneda.SelectedValue) == 115)
            {
                ediario.n_impdebsol = Convert.ToDouble(TxtImpPag.Text);
                ediario.n_imphabsol = 0;

                ediario.n_impdebdol = Convert.ToDouble(TxtImpPag.Text) / Convert.ToDouble(LblTc.Text);
                ediario.n_imphabdol = 0;
            }
            else
            {
                ediario.n_impdebsol = Convert.ToDouble(TxtImpPag.Text) * Convert.ToDouble(LblTc.Text);
                ediario.n_imphabsol = 0;

                ediario.n_impdebdol = Convert.ToDouble(TxtImpPag.Text);
                ediario.n_imphabdol = 0;
            }

            ediario.d_fchasi       = Convert.ToDateTime(TxtFecha.Text);
            ediario.d_orifchdoc    = Convert.ToDateTime(TxtFecha.Text);
            ediario.n_oriid        = 0;
            ediario.n_oriidtipdoc  = Convert.ToInt16(CboTipDoc.SelectedValue);
            ediario.n_oriidtipmon  = Convert.ToInt16(CboMoneda.SelectedValue);
            ediario.c_orinumdoc    = TxtNumSer.Text + "-" + TxtNumDoc.Text;
            ediario.c_origlo       = "";
            ediario.c_oridestipmon = CboMoneda.Text;
            ediario.c_oridestipdoc = c_abrtipdoc;
            ediario.c_orinomcli    = TxtApeNom.Text;
            ediario.c_orinumruc    = "";

            l_Diario.Add(ediario);

            // *****************************
            // ESCRIBIMOS EL IGV DE LA VENTA
            if ((Convert.ToDouble(CboTipDoc.SelectedValue) == 2) || (Convert.ToDouble(CboTipDoc.SelectedValue) == 4))
            {
                BE_CON_DIARIO ediario2 = new BE_CON_DIARIO();
                n_valor = 0;
                n_valor = (Convert.ToDouble(TxtImpPag.Text) - (Convert.ToDouble(TxtImpPag.Text) / 1.18));

                ediario2.n_id     = 0;
                ediario2.n_idemp  = STU_SISTEMA.EMPRESAID;
                ediario2.n_ano    = STU_SISTEMA.ANOTRABAJO;
                ediario2.n_mes    = STU_SISTEMA.MESTRABAJO;
                ediario2.n_lib    = 14;
                ediario2.c_numasi = c_numasi;
                ediario2.n_idcue  = n_idcueigv;
                ediario2.n_tc     = Convert.ToDouble(LblTc.Text);

                if (Convert.ToInt16(CboMoneda.SelectedValue) == 115)
                {
                    ediario2.n_impdebsol = 0;
                    ediario2.n_imphabsol = n_valor;

                    ediario2.n_impdebdol = 0;
                    ediario2.n_imphabdol = n_valor / Convert.ToDouble(LblTc.Text);
                }
                else
                {
                    ediario2.n_impdebsol = 0;
                    ediario2.n_imphabsol = n_valor * Convert.ToDouble(LblTc.Text);

                    ediario2.n_impdebdol = 0;
                    ediario2.n_imphabdol = n_valor;
                }

                ediario2.d_fchasi      = Convert.ToDateTime(TxtFecha.Text);
                ediario2.d_orifchdoc   = Convert.ToDateTime(TxtFecha.Text);
                ediario2.n_oriid       = 0;
                ediario2.n_oriidtipdoc = Convert.ToInt16(CboTipDoc.SelectedValue);
                ediario2.n_oriidtipmon = Convert.ToInt16(CboMoneda.SelectedValue);
                ediario2.c_orinumdoc   = TxtNumSer.Text + "-" + TxtNumDoc.Text;
                ediario2.c_origlo      = "";
                ediario.c_oridestipmon = CboMoneda.Text;
                ediario.c_oridestipdoc = c_abrtipdoc;
                ediario.c_orinomcli    = TxtApeNom.Text;
                ediario.c_orinumruc    = "";

                l_Diario.Add(ediario2);
            }

            // *******************************
            // ESCRIBIMOS EL HABER DEL ASIENTO
            BE_CON_DIARIO ediario3 = new BE_CON_DIARIO();

            if ((Convert.ToDouble(CboTipDoc.SelectedValue) == 2) || (Convert.ToDouble(CboTipDoc.SelectedValue) == 4))
            {
                n_valor = (Convert.ToDouble(TxtImpPag.Text) / 1.18);
            }
            else
            {
                n_valor = Convert.ToDouble(TxtImpPag.Text);
            }

            ediario3.n_id     = 0;
            ediario3.n_idemp  = STU_SISTEMA.EMPRESAID;
            ediario3.n_ano    = STU_SISTEMA.ANOTRABAJO;
            ediario3.n_mes    = STU_SISTEMA.MESTRABAJO;
            ediario3.n_lib    = 14;
            ediario3.c_numasi = c_numasi;
            ediario3.n_idcue  = n_idcueite;
            ediario3.n_tc     = Convert.ToDouble(LblTc.Text);

            if (Convert.ToInt16(CboMoneda.SelectedValue) == 115)
            {
                ediario3.n_impdebsol = 0;
                ediario3.n_imphabsol = n_valor;

                ediario3.n_impdebdol = 0;
                ediario3.n_imphabdol = n_valor / Convert.ToDouble(LblTc.Text);
            }
            else
            {
                ediario3.n_impdebsol = 0;
                ediario3.n_imphabsol = n_valor * Convert.ToDouble(LblTc.Text);

                ediario3.n_impdebdol = 0;
                ediario3.n_imphabdol = n_valor;
            }

            ediario3.d_fchasi      = Convert.ToDateTime(TxtFecha.Text);
            ediario3.d_orifchdoc   = Convert.ToDateTime(TxtFecha.Text);
            ediario3.n_oriid       = 0;
            ediario3.n_oriidtipdoc = Convert.ToInt16(CboTipDoc.SelectedValue);
            ediario3.n_oriidtipmon = Convert.ToInt16(CboMoneda.SelectedValue);
            ediario3.c_orinumdoc   = TxtNumSer.Text + "-" + TxtNumDoc.Text;
            ediario3.c_origlo      = "";
            ediario.c_oridestipmon = CboMoneda.Text;
            ediario.c_oridestipdoc = c_abrtipdoc;
            ediario.c_orinomcli    = TxtApeNom.Text;
            ediario.c_orinumruc    = "";

            l_Diario.Add(ediario3);
        }