Пример #1
0
        public void TraerRegistro(int n_IdRegistro)
        {
            BE_VTA_GUIAS Ent_Guias  = new BE_VTA_GUIAS();
            DatosMySql   xMiFuncion = new DatosMySql();

            string[,] arrParametros = new string[1, 3] {
                { "n_id", "System.INT16", n_IdRegistro.ToString() }
            };
            dtLista = null;
            dtLista = xMiFuncion.StoreDTLLenar("vta_pedidocen_obtenerregistro", arrParametros, mysConec);
            if (xMiFuncion.booOcurrioError == true)
            {
                b_OcurrioError = xMiFuncion.booOcurrioError;
                c_ErrorMensaje = xMiFuncion.StrErrorMensaje;
                n_ErrorNumber  = xMiFuncion.IntErrorNumber;
                return;
            }

            arrParametros[0, 0] = "n_idped";
            dtDetalle           = xMiFuncion.StoreDTLLenar("vta_pedidocendet_select", arrParametros, mysConec);
            if (xMiFuncion.booOcurrioError == true)
            {
                b_OcurrioError = xMiFuncion.booOcurrioError;
                c_ErrorMensaje = xMiFuncion.StrErrorMensaje;
                n_ErrorNumber  = xMiFuncion.IntErrorNumber;
                return;
            }
            return;
        }
Пример #2
0
        public BE_VTA_GUIAS TraerRegistro(int n_IdRegistro)
        {
            int          n_row    = 0;
            BE_VTA_GUIAS entGuias = new BE_VTA_GUIAS();
            DataTable    dtResult = new DataTable();
            DataTable    dtDatos  = new DataTable();
            CD_vta_guias miFun    = new CD_vta_guias();

            Helper.Comunes.Funciones ofun = new Helper.Comunes.Funciones();

            miFun.mysConec = mysConec;
            entGuias       = miFun.TraerRegistro(n_IdRegistro);
            LstDetalle     = miFun.LstDetalle;
            dtResult       = miFun.dtGuiasDoc;
            dtDatos        = miFun.dtGuiasDatos;

            if (miFun.IntErrorNumber == 0)
            {
                for (n_row = 0; n_row <= dtResult.Rows.Count - 1; n_row++)
                {
                    BE_VTA_GUIASDOC entguidoc = new BE_VTA_GUIASDOC();

                    entguidoc.n_idgui    = Convert.ToInt32(dtResult.Rows[n_row]["n_idgui"]);
                    entguidoc.n_idtipdoc = Convert.ToInt32(dtResult.Rows[n_row]["n_idtipdoc"]);
                    entguidoc.c_numdoc   = dtResult.Rows[n_row]["c_numdoc"].ToString();
                    entguidoc.n_iddoc    = Convert.ToInt32(dtResult.Rows[n_row]["n_iddoc"]);

                    LstGuiasDoc.Add(entguidoc);
                }

                if (dtDatos.Rows.Count != 0)
                {
                    e_GuiaDatos              = new BE_VTA_GUIASDATOS();
                    e_GuiaDatos.n_idgui      = Convert.ToInt32(ofun.NulosN(dtDatos.Rows[0]["n_idgui"]));
                    e_GuiaDatos.n_idtipdoc   = Convert.ToInt32(ofun.NulosN(dtDatos.Rows[0]["n_idtipdoc"]));
                    e_GuiaDatos._c_facnumser = ofun.NulosC(dtDatos.Rows[0]["c_facnumser"]).ToString();
                    e_GuiaDatos.c_facnumdoc  = ofun.NulosC(dtDatos.Rows[0]["c_facnumdoc"]).ToString();
                }
                else
                {
                    e_GuiaDatos = null;
                }
            }
            else
            {
                booOcurrioError = miFun.booOcurrioError;
                StrErrorMensaje = miFun.StrErrorMensaje;
                IntErrorNumber  = miFun.IntErrorNumber;
            }

            return(entGuias);
        }
Пример #3
0
        public bool Actualizar(BE_VTA_GUIAS entGuias, List <BE_VTA_GUIASDOC> lstGuiasDoc, BE_VTA_GUIASDATOS e_GuiaDatos)
        {
            BE_VTA_GUIAS entNuevoGuias = new BE_VTA_GUIAS();
            CD_vta_guias miFun         = new CD_vta_guias();
            bool         booOk         = false;

            miFun.mysConec = mysConec;

            entNuevoGuias.n_idemp        = entGuias.n_idemp;
            entNuevoGuias.n_id           = entGuias.n_id;
            entNuevoGuias.n_idano        = entGuias.n_idano;
            entNuevoGuias.n_idmes        = entGuias.n_idmes;
            entNuevoGuias.n_idcli        = entGuias.n_idcli;
            entNuevoGuias.n_idtipdoc     = entGuias.n_idtipdoc;
            entNuevoGuias.c_numser       = entGuias.c_numser;
            entNuevoGuias.c_numdoc       = entGuias.c_numdoc;
            entNuevoGuias.d_fchdoc       = entGuias.d_fchdoc;
            entNuevoGuias.n_idemptra     = entGuias.n_idemptra;
            entNuevoGuias.n_idmottra     = entGuias.n_idmottra;
            entNuevoGuias.c_numordcom    = entGuias.c_numordcom;
            entNuevoGuias.n_idtipdocref  = entGuias.n_idtipdocref;
            entNuevoGuias.n_iddocref     = entGuias.n_iddocref;
            entNuevoGuias.c_numdocref    = entGuias.c_numdocref;
            entNuevoGuias.d_fchpeddocref = entGuias.d_fchpeddocref;
            entNuevoGuias.d_fchentdocref = entGuias.d_fchentdocref;
            entNuevoGuias.n_idpunvencli  = entGuias.n_idpunvencli;
            entNuevoGuias.c_dirpunlle    = entGuias.c_dirpunlle;
            entNuevoGuias.c_dirpunpar    = entGuias.c_dirpunpar;
            entNuevoGuias.n_idemptra     = entGuias.n_idemptra;
            entNuevoGuias.n_idcho        = entGuias.n_idcho;
            entNuevoGuias.n_idvehtra     = entGuias.n_idvehtra;
            entNuevoGuias.n_anulado      = entGuias.n_anulado;
            entNuevoGuias.n_idpunpar     = entGuias.n_idpunpar;
            entNuevoGuias.n_idpunlle     = entGuias.n_idpunlle;
            entNuevoGuias.n_tipori       = entGuias.n_tipori;
            entNuevoGuias.n_idclides     = entGuias.n_idclides;
            entNuevoGuias.n_aplotrpro    = entGuias.n_aplotrpro;
            entNuevoGuias.n_tipgui       = entGuias.n_tipgui;

            miFun.LstDetalle = LstDetalle;
            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            booOk = miFun.Actualizar(entNuevoGuias, lstGuiasDoc, e_GuiaDatos);

            booOcurrioError = miFun.booOcurrioError;
            StrErrorMensaje = miFun.StrErrorMensaje;
            IntErrorNumber  = miFun.IntErrorNumber;

            return(booOk);
        }
Пример #4
0
        public bool CambiarEstado(int n_IdGuia, int n_IdEstado)
        {
            bool         booResult = false;
            int          n_tipori  = 0;
            BE_VTA_GUIAS e_guias   = new BE_VTA_GUIAS();

            e_guias = TraerRegistro(n_IdGuia);

            n_tipori = e_guias.n_tipori;
            string[,] arrParametros = new string[2, 3] {
                { "n_idgui", "System.INT16", n_IdGuia.ToString() },
                { "n_idest", "System.INT16", n_IdEstado.ToString() }
            };

            string[,] arrParametros2 = new string[2, 3] {
                { "n_idgui", "System.INT16", n_IdGuia.ToString() },
                { "n_tipori", "System.INT16", n_tipori.ToString() }
            };

            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            if (xMiFuncion.StoreEjecutar("vta_guiasdoc_delete", arrParametros2, mysConec) == true)
            {
                if (xMiFuncion.StoreEjecutar("vta_guiasdet_delete", arrParametros2, mysConec) == true)
                {
                    if (xMiFuncion.StoreEjecutar("vta_guias_anular", arrParametros, mysConec) == false)
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                    }
                }
                else
                {
                    booOcurrioError = xMiFuncion.booOcurrioError;
                    StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                    IntErrorNumber  = xMiFuncion.IntErrorNumber;
                }
                booResult = true;
            }
            else
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }

            return(booResult);
        }
Пример #5
0
        public BE_VTA_GUIAS TraerRegistro(int n_IdRegistro)
        {
            BE_VTA_GUIAS Ent_Guias  = new BE_VTA_GUIAS();
            DatosMySql   xMiFuncion = new DatosMySql();
            int          n_fila;
            DataTable    DtResultado = new DataTable();

            string[,] arrParametros = new string[1, 3] {
                { "n_id", "System.INT16", n_IdRegistro.ToString() }
            };
            DtResultado = xMiFuncion.StoreDTLLenar("vta_guias_obtenerregistro", arrParametros, mysConec);

            if (DtResultado.Rows.Count != 0)
            {
                Ent_Guias.n_idemp = Convert.ToInt32(DtResultado.Rows[0]["n_idemp"].ToString());

                Ent_Guias.n_idano = Convert.ToInt32(DtResultado.Rows[0]["n_idano"].ToString());
                Ent_Guias.n_idmes = Convert.ToInt32(DtResultado.Rows[0]["n_idmes"].ToString());

                Ent_Guias.n_id          = Convert.ToInt32(DtResultado.Rows[0]["n_id"].ToString());
                Ent_Guias.n_idcli       = Convert.ToInt32(DtResultado.Rows[0]["n_idcli"].ToString());
                Ent_Guias.n_idtipdoc    = Convert.ToInt32(DtResultado.Rows[0]["n_idtipdoc"].ToString());
                Ent_Guias.c_numser      = DtResultado.Rows[0]["c_numser"].ToString();
                Ent_Guias.c_numdoc      = DtResultado.Rows[0]["c_numdoc"].ToString();
                Ent_Guias.d_fchdoc      = Convert.ToDateTime(DtResultado.Rows[0]["d_fchdoc"].ToString());
                Ent_Guias.n_idemptra    = Convert.ToInt32(DtResultado.Rows[0]["n_idemptra"].ToString());
                Ent_Guias.n_idmottra    = Convert.ToInt32(DtResultado.Rows[0]["n_idmottra"].ToString());
                Ent_Guias.c_numordcom   = DtResultado.Rows[0]["c_numordcom"].ToString();
                Ent_Guias.n_idtipdocref = Convert.ToInt32(DtResultado.Rows[0]["n_idtipdocref"]);
                Ent_Guias.n_iddocref    = Convert.ToInt32(DtResultado.Rows[0]["n_iddocref"]);
                Ent_Guias.c_numdocref   = DtResultado.Rows[0]["c_numdocref"].ToString();
                if (funBas.NulosC(DtResultado.Rows[0]["d_fchpeddocref"]) != "")
                {
                    Ent_Guias.d_fchpeddocref = Convert.ToDateTime(DtResultado.Rows[0]["d_fchpeddocref"].ToString());
                }
                else
                {
                    Ent_Guias.d_fchpeddocref = null;
                }

                if (funBas.NulosC(DtResultado.Rows[0]["d_fchentdocref"]) != "")
                {
                    Ent_Guias.d_fchentdocref = Convert.ToDateTime(DtResultado.Rows[0]["d_fchentdocref"].ToString());
                }
                else
                {
                    Ent_Guias.d_fchentdocref = null;
                }

                Ent_Guias.n_idpunvencli = Convert.ToInt32(DtResultado.Rows[0]["n_idpunvencli"].ToString());
                Ent_Guias.c_dirpunlle   = DtResultado.Rows[0]["c_dirpunlle"].ToString();
                Ent_Guias.c_dirpunpar   = DtResultado.Rows[0]["c_dirpunpar"].ToString();
                Ent_Guias.n_idemptra    = Convert.ToInt32(DtResultado.Rows[0]["n_idemptra"].ToString());
                Ent_Guias.n_idcho       = Convert.ToInt32(DtResultado.Rows[0]["n_idcho"].ToString());
                Ent_Guias.n_idvehtra    = Convert.ToInt32(DtResultado.Rows[0]["n_idvehtra"].ToString());
                Ent_Guias.n_anulado     = Convert.ToInt32(DtResultado.Rows[0]["n_anulado"].ToString());
                Ent_Guias.n_tipgui      = Convert.ToInt32(DtResultado.Rows[0]["n_tipgui"]);

                Ent_Guias.n_idpunpar = Convert.ToInt32(DtResultado.Rows[0]["n_idpunpar"]);
                Ent_Guias.n_idpunlle = Convert.ToInt32(DtResultado.Rows[0]["n_idpunlle"]);

                Ent_Guias.n_chkalming = Convert.ToInt32(DtResultado.Rows[0]["n_chkalming"]);
                Ent_Guias.n_chkalmsal = Convert.ToInt32(DtResultado.Rows[0]["n_chkalmsal"]);
                Ent_Guias.n_idclides  = Convert.ToInt32(funFunciones.NulosN(DtResultado.Rows[0]["n_idclides"]));
                Ent_Guias.n_aplotrpro = Convert.ToInt32(funFunciones.NulosN(DtResultado.Rows[0]["n_aplotrpro"]));
                Ent_Guias.n_tipori    = Convert.ToInt32(funFunciones.NulosN(DtResultado.Rows[0]["n_tipori"]));
            }

            //arrParametros = "";
            arrParametros[0, 0] = "n_idgui";
            arrParametros[0, 1] = "System.INT16";
            arrParametros[0, 2] = n_IdRegistro.ToString();

            // OBTENEMOS EL DETALLE DE LA GUIA
            List <BE_VTA_GUIASDET> LstDetalleTMP = new List <BE_VTA_GUIASDET>();
            DatosMySql             FunMysql      = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            DtResultado = xMiFuncion.StoreDTLLenar("vta_guiasdet_obtenerregistro", arrParametros, mysConec);
            if (DtResultado.Rows.Count != 0)
            {
                for (n_fila = 0; n_fila <= DtResultado.Rows.Count - 1; n_fila++)
                {
                    BE_VTA_GUIASDET BE_Detalle = new BE_VTA_GUIASDET();

                    BE_Detalle.n_idgui    = Convert.ToInt32(DtResultado.Rows[n_fila]["n_idgui"].ToString());
                    BE_Detalle.n_idite    = Convert.ToInt32(DtResultado.Rows[n_fila]["n_idite"].ToString());
                    BE_Detalle.n_idtipexi = Convert.ToInt32(DtResultado.Rows[n_fila]["n_idtipexi"].ToString());
                    BE_Detalle.n_idunimed = Convert.ToInt32(DtResultado.Rows[n_fila]["n_idunimed"].ToString());
                    BE_Detalle.n_canpro   = Convert.ToDouble(DtResultado.Rows[n_fila]["n_canpro"].ToString());
                    BE_Detalle.c_numlot   = DtResultado.Rows[n_fila]["c_numlot"].ToString();

                    BE_Detalle.n_preuni = Convert.ToDouble(funFunciones.NulosN(DtResultado.Rows[n_fila]["n_preuni"]));
                    BE_Detalle.n_preven = Convert.ToDouble(funFunciones.NulosN(DtResultado.Rows[n_fila]["n_preven"]));
                    BE_Detalle.n_candev = Convert.ToDouble(funFunciones.NulosN(DtResultado.Rows[n_fila]["n_candev"]));
                    LstDetalleTMP.Add(BE_Detalle);
                }
            }
            LstDetalle = LstDetalleTMP;

            // TRAEMOS LOS DOCUMENTOS DE REFERENCIA DE LA GUIA
            dtGuiasDoc = xMiFuncion.StoreDTLLenar("vta_guiasdoc_select", arrParametros, mysConec);
            if (xMiFuncion.IntErrorNumber != 0)
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }

            string[,] arrParametros2 = new string[1, 3] {
                { "n_idgui", "System.INT16", n_IdRegistro.ToString() }
            };
            dtGuiasDatos = xMiFuncion.StoreDTLLenar("vta_guiasdatos_select", arrParametros2, mysConec);
            if (xMiFuncion.IntErrorNumber != 0)
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }
            return(Ent_Guias);
        }
Пример #6
0
        public bool Eliminar(int n_IdItem, int n_TipoOrigen)
        {
            bool booResult = false;

            string[,] arrParametros = new string[1, 3] {
                { "n_id", "System.INT16", n_IdItem.ToString() }
            };

            string[,] arrParametros2 = new string[2, 3] {
                { "n_idgui", "System.INT16", n_IdItem.ToString() },
                { "n_tipori", "System.INT16", n_TipoOrigen.ToString() }
            };

            string[,] arrParametros5 = new string[1, 3] {
                { "n_idgui", "System.INT16", n_IdItem.ToString() }
            };

            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);


            // CERRAMOS EL PEDIDO EN CASO DE SER 0 EL SALDO DEL PEDIDO
            DataTable    dtResult = new DataTable();
            int          n_row    = 0;
            bool         b_result = false;
            double       n_saldo  = 0;
            BE_VTA_GUIAS e_guia   = new BE_VTA_GUIAS();

            e_guia = TraerRegistro(n_IdItem);
            string[,] arrParametros3 = new string[1, 3] {
                { "n_idped", "System.INT16", e_guia.n_iddocref.ToString() },
            };

            dtResult = xMiFuncion.StoreDTLLenar("vta_pedidocli_mostrarentregas", arrParametros3, mysConec);
            if (dtResult != null)
            {
                if (dtResult.Rows.Count != 0)
                {
                    for (n_row = 0; n_row <= dtResult.Rows.Count - 1; n_row++)
                    {
                        n_saldo = (n_saldo + (Convert.ToDouble(funFunciones.NulosN(dtResult.Rows[n_row]["n_can"])) - Convert.ToDouble(funFunciones.NulosN(dtResult.Rows[n_row]["n_canent"]))));
                    }
                    int n_estado = 0;
                    if (n_saldo <= 0)
                    {
                        n_estado = 2;
                    }
                    if (n_saldo > 0)
                    {
                        n_estado = 1;
                    }

                    string[,] arrParametros4 = new string[2, 3] {
                        { "n_id", "System.INT64", e_guia.n_iddocref.ToString() },
                        { "n_idest", "System.INT64", n_estado.ToString() }
                    };

                    b_result = xMiFuncion.StoreEjecutar("vta_pedidocli_actualizarestado", arrParametros4, mysConec);
                    if (b_result == false)
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                        return(booResult);
                    }
                }
            }

            if (xMiFuncion.StoreEjecutar("vta_guiasdatos_delete", arrParametros5, mysConec) == true)
            {
                if (xMiFuncion.StoreEjecutar("vta_guiasdoc_delete", arrParametros2, mysConec) == true)
                {
                    if (xMiFuncion.StoreEjecutar("vta_guiasdet_delete", arrParametros2, mysConec) == true)
                    {
                        if (xMiFuncion.StoreEjecutar("vta_guias_delete", arrParametros, mysConec) == false)
                        {
                            booOcurrioError = xMiFuncion.booOcurrioError;
                            StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                            IntErrorNumber  = xMiFuncion.IntErrorNumber;
                        }
                        booResult = true;
                    }
                    else
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                    }
                }
                else
                {
                    booOcurrioError = xMiFuncion.booOcurrioError;
                    StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                    IntErrorNumber  = xMiFuncion.IntErrorNumber;
                }
            }
            else
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }
            return(booResult);
        }
Пример #7
0
        public bool Actualizar(BE_VTA_GUIAS entGuias, List <BE_VTA_GUIASDOC> lstGuiasDoc, BE_VTA_GUIASDATOS e_GuiaDatos)
        {
            bool       booOk      = false;
            DatosMySql xMiFuncion = new DatosMySql();
            int        intFila    = 0;

            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            if (xMiFuncion.StoreEjecutar("vta_guias_actualizar", entGuias, mysConec, null) == true)
            {
                // ELIMINAMOS LOS ITEMS PREVIOS
                string[,] arrParametros = new string[1, 3] {
                    { "n_idgui", "System.INT64", entGuias.n_id.ToString() }
                };
                // ELIMINAMOS LOS DOCUMENTOS RELACIONADOS A LA GUIA

                string[,] arrParametros2 = new string[2, 3] {
                    { "n_idgui", "System.INT64", entGuias.n_id.ToString() },
                    { "n_tipori", "System.INT64", entGuias.n_tipori.ToString() }
                };

                if (xMiFuncion.StoreEjecutar("vta_guiasdoc_delete", arrParametros2, mysConec) == true)
                {
                    if (xMiFuncion.StoreEjecutar("vta_guiasdet_delete", arrParametros, mysConec) == true)
                    {
                        // SI LOS ITEMS SE ELIMINARON CON EXITO INSERTAMOS LOS NUEVOS ITEMS
                        for (intFila = 0; intFila <= LstDetalle.Count - 1; intFila++)
                        {
                            // INSERTAMOS EL DETALLE DE LA GUIA
                            if (xMiFuncion.StoreEjecutar("vta_guiasdet_insertar", LstDetalle[intFila], mysConec, null) == true)
                            {
                                DataTable dtResult = new DataTable();
                                int       n_row    = 0;
                                bool      b_result = false;
                                double    n_saldo  = 0;
                                string[,] arrParametros3 = new string[1, 3] {
                                    { "n_idemp", "System.INT16", entGuias.n_iddocref.ToString() },
                                };

                                dtResult = xMiFuncion.StoreDTLLenar("vta_pedidocli_mostrarentregas", arrParametros3, mysConec);
                                if (dtResult != null)
                                {
                                    if (dtResult.Rows.Count != 0)
                                    {
                                        for (n_row = 0; n_row <= dtResult.Rows.Count - 1; n_row++)
                                        {
                                            n_saldo = (n_saldo + (Convert.ToDouble(dtResult.Rows[n_row]["n_can"]) - Convert.ToDouble(dtResult.Rows[n_row]["n_canent"])));
                                        }
                                        int n_estado = 0;
                                        if (n_saldo <= 0)
                                        {
                                            n_estado = 2;
                                        }
                                        if (n_saldo > 0)
                                        {
                                            n_estado = 1;
                                        }

                                        string[,] arrParametros4 = new string[2, 3] {
                                            { "n_id", "System.INT64", entGuias.n_iddocref.ToString() },
                                            { "n_idest", "System.INT64", n_estado.ToString() }
                                        };

                                        b_result = xMiFuncion.StoreEjecutar("vta_pedidocli_actualizarestado", arrParametros4, mysConec);
                                        if (b_result == false)
                                        {
                                            booOcurrioError = xMiFuncion.booOcurrioError;
                                            StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                                            IntErrorNumber  = xMiFuncion.IntErrorNumber;
                                            return(booOk);
                                        }
                                    }
                                }

                                //booOk = true;
                            }
                            else
                            {
                                booOcurrioError = xMiFuncion.booOcurrioError;
                                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                                IntErrorNumber  = xMiFuncion.IntErrorNumber;
                                return(booOk);
                            }
                        }

                        if (e_GuiaDatos != null)
                        {
                            // ELIMINAMOS LOS DATOS ADICIONALES
                            string[,] arrParametros5 = new string[1, 3] {
                                { "n_idgui", "System.INT64", entGuias.n_id.ToString() }
                            };
                            if (xMiFuncion.StoreEjecutar("vta_guiasdatos_delete", arrParametros5, mysConec) == false)
                            {
                                booOcurrioError = xMiFuncion.booOcurrioError;
                                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                                IntErrorNumber  = xMiFuncion.IntErrorNumber;
                                return(booOk);
                            }

                            //INSERTAMOS LOS DATOS ADICIONALES DE LA GUIA
                            e_GuiaDatos.n_idgui = entGuias.n_id;
                            if (xMiFuncion.StoreEjecutar("vta_guiasdatos_insertar", e_GuiaDatos, mysConec, null) == false)
                            {
                                booOcurrioError = xMiFuncion.booOcurrioError;
                                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                                IntErrorNumber  = xMiFuncion.IntErrorNumber;
                                return(booOk);
                            }
                        }
                        // INSERTAMOS LOS DOCUMENTOS DE REFERENCIA
                        for (intFila = 0; intFila <= lstGuiasDoc.Count - 1; intFila++)
                        {
                            lstGuiasDoc[intFila].n_idgui = entGuias.n_id;
                            if (xMiFuncion.StoreEjecutar("vta_guiasdoc_insertar", lstGuiasDoc[intFila], mysConec, null) == true)
                            {
                                booOk = true;
                            }
                            else
                            {
                                booOcurrioError = xMiFuncion.booOcurrioError;
                                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                                IntErrorNumber  = xMiFuncion.IntErrorNumber;
                                return(booOk);
                            }
                        }
                    }
                }
            }
            else
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }
            booOk = true;
            return(booOk);
        }
Пример #8
0
        public bool Insertar(BE_VTA_GUIAS entGuias, List <BE_VTA_GUIASDOC> lstGuiasDoc, BE_VTA_GUIASDATOS e_GuiaDatos)
        {
            bool       booOk      = false;
            DatosMySql xMiFuncion = new DatosMySql();
            int        intFila    = 0;

            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            if (xMiFuncion.StoreEjecutar("vta_guias_insertar", entGuias, mysConec, 1) == true)
            {
                n_IdGenerado = Convert.ToInt32(xMiFuncion.intIdGenerado);
                // INSERTAMOS EL DETALLE DE LA GUIA
                for (intFila = 0; intFila <= LstDetalle.Count - 1; intFila++)
                {
                    LstDetalle[intFila].n_idgui = Convert.ToInt32(xMiFuncion.intIdGenerado);
                    if (xMiFuncion.StoreEjecutar("vta_guiasdet_insertar", LstDetalle[intFila], mysConec, null) == true)
                    {
                        booOk = true;
                    }
                    else
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                        return(booOk);
                    }
                }

                if (e_GuiaDatos != null)
                {
                    //INSERTAMOS LOS DATOS ADICIONALES DE LA GUIA
                    e_GuiaDatos.n_idgui = n_IdGenerado;
                    if (xMiFuncion.StoreEjecutar("vta_guiasdatos_insertar", e_GuiaDatos, mysConec, null) == false)
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                        return(booOk);
                    }
                }

                // CERRAMOS EL PEDIDO EN CASO DE SER 0 EL SALDO DEL PEDIDO
                DataTable dtResult = new DataTable();
                int       n_row    = 0;
                bool      b_result = false;
                double    n_saldo  = 0;
                string[,] arrParametros3 = new string[1, 3] {
                    { "n_idped", "System.INT16", entGuias.n_iddocref.ToString() },
                };

                dtResult = xMiFuncion.StoreDTLLenar("vta_pedidocli_mostrarentregas", arrParametros3, mysConec);
                if (dtResult != null)
                {
                    if (dtResult.Rows.Count != 0)
                    {
                        for (n_row = 0; n_row <= dtResult.Rows.Count - 1; n_row++)
                        {
                            n_saldo = (n_saldo + (Convert.ToDouble(funFunciones.NulosN(dtResult.Rows[n_row]["n_can"])) - Convert.ToDouble(funFunciones.NulosN(dtResult.Rows[n_row]["n_canent"]))));
                        }
                        int n_estado = 0;
                        if (n_saldo <= 0)
                        {
                            n_estado = 2;
                        }
                        if (n_saldo > 0)
                        {
                            n_estado = 1;
                        }

                        string[,] arrParametros4 = new string[2, 3] {
                            { "n_id", "System.INT64", entGuias.n_iddocref.ToString() },
                            { "n_idest", "System.INT16", n_estado.ToString() }
                        };

                        b_result = xMiFuncion.StoreEjecutar("vta_pedidocli_actualizarestado", arrParametros4, mysConec);
                        if (b_result == false)
                        {
                            booOcurrioError = xMiFuncion.booOcurrioError;
                            StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                            IntErrorNumber  = xMiFuncion.IntErrorNumber;
                            return(booOk);
                        }
                    }
                }

                // INSERTAMOS LOS DOCUMENTOS DE REFERENCIA
                for (intFila = 0; intFila <= lstGuiasDoc.Count - 1; intFila++)
                {
                    lstGuiasDoc[intFila].n_idgui = Convert.ToInt32(n_IdGenerado);

                    string[,] arrParametros = new string[5, 3] {
                        { "n_idgui", "System.INT16", lstGuiasDoc[intFila].n_idgui.ToString() },
                        { "n_idtipdoc", "System.INT16", lstGuiasDoc[intFila].n_idtipdoc.ToString() },
                        { "c_numdoc", "System.STRING", lstGuiasDoc[intFila].c_numdoc },
                        { "n_iddoc", "System.INT16", lstGuiasDoc[intFila].n_iddoc.ToString() },
                        { "n_tipori", "System.INT16", entGuias.n_tipori.ToString() }
                    };

                    if (xMiFuncion.StoreEjecutar("vta_guiasdoc_insertar", arrParametros, mysConec) == true)
                    //lstGuiasDoc[intFila].n_idgui = Convert.ToInt32(n_IdGenerado);
                    //if (xMiFuncion.StoreEjecutar("vta_guiasdoc_insertar", lstGuiasDoc[intFila], mysConec, null) == true)
                    {
                        booOk = true;
                    }
                    else
                    {
                        booOcurrioError = xMiFuncion.booOcurrioError;
                        StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                        IntErrorNumber  = xMiFuncion.IntErrorNumber;
                        return(booOk);
                    }
                }
            }
            else
            {
                booOcurrioError = xMiFuncion.booOcurrioError;
                StrErrorMensaje = xMiFuncion.StrErrorMensaje;
                IntErrorNumber  = xMiFuncion.IntErrorNumber;
            }

            return(booOk);
        }
Пример #9
0
        private void CmdGen_Click(object sender, EventArgs e)
        {
            if (Convert.ToInt32(CboPunPar.SelectedValue) == 0)
            {
                MessageBox.Show("¡ No ha especificado el punto de partida de las guias !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                return;
            }

            BE_VTA_GUIAS           eGuiaCab    = new BE_VTA_GUIAS();
            List <BE_VTA_GUIASDET> lGuiaDet    = new List <BE_VTA_GUIASDET>();
            List <BE_VTA_GUIASDOC> lstGuiasDoc = new List <BE_VTA_GUIASDOC>();
            CN_vta_guias           miFunGui    = new CN_vta_guias();

            DataTable dtItem = new DataTable();  // AQUI CARGAMOS LOS ITEMS DE LOS PEDIDOS

            objTipDoc.mysConec = mysConec;
            miFunGui.mysConec  = mysConec;
            objPedCEN.mysConec = mysConec;

            int    n_row    = 0;
            string c_dato   = "";
            string c_cadin  = "";
            int    n_numdoc = 0;

            for (n_row = 2; n_row <= FgItems.Rows.Count - 1; n_row++)
            {
                if (funFunciones.NulosC(FgItems.GetData(n_row, 9)) == "True")
                {
                    c_dato = FgItems.GetData(n_row, 1).ToString();

                    if (funFunciones.NulosC(FgItems.GetData(n_row, 4)) == "")
                    {
                        MessageBox.Show("¡ No ha indicado el punto de venta, para el pedido Nº: " + c_dato + ", vaya a la opcion punto de venta del cliente y asigene este nuevo punto de venta !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                        return;
                    }
                    if (funFunciones.NulosC(FgItems.GetData(n_row, 5)) == "")
                    {
                        MessageBox.Show("¡ No ha indicado el punto de entrega, para el pedido Nº: " + c_dato + " !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                        return;
                    }
                    if (funFunciones.NulosC(FgItems.GetData(n_row, 6)) == "")
                    {
                        MessageBox.Show("¡ No ha indicado el nombre del chofer, para el pedido Nº: " + c_dato + " !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                        return;
                    }
                    if (funFunciones.NulosC(FgItems.GetData(n_row, 7)) == "")
                    {
                        MessageBox.Show("¡ No ha indicado la unidad de transporte, para el pedido Nº: " + c_dato + " !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                        return;
                    }
                }
            }


            // PREPARAMOS LA CADNA IN PARA TRAER LOS ITEMS DE LOS PEDIDOS
            c_cadin  = "";
            n_numdoc = 0;
            for (n_row = 2; n_row <= FgItems.Rows.Count - 1; n_row++)
            {
                if (funFunciones.NulosC(FgItems.GetData(n_row, 9)) == "True")
                {
                    n_numdoc = n_numdoc + 1;
                    if (n_numdoc == 1)
                    {
                        c_cadin = c_cadin + FgItems.GetData(n_row, 10).ToString();
                    }
                    else
                    {
                        c_cadin = c_cadin + ", " + FgItems.GetData(n_row, 10).ToString();
                    }
                }
            }

            objPedCEN.mysConec = mysConec;
            objPedCEN.TraerDetallePedidos(STU_SISTEMA.EMPRESAID, c_cadin);
            dtItem = objPedCEN.dtLista;

            for (n_row = 0; n_row <= dtItem.Rows.Count - 1; n_row++)
            {
                if (Convert.ToInt32(funFunciones.NulosN(dtItem.Rows[n_row]["n_iditem"])) == 0)
                {
                    MessageBox.Show("¡ El item con el codigo Nº " + dtItem.Rows[n_row]["c_coditecen"].ToString() + " del pedido Nº: " + c_dato + " no esta vinculado a un item del sistema, vaya a la opcion maestro productos CEN en el menu ventas y asignele un item del sistema !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                    return;
                }
            }

            int    n_idcliente   = 0;
            int    n_idpunvencli = 0;
            string c_despunlle   = "";
            string c_numdoc      = "";
            int    n_idchofer    = 0;
            int    n_idemptra    = 0;
            int    n_idvehiculo  = 0;
            string c_punpar      = "";
            int    n_idpedido    = 0;
            string c_numpedido   = "";
            string c_fchPed      = "";
            string c_FchEnt      = "";
            int    n_idpunpar    = 0;
            int    n_idpunlle    = 0;

            for (n_row = 2; n_row <= FgItems.Rows.Count - 1; n_row++)
            {
                if (funFunciones.NulosC(FgItems.GetData(n_row, 9)) == "True")
                {
                    n_idcliente = Convert.ToInt32(FgItems.GetData(n_row, 11).ToString());

                    c_dato        = FgItems.GetData(n_row, 4).ToString();
                    c_dato        = funDatos.DataTableBuscar(dtPunVen, "c_des", "n_id", c_dato, "C").ToString();
                    n_idpunvencli = Convert.ToInt32(c_dato);

                    c_numdoc = objTipDoc.UltimoNumero(STU_SISTEMA.EMPRESAID, 10, "0001");

                    c_dato     = FgItems.GetData(n_row, 7).ToString();
                    c_dato     = funDatos.DataTableBuscar(dtCho, "c_nomcho", "n_id", c_dato, "C").ToString();
                    n_idchofer = Convert.ToInt32(c_dato);

                    c_dato     = FgItems.GetData(n_row, 6).ToString();
                    c_dato     = funDatos.DataTableBuscar(dtEmpTra, "c_nombre", "n_id", c_dato, "C").ToString();
                    n_idemptra = Convert.ToInt32(c_dato);

                    c_dato       = FgItems.GetData(n_row, 8).ToString();
                    c_dato       = funDatos.DataTableBuscar(dtVeh, "c_numpla", "n_id", c_dato, "C").ToString();
                    n_idvehiculo = Convert.ToInt32(c_dato);

                    c_dato     = FgItems.GetData(n_row, 10).ToString();
                    n_idpedido = Convert.ToInt32(c_dato);

                    c_numpedido = FgItems.GetData(n_row, 1).ToString();

                    c_fchPed = FgItems.GetData(n_row, 2).ToString();
                    c_FchEnt = FgItems.GetData(n_row, 3).ToString();

                    n_idpunpar = Convert.ToInt32(CboPunPar.SelectedValue);
                    c_dato     = funDatos.DataTableBuscar(dtPunPar, "n_id", "c_dir", n_idpunpar.ToString(), "N").ToString();
                    c_punpar   = c_dato;

                    c_dato      = FgItems.GetData(n_row, 5).ToString();
                    c_dato      = funDatos.DataTableBuscar(dtPunVen, "c_des", "n_id", c_dato, "C").ToString();
                    n_idpunlle  = Convert.ToInt32(c_dato);
                    c_dato      = funDatos.DataTableBuscar(dtPunVen, "n_id", "c_dir", n_idpunlle.ToString(), "C").ToString();
                    c_despunlle = c_dato;

                    eGuiaCab.n_idemp        = STU_SISTEMA.EMPRESAID;
                    eGuiaCab.n_id           = 0;
                    eGuiaCab.n_idtipdoc     = 10;
                    eGuiaCab.n_idcli        = n_idcliente;
                    eGuiaCab.n_idpunvencli  = n_idpunvencli;
                    eGuiaCab.c_dirpunlle    = c_despunlle;
                    eGuiaCab.c_numser       = "0001";
                    eGuiaCab.c_numdoc       = c_numdoc;
                    eGuiaCab.d_fchdoc       = DateTime.Now;
                    eGuiaCab.n_idmottra     = 1;
                    eGuiaCab.n_idcho        = n_idchofer;
                    eGuiaCab.n_idemptra     = n_idemptra;
                    eGuiaCab.n_idvehtra     = n_idvehiculo;
                    eGuiaCab.c_dirpunpar    = c_punpar;
                    eGuiaCab.n_idtipdocref  = 79;          // LE INDICAMOS QUE EL TIPO DE DOCUMENTO DE REFERENCIA EL EL PEDIDO CEN DE CLIENTE
                    eGuiaCab.n_iddocref     = n_idpedido;
                    eGuiaCab.c_numdocref    = c_numpedido;
                    eGuiaCab.d_fchpeddocref = Convert.ToDateTime(c_fchPed);
                    eGuiaCab.d_fchentdocref = Convert.ToDateTime(c_FchEnt);
                    eGuiaCab.n_anulado      = 1;
                    eGuiaCab.c_numordcom    = c_numpedido;
                    eGuiaCab.n_tipgui       = 3;
                    eGuiaCab.n_idpunpar     = n_idpunpar;
                    eGuiaCab.n_idpunlle     = n_idpunlle;
                    eGuiaCab.n_idmes        = STU_SISTEMA.MESTRABAJO;
                    eGuiaCab.n_idano        = STU_SISTEMA.ANOTRABAJO;
                    eGuiaCab.n_chkalmsal    = 1;
                    eGuiaCab.n_chkalming    = 1;
                    //eGuiaCab.n_iddocven = 0;
                    eGuiaCab.n_tipori = 1;

                    // AGREGAMOS EL DETALLE DE LA GUIA
                    int n_fil = 0;
                    lGuiaDet.Clear();
                    for (n_fil = 0; n_fil <= dtItem.Rows.Count - 1; n_fil++)
                    {
                        if (Convert.ToInt32(dtItem.Rows[n_fil]["n_idped"]) == n_idpedido)
                        {
                            BE_VTA_GUIASDET eDetalle = new BE_VTA_GUIASDET();

                            eDetalle.n_idgui    = 0;
                            eDetalle.n_idite    = Convert.ToInt32(dtItem.Rows[n_fil]["n_iditem"]);
                            eDetalle.n_idunimed = Convert.ToInt32(dtItem.Rows[n_fil]["n_idunimed"]);
                            eDetalle.n_canpro   = Convert.ToDouble(dtItem.Rows[n_fil]["n_canpro"]);
                            eDetalle.d_fchpro   = null;
                            eDetalle.d_fchven   = null;
                            eDetalle.c_numlot   = "";
                            eDetalle.n_idtipexi = 2;
                            eDetalle.n_iddocref = 0;

                            lGuiaDet.Add(eDetalle);
                        }
                    }

                    // AGREGAMOS LOS DOCUMENTOS ADJUNTOS DE LA GUIA
                    n_fil = 0;
                    lstGuiasDoc.Clear();
                    BE_VTA_GUIASDOC   e_GuiaDoc   = new BE_VTA_GUIASDOC();
                    BE_VTA_GUIASDATOS e_GuiaDatos = new BE_VTA_GUIASDATOS();

                    e_GuiaDoc.n_idgui    = 0;
                    e_GuiaDoc.n_idtipdoc = 79;
                    //e_GuiaDoc.c_numdoc = eGuiaCab.c_numser + "-" + eGuiaCab.c_numdoc;
                    e_GuiaDoc.c_numdoc = "";
                    e_GuiaDoc.n_iddoc  = n_idpedido;

                    lstGuiasDoc.Add(e_GuiaDoc);


                    miFunGui.LstDetalle = lGuiaDet;
                    if (miFunGui.Insertar(eGuiaCab, lstGuiasDoc, e_GuiaDatos) == true)
                    {
                        c_numpedido = FgItems.GetData(n_row, 1).ToString();
                        // ACTUALIZAMOS EL ID DE LA GUIA DE DESPACHO EN EL PEDIDO CEN
                        if (objPedCEN.ActualizarGuiaDespacho(n_idpedido, Convert.ToInt32(miFunGui.n_IdGenerado), 2) == false)
                        {
                            MessageBox.Show("¡ No se pudo actualizar la guia de desapacho para el pedido Nº " + c_numpedido + " !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                        }
                    }
                }
            }
            MessageBox.Show("¡ Los pedidos se despacharon con exito !", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
            MostrarPedidos();
        }
Пример #10
0
        public bool Insertar(BE_VTA_GUIAS entGuias, List <BE_VTA_GUIASDOC> lstGuiasDoc, BE_VTA_GUIASDATOS e_GuiaDatos)
        {
            BE_VTA_GUIAS entNuevoGuias = new BE_VTA_GUIAS();
            CD_vta_guias miFun         = new CD_vta_guias();
            bool         booOk         = false;

            miFun.mysConec = mysConec;

            entNuevoGuias.n_idemp        = entGuias.n_idemp;
            entNuevoGuias.n_id           = entGuias.n_id;
            entNuevoGuias.n_idano        = entGuias.n_idano;
            entNuevoGuias.n_idmes        = entGuias.n_idmes;
            entNuevoGuias.n_idcli        = entGuias.n_idcli;
            entNuevoGuias.n_idtipdoc     = entGuias.n_idtipdoc;
            entNuevoGuias.c_numser       = entGuias.c_numser;
            entNuevoGuias.c_numdoc       = entGuias.c_numdoc;
            entNuevoGuias.d_fchdoc       = entGuias.d_fchdoc;
            entNuevoGuias.n_idemptra     = entGuias.n_idemptra;
            entNuevoGuias.n_idmottra     = entGuias.n_idmottra;
            entNuevoGuias.n_idtipdocref  = entGuias.n_idtipdocref;
            entNuevoGuias.n_iddocref     = entGuias.n_iddocref;
            entNuevoGuias.c_numordcom    = entGuias.c_numordcom;
            entNuevoGuias.d_fchpeddocref = entGuias.d_fchpeddocref;
            entNuevoGuias.d_fchentdocref = entGuias.d_fchentdocref;
            entNuevoGuias.n_idpunvencli  = entGuias.n_idpunvencli;
            entNuevoGuias.c_dirpunlle    = entGuias.c_dirpunlle;
            entNuevoGuias.c_dirpunpar    = entGuias.c_dirpunpar;
            entNuevoGuias.n_idemptra     = entGuias.n_idemptra;
            entNuevoGuias.n_idcho        = entGuias.n_idcho;
            entNuevoGuias.n_idvehtra     = entGuias.n_idvehtra;
            entNuevoGuias.n_anulado      = entGuias.n_anulado;
            entNuevoGuias.n_tipgui       = entGuias.n_tipgui;
            entNuevoGuias.c_numdocref    = entGuias.c_numdocref;
            entNuevoGuias.n_idpunpar     = entGuias.n_idpunpar;
            entNuevoGuias.n_idpunlle     = entGuias.n_idpunlle;
            entNuevoGuias.n_tipori       = entGuias.n_tipori;
            entNuevoGuias.n_idclides     = entGuias.n_idclides;
            entNuevoGuias.n_aplotrpro    = entGuias.n_aplotrpro;

            miFun.LstDetalle = LstDetalle;
            DatosMySql FunMysql = new DatosMySql();

            mysConec = FunMysql.ReAbrirConeccion(mysConec);

            booOk = miFun.Insertar(entNuevoGuias, lstGuiasDoc, e_GuiaDatos);

            if (booOk == true)
            {
                if (entGuias.n_idtipdocref == 3)
                {
                    n_IdGenerado = miFun.n_IdGenerado;
                    CD_log_ordenrequerimiento objReq = new CD_log_ordenrequerimiento();
                    objReq.mysConec = mysConec;

                    int n_row      = 0;
                    int n_iddocref = 0;

                    for (n_row = 0; n_row <= lstGuiasDoc.Count - 1; n_row++)
                    {
                        n_iddocref = lstGuiasDoc[n_row].n_iddoc;
                        booOk      = objReq.ActualizarEstadoRequerimiento(n_iddocref, 3);        // ACTUALIZAMOS LA ORDEN DE REQUERIMIENTO A 3 QUE INDICA EL ESTADO DE PROCESADO
                        if (booOk == false)
                        {
                            booOcurrioError = miFun.booOcurrioError;
                            StrErrorMensaje = miFun.StrErrorMensaje;
                            IntErrorNumber  = miFun.IntErrorNumber;

                            break;
                        }
                    }
                }
            }
            else
            {
                booOcurrioError = miFun.booOcurrioError;
                StrErrorMensaje = miFun.StrErrorMensaje;
                IntErrorNumber  = miFun.IntErrorNumber;
            }
            return(booOk);
        }