Exemplo n.º 1
0
        public void ConsultaFinalAlRFC(string idConsulta, string partner)
        {
            SapConnectorClientToBC proxy         = conn.establecerConeccionSap();
            Z00_BURO_INTLTable     resultadoIntl = new Z00_BURO_INTLTable();
            Z00_BURO_PNTable       resultadoPN   = new Z00_BURO_PNTable();
            Z00_BURO_PATable       resultadoPA   = new Z00_BURO_PATable();

            try
            {
                proxy.Connection.Open();
                proxy.Zrfc_Buro_Bp(idConsulta, partner, ref resultadoIntl, ref resultadoPA, ref resultadoPN);
                proxy.Connection.Close();
            }
            catch (SAP.Connector.RfcLogonException a)
            {
                Console.WriteLine("Existe un error el Usuario o contraseña, el sistema no se ha podido conectar " + a);
            }
            catch (SAP.Connector.RfcCommunicationException a)
            {
                Console.WriteLine("El usuario se tardo demacionado en aceptar que la conexion era segura" + a);
            }
            catch (SAP.Connector.RfcException a)
            {
                Console.WriteLine("No se encontro el RFC" + a);
            }
            //Begin JRojas : Convierte del resulta de ABAP a ojetos locales de .NET para facilitar su manejo

            /*DataTable dt = resultadoIntl.ToADODataTable();
             * DataTable dt2 = resultadoPN.ToADODataTable();
             * DataTable dt3 = resultadoPA.ToADODataTable();
             *
             * FormatoINTL objConsulta = new FormatoINTL();
             *
             * objConsulta.setDataTableEncabezadoIntl(dt);//Envie a la clase FormateINTL su correspondiente datatable
             * objConsulta.setDataTableSegmentoPN(dt2);//Envie a la clase FormateINTL su correspondiente datatable
             * objConsulta.setDataTableSegmentoPA(dt3);//Envie a la clase FormateINTL su correspondiente datatable
             */
            dataTableEncabezadoIntl = resultadoIntl.ToADODataTable();
            dataTableSegmentoPN     = resultadoPN.ToADODataTable();
            dataTableSegmentoPA     = resultadoPA.ToADODataTable();


            //END JRojas

            //BEGIN JRojas : Para la creacion la consulta se tienen que mandar llamar en este orden
            string Consulta;

            Consulta  = EncabezadoINTL();
            Consulta += SegmentoDeNombre();
            Consulta += SegmentoDeDireccion();
            Consulta  = SegmentoDeCierre(Consulta);
            Console.WriteLine(Consulta);
        }
Exemplo n.º 2
0
        public void ConsultaFinalAlRFC(string idConsulta,string partner)
        {
            SapConnectorClientToBC proxy = conn.establecerConeccionSap();
            Z00_BURO_INTLTable resultadoIntl = new Z00_BURO_INTLTable();
            Z00_BURO_PNTable resultadoPN = new Z00_BURO_PNTable();
            Z00_BURO_PATable resultadoPA = new Z00_BURO_PATable();
            try
            {
                proxy.Connection.Open();
                proxy.Zrfc_Buro_Bp(idConsulta,partner,ref resultadoIntl,ref resultadoPA,ref resultadoPN);
                proxy.Connection.Close();
            }
            catch(SAP.Connector.RfcLogonException a)
            {
                Console.WriteLine("Existe un error el Usuario o contraseña, el sistema no se ha podido conectar "+a);
            }
            catch(SAP.Connector.RfcCommunicationException a)
            {
                Console.WriteLine("El usuario se tardo demacionado en aceptar que la conexion era segura"+a);

            }
            catch(SAP.Connector.RfcException a)
            {
                Console.WriteLine("No se encontro el RFC"+a);

            }
            //Begin JRojas : Convierte del resulta de ABAP a ojetos locales de .NET para facilitar su manejo
            /*DataTable dt = resultadoIntl.ToADODataTable();
            DataTable dt2 = resultadoPN.ToADODataTable();
            DataTable dt3 = resultadoPA.ToADODataTable();

            FormatoINTL objConsulta = new FormatoINTL();

            objConsulta.setDataTableEncabezadoIntl(dt);//Envie a la clase FormateINTL su correspondiente datatable
            objConsulta.setDataTableSegmentoPN(dt2);//Envie a la clase FormateINTL su correspondiente datatable
            objConsulta.setDataTableSegmentoPA(dt3);//Envie a la clase FormateINTL su correspondiente datatable
            */
            dataTableEncabezadoIntl= resultadoIntl.ToADODataTable();
            dataTableSegmentoPN = resultadoPN.ToADODataTable();
            dataTableSegmentoPA = resultadoPA.ToADODataTable();

            //END JRojas

            //BEGIN JRojas : Para la creacion la consulta se tienen que mandar llamar en este orden
            string Consulta;
            Consulta = EncabezadoINTL();
            Consulta += SegmentoDeNombre();
            Consulta += SegmentoDeDireccion();
            Consulta = SegmentoDeCierre(Consulta);
            Console.WriteLine(Consulta);
        }
Exemplo n.º 3
0
        public string ConsultaFinalAlRFC(string idConsulta,string partner)
        {
            SapConnectorClientToBC proxy = conn.establecerConeccionSap();

            Z00_BURO_INTLTable resultadoIntl = new Z00_BURO_INTLTable();
            Z00_BURO_PNTable resultadoPN = new Z00_BURO_PNTable();
            Z00_BURO_PATable resultadoPA = new Z00_BURO_PATable();
            try
            {
                proxy.Connection.Open();
                proxy.Zrfc_Buro_Bp(idConsulta,partner,ref resultadoIntl,ref resultadoPA,ref resultadoPN);
                proxy.Connection.Close();
            }
            catch(SAP.Connector.RfcLogonException a)
            {
                Console.WriteLine("*Existe un error el Usuario o contrasena, el sistema no se ha podido conectar a SAP.");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch(SAP.Connector.RfcCommunicationException a)
            {
                Console.WriteLine("*No se encontrado el Servidor o el usuario se tardo demacionado en aceptar que la conexion era segura.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch(SAP.Connector.RfcException a)
            {
                Console.WriteLine("*No se encontro el RFC.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch (Exception a)
            {
                Console.WriteLine("*Excepcion desconocida.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }

            dataTableEncabezadoIntl= resultadoIntl.ToADODataTable();
            dataTableSegmentoPN = resultadoPN.ToADODataTable();
            dataTableSegmentoPA = resultadoPA.ToADODataTable();

            string Consulta;
            Consulta = EncabezadoINTL();
            Consulta += SegmentoDeNombre();
            Consulta += SegmentoDeDireccion();
            Consulta = SegmentoDeCierre(Consulta);
            if (Consulta != "")
            {
                #region Remplazar acentos y caracteres varios
                Consulta = Consulta.Replace("ñ", "n");
                Consulta = Consulta.Replace("Ñ", "N");
                Consulta = Consulta.Replace("á", "a");
                Consulta = Consulta.Replace("à", "a");
                Consulta = Consulta.Replace("ä", "a");
                Consulta = Consulta.Replace("é", "e");
                Consulta = Consulta.Replace("è", "e");
                Consulta = Consulta.Replace("ë", "e");
                Consulta = Consulta.Replace("í", "i");
                Consulta = Consulta.Replace("ì", "i");
                Consulta = Consulta.Replace("ï", "i");
                Consulta = Consulta.Replace("ó", "o");
                Consulta = Consulta.Replace("ò", "o");
                Consulta = Consulta.Replace("ö", "o");
                Consulta = Consulta.Replace("ú", "u");
                Consulta = Consulta.Replace("ù", "u");
                Consulta = Consulta.Replace("u", "u");
                Consulta = Consulta.Replace("Á", "A");
                Consulta = Consulta.Replace("À", "A");
                Consulta = Consulta.Replace("Ä", "A");
                Consulta = Consulta.Replace("É", "E");
                Consulta = Consulta.Replace("È", "E");
                Consulta = Consulta.Replace("Ë", "E");
                Consulta = Consulta.Replace("Í", "I");
                Consulta = Consulta.Replace("Ì", "I");
                Consulta = Consulta.Replace("Ï", "I");
                Consulta = Consulta.Replace("Ó", "O");
                Consulta = Consulta.Replace("Ò", "O");
                Consulta = Consulta.Replace("Ö", "O");
                Consulta = Consulta.Replace("Ú", "U");
                Consulta = Consulta.Replace("Ù", "U");
                Consulta = Consulta.Replace("Ü", "U");
                Consulta = Consulta.Replace("ç", "c");
                Consulta = Consulta.Replace("Ç", "C");
                Consulta = Consulta.Replace("|", " ");
                #endregion
            }
            if (existenRequeritos == false)
            {
                this.verificarRequeridos();
            }
            return Consulta;
        }
Exemplo n.º 4
0
        public string ConsultaFinalAlRFC(string idConsulta, string partner)
        {
            SapConnectorClientToBC proxy = conn.establecerConeccionSap();

            Z00_BURO_INTLTable resultadoIntl = new Z00_BURO_INTLTable();
            Z00_BURO_PNTable   resultadoPN   = new Z00_BURO_PNTable();
            Z00_BURO_PATable   resultadoPA   = new Z00_BURO_PATable();

            try
            {
                proxy.Connection.Open();
                proxy.Zrfc_Buro_Bp(idConsulta, partner, ref resultadoIntl, ref resultadoPA, ref resultadoPN);
                proxy.Connection.Close();
            }
            catch (SAP.Connector.RfcLogonException a)
            {
                Console.WriteLine("*Existe un error el Usuario o contrasena, el sistema no se ha podido conectar a SAP.");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch (SAP.Connector.RfcCommunicationException a)
            {
                Console.WriteLine("*No se encontrado el Servidor o el usuario se tardo demacionado en aceptar que la conexion era segura.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch (SAP.Connector.RfcException a)
            {
                Console.WriteLine("*No se encontro el RFC.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }
            catch (Exception a)
            {
                Console.WriteLine("*Excepcion desconocida.\n");
                Console.WriteLine("Excepcion en .NET:  \n " + a);
                System.Environment.Exit(0);
            }

            dataTableEncabezadoIntl = resultadoIntl.ToADODataTable();
            dataTableSegmentoPN     = resultadoPN.ToADODataTable();
            dataTableSegmentoPA     = resultadoPA.ToADODataTable();

            string Consulta;

            Consulta  = EncabezadoINTL();
            Consulta += SegmentoDeNombre();
            Consulta += SegmentoDeDireccion();
            Consulta  = SegmentoDeCierre(Consulta);
            if (Consulta != "")
            {
                #region Remplazar acentos y caracteres varios
                Consulta = Consulta.Replace("ñ", "n");
                Consulta = Consulta.Replace("Ñ", "N");
                Consulta = Consulta.Replace("á", "a");
                Consulta = Consulta.Replace("à", "a");
                Consulta = Consulta.Replace("ä", "a");
                Consulta = Consulta.Replace("é", "e");
                Consulta = Consulta.Replace("è", "e");
                Consulta = Consulta.Replace("ë", "e");
                Consulta = Consulta.Replace("í", "i");
                Consulta = Consulta.Replace("ì", "i");
                Consulta = Consulta.Replace("ï", "i");
                Consulta = Consulta.Replace("ó", "o");
                Consulta = Consulta.Replace("ò", "o");
                Consulta = Consulta.Replace("ö", "o");
                Consulta = Consulta.Replace("ú", "u");
                Consulta = Consulta.Replace("ù", "u");
                Consulta = Consulta.Replace("u", "u");
                Consulta = Consulta.Replace("Á", "A");
                Consulta = Consulta.Replace("À", "A");
                Consulta = Consulta.Replace("Ä", "A");
                Consulta = Consulta.Replace("É", "E");
                Consulta = Consulta.Replace("È", "E");
                Consulta = Consulta.Replace("Ë", "E");
                Consulta = Consulta.Replace("Í", "I");
                Consulta = Consulta.Replace("Ì", "I");
                Consulta = Consulta.Replace("Ï", "I");
                Consulta = Consulta.Replace("Ó", "O");
                Consulta = Consulta.Replace("Ò", "O");
                Consulta = Consulta.Replace("Ö", "O");
                Consulta = Consulta.Replace("Ú", "U");
                Consulta = Consulta.Replace("Ù", "U");
                Consulta = Consulta.Replace("Ü", "U");
                Consulta = Consulta.Replace("ç", "c");
                Consulta = Consulta.Replace("Ç", "C");
                Consulta = Consulta.Replace("|", " ");
                #endregion
            }
            if (existenRequeritos == false)
            {
                this.verificarRequeridos();
            }
            return(Consulta);
        }