|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - senzao18
Páginas: 1 ... 12 13 [14] 15 16 ... 26
326
« en: Sábado 6 de Mayo de 2006, 19:53 »
La bapi es una hecha por nosotros.....
327
« en: Jueves 27 de Abril de 2006, 19:40 »
Si alguien me contesta esta pregunta sera mi salvador jeje...
En la Transaccion ME21N y ME22N necesito hacer traslados mediante una bapi.
Pues da la casualidad que con unos cuantos articulos y tallas si sale... Pero....
Cuando son muchos, solo me pone unos cuantos y los demas truenan como huevo...
Esto por que es? Pues el Grid solo despliega 10 posiciones y si yo le mando mas de 10 posiciones,, ya me empieza a decir que el Campo(110) no existe para el DynPro .......
Las preguntas son....
¿Que se hace en estos casos?
¿Hay alguna forma de decirle mediante abap que recorra el Grid?
¿Cual es el truco ?
Espero y puedan ayudarme
328
« en: Miércoles 26 de Abril de 2006, 06:23 »
Bueno esa es otra solucion jjeje...
329
« en: Lunes 24 de Abril de 2006, 21:48 »
Bueno creo que me explique maL..... Por ejemplon si esa estructura la tienes en un proyecto de clases... para mandarla llamar seria algo asi... Supongamos que la estructura esta en el archivo MyClass.vb que tiene la siguente forma: Public Class MyClass Friend Function AplicarTraslado(ByVal dsTraslado As DataSet) As StatusAplicarTraslado Return oSAT End Function Public Class MyClass Public Structure StatusAplicarTraslado Private strFolioTraslado As String Dim ME21N As Boolean Dim ME22N As Boolean Dim MB1B As Boolean Dim Diferencias As Boolean Dim Centro As String Dim FolioMB1B As String Public Property FolioTraslado() As String Get Return strFolioTraslado End Get Set(ByVal Value As String) strFolioTraslado = Value If Value <> String.Empty Then ME21N = True Else ME21N = False End If End Set End Property End Structure
Cuando yo quiere reciber esa estructura desde un form yo tengo que declararla y usarla mas o menos asi. Dim oMyClass as new MyClass Dim oSAT as MyClass.Structure StatusAplicarTraslado oSat = oMyClass.AplicarTraslado Y listo con eso ya no marca error. Si quieres el ejemplo mas completo solo pidelo... Bueno aunque creo que con esto ya no tendras dudas...
330
« en: Domingo 23 de Abril de 2006, 08:01 »
Nunca me ha gustado ese tipo de soluciones pero en fin se resulta adelante jaja  ..... En lo personal odio que se haga funcionalidad en VB 6.0 para ser aplicada en .Net. Pero es muy mi punto de vista. Lo que pasa es que eh tenido problemas con un compañero de trabajo de que todo lo hace en VB 6.0 y nos pasa los explotacomponentes  .
331
« en: Sábado 22 de Abril de 2006, 21:57 »
Holas foreros....
Tengo una bapi que es llama desde un sistema esterno SAP
La bapi ejecuta un calltransaction.. Cuando la ejecuto desde SAP ya sea en modo N o A sale todo bien, pero cuando la llamo desde el sistema externo me marca el siguiente error
Exception condition "CNTL_ERROR" raised.
Alguna idea de que sea ???
332
« en: Sábado 22 de Abril de 2006, 17:41 »
Mira amigito..... Aqui todos queremos ayudar..  . Solo que en ocasiones no hay time...  Yo en mi programa de Fotomosaicos lo saco de la siguiente forma.... CType(Me.PictureBox1.Image(), Bitmap).GetPixel(Px, Py).ToArgb() Solo tendrias que acomodar el evento creo que es el MosuseOver del Picture con tu imagen para sacar Px y Py..... Bueno espero que te sea de utilidad...... Y si tienes otra solucion hasla saber  .....-
333
« en: Sábado 22 de Abril de 2006, 03:22 »
Ni idea amigo... Si lo que modificaste fue algo de codigo no deberia de cambiar mucho....
334
« en: Sábado 22 de Abril de 2006, 03:21 »
Tienes que declarar una estrucutra del tipo Clase.Structure....
Por que para VB.Net la estructura
Form1.Structure y Class.Structure son diferentes.......Aunque tenga los mismos elementos...
335
« en: Sábado 22 de Abril de 2006, 03:17 »
Dale una leida a este post. Controlar X
336
« en: Jueves 20 de Abril de 2006, 03:21 »
Con el evento MouseOVer dependiendo de la coordenada en la imagen.... Que sea el link ... Algo asi
337
« en: Jueves 20 de Abril de 2006, 03:18 »
Ah pues en esa variable mando la configuracion de la aplicacion...
Por ejemplo el servidor de base de datos......
Impuestos
Almacen
Caja
FolioFactura....
Servidor Web
todo lo que te puedas imaginar..... que necwesite un punto de venta que controle Ventas a Credito, Clientes, etc... Y actualmente comunicacion con SAP....
En pocas palabras esa variable no la encontraras jeeje
338
« en: Jueves 20 de Abril de 2006, 00:09 »
esperare tu post ....
339
« en: Miércoles 19 de Abril de 2006, 21:20 »
Ups... Dim oGenArch As New GenerarArch(oApplicationContext)
Borra eso jaja, se me paso quitarla.. De hecho ahi tengo las funciones para crear la tabla y obtern los datos de SQL Server... Pero en este caso no se necesitan.... Lo que hago con las tres funciones que mande es lo siguiente.... Como te explico.. Esque .. mira....  Primero Creo La tabla.. Luego hago un select a la misma llenando un recordset de esos que se usane n VB 6.0. Y a ese le agrego los registros.. oRstDBF.AddNew() Me crea un registro de trabajo (asi le digo yo).... Y le meto los valores a las columnas....
340
« en: Miércoles 19 de Abril de 2006, 21:03 »
Bueno lo logre de la siguiente manera...
***Selecciono los traslados de EKBE y los quito de t_zekko.
SELECT DISTINCT ebeln
FROM ekbe
INTO CORRESPONDING FIELDS OF TABLE t_zekko_del.
LOOP AT t_zekko.
v_tabix = sy-tabix.
LOOP AT t_zekko_del WHERE ebeln = t_zekko-ebeln.
DELETE t_zekko INDEX v_tabix.
EXIT.
ENDLOOP.
ENDLOOP.
Se aceptan sugerencias...
341
« en: Miércoles 19 de Abril de 2006, 20:31 »
Hola tengo una dudita.... SELECT ebeln aedat reswk ekgrp bedat FROM ekko INTO CORRESPONDING FIELDS OF TABLE t_zekko WHERE aedat < sy-datum AND bsakz EQ 'T' AND bstyp EQ 'F' AND statu EQ '9' AND ebeln BETWEEN 430000000 AND 4399999999.
Yo uso la instruccion anterior para obtener los traslados de mercancia....Pero ahora me encuentro de que cuando el traslado se concluye no queda marcado... Encontre la Tabla EKBE la cual se llena con los traslados ya concluidos.... Alguno de ustedes sabe como podria sacar de la tabla EKKO todos los registros en el cual el campo EBLN(Su Contenido) no se encuentre en la tabla EKBE.... Alguna idea?? La solucion que yo imagino es seleccionando primero los de EKKO luego barrer esa tabla y buscar si existe en EKBE si existe borrarlo de la Estructura.... Pero creo que es algo lenta mi solucion... ALguna idea....??? Resumen.- Como sacar de una tabla todos los registros en el cual su indice no se encuentre en otra.
342
« en: Miércoles 19 de Abril de 2006, 17:50 »
Esa pagina es de dios... 
343
« en: Miércoles 19 de Abril de 2006, 17:50 »
 OK Te ajunto un ejemplo... Public Sub Familias() Dim oGenArch As New GenerarArch(oApplicationContext) Dim dsMultU As DataSet, drMultU As DataRow, vlComando As String, vlCadena As String CrearDBF("C:\DPT\AUD\", "FAMILIA", "[Codigo] TEXT (2), [Nombre] TEXT (25)") Dim oConDBF As New ADODB.ConnectionClass Dim oRstDBF As New ADODB.RecordsetClass oConDBF.Open("DRIVER={Microsoft dBASE Driver (*.dbf)};DBQ=C:\DPT\AUD\") oRstDBF.Open("SELECT * FROM [FAMILIA];", oConDBF, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText) vlComando = "SELECT * FROM CatalogoFamilias" dsMultU = DatosATrans(vlComando, "CatalogoFamilias") For Each drMultU In dsMultU.Tables(0).Rows oRstDBF.AddNew() oRstDBF.Fields("Codigo").Value = drMultU!CodFamilia vlCadena = drMultU!Descripcion If vlCadena.Length > 25 Then oRstDBF.Fields("Nombre").Value = vlCadena.Substring(0, 25) Else oRstDBF.Fields("Nombre").Value = drMultU!Descripcion End If oRstDBF.Update() Next dsMultU = Nothing oRstDBF.Close() oConDBF.Close() End Sub Public Sub CrearDBF(ByVal Base As String, ByVal Nombre As String, ByVal Campos As String) Dim pconBase As Odbc.OdbcConnection Dim pcmdTB As Odbc.OdbcCommand pconBase = New Odbc.OdbcConnection pcmdTB = New Odbc.OdbcCommand pconBase.ConnectionString = "DRIVER={Microsoft dBASE Driver (*.dbf)};DBQ=" & Base pconBase.Open() pcmdTB.CommandText = "CREATE TABLE [" & Nombre & "] (" & Campos & ");" pcmdTB.Connection = pconBase pcmdTB.ExecuteNonQuery() pconBase.Close() End Sub Public Function DatosATrans(ByVal strComandSQL As String, ByVal strTabla As String) As DataSet Dim sccnnConnection As New SqlConnection(oApplicationContext.ApplicationConfiguration.DataStorageConfiguration. _ GetConnectionString) Dim sccmdSelectAll As SqlCommand Dim scdaMovCont As SqlDataAdapter Dim dsMovCont As DataSet sccmdSelectAll = New SqlCommand scdaMovCont = New SqlDataAdapter dsMovCont = New DataSet With sccmdSelectAll .Connection = sccnnConnection .CommandText = "[DatosATrans]" .CommandType = System.Data.CommandType.StoredProcedure .Parameters.Add(New System.Data.SqlClient.SqlParameter("@ComandSQL", System.Data.SqlDbType.Text)) End With scdaMovCont.SelectCommand = sccmdSelectAll Try sccnnConnection.Open() scdaMovCont.SelectCommand.Parameters("@ComandSQL").Value = strComandSQL 'Fill DataSet scdaMovCont.Fill(dsMovCont, strTabla) sccnnConnection.Close() Catch oSqlException As SqlException If (sccnnConnection.State <> ConnectionState.Closed) Then Try sccnnConnection.Close() Catch End Try End If Throw New ApplicationException("Los registros no pudieron ser leidos debido a un error de base de datos.", oSqlException) Catch ex As Exception If (sccnnConnection.State <> ConnectionState.Closed) Then Try sccnnConnection.Close() Catch End Try End If Throw New ApplicationException("Los registros no pudieron ser leidos debido a un error de aplicación.", ex) End Try sccnnConnection.Dispose() sccnnConnection = Nothing Return dsMovCont End Function
Espero y con esto te ayude.... Las funciones se pueden optimizar mas para exportar cualquier DataTable.... Solo es cuestion de meterlo algo mas de empeño....  .. P.D. Lo use en VB 2003...
344
« en: Martes 18 de Abril de 2006, 03:10 »
Holas hice la siguiente BAPI y me gustaria saber si se puede hacer que corra mas rapido... haber si alguien me ayuda a tener un codigo mas eficiente ....
FUNCTION zbapi_traslado_selall.
*"----------------------------------------------------------------------
*"*"Interfase local
*" TABLES
*" T_ZEKKO STRUCTURE ZSEKKO OPTIONAL
*" T_ZEKPO STRUCTURE ZSEKPO OPTIONAL
*" T_ZEKET STRUCTURE ZSEKET OPTIONAL
*"----------------------------------------------------------------------
*CABECERA.
SELECT ebeln aedat reswk ekgrp bedat
FROM ekko INTO CORRESPONDING FIELDS OF TABLE t_zekko
WHERE aedat < sy-datum AND bsakz EQ 'T' AND bstyp EQ 'F' AND statu EQ '9' AND ebeln BETWEEN 430000000 AND 4399999999.
**Articulos.
LOOP AT t_zekko.
SELECT ebeln ebelp matnr menge
APPENDING CORRESPONDING FIELDS OF TABLE t_zekpo
FROM ekpo
WHERE loekz NE 'L' AND ebeln = t_zekko-ebeln.
ENDLOOP.
***Tallas
LOOP AT t_zekpo.
SELECT ebeln ebelp j_3asize menge
FROM eket APPENDING CORRESPONDING FIELDS OF TABLE t_zeket
WHERE ebeln = t_zekpo-ebeln AND ebelp EQ t_zekpo-ebelp.
ENDLOOP.
345
« en: Lunes 17 de Abril de 2006, 18:25 »
hola tengo una duda que seguro para mas de alguno de ustedes sera muy facil de resolver ..... Recibo dos estructuras en una bapi.... Una es el encabezado y la otra el detalle.... Como le hago para filtrar la informacion de la estructura de detalle.... Por ejemplo mi campo index en Cabecera trae el valor de 'Sinaloa' Como saco los registros de detalle que tengan en campo X 'Sinaloa'...... .... Gracias por lña atencion..
346
« en: Jueves 13 de Abril de 2006, 02:40 »
Hola aqui tengo otra duda.... resulta que en la transaccion ME21N en la cabecera del documento hay una parte que dice Textos.... Ahi los de almacen menten un dato en la opcion observaciones, pero yo no doy con el campo donde se guardan los datos, entonces el abapero "Argentino" me dice que use una de las siguientes funciones : READ_TEXT_ELEMENTS READ_STDTEXT READ_TEXT Y que me regresara el dato del objeto. Yo se que la cabecera se almacena en la tabla EKKO pero no se cual campo es objeto o que show con esos objetos.... Alguno de ustedes BLAG Podria darme un ejemplo de como leer esos datos...? Gracias por su atencion ..... Y como le meto datos ahi desde un CallTransaction,,, la grabacion no lo hace Bueno lo hace pero el codigo que genera no me dice como lo hace......
347
« en: Miércoles 12 de Abril de 2006, 21:07 »
348
« en: Miércoles 12 de Abril de 2006, 21:05 »
349
« en: Miércoles 12 de Abril de 2006, 17:28 »
Y como es que se crean esas esteructuras para poderlas meter en la pestañla tables.... Me dicen que en la SE11, seleccione vista, y ya despues de eso el abapero lo "olvido" y no me pudo ayudar, tu sabes que es lo que tengo que hacer, tendras por ahi un ejemplo . Gracias por tu ayuda.....
350
« en: Martes 11 de Abril de 2006, 21:17 »
Hola a tochos....
Haber necesito hacer una bapi....
En la pestaña tables ahi pondre las Tablas/Estructuras que se llenaran para correr esa bapi con RFC desde un sistema en .Net.
Ahora en algunas bapis cuando yo le doy doble click a una de las Estructuras/Tables me sale el dubujo que adjunto..
Mi duda es.. Si las estructuras solo pueden contener un registro, por que los abaperos piden muchoas registros en esas parametros......
Ahora... Como es que crean esa estructura para poder utilizarla en la bapi....
Y por ultimo...
Es correcto lo que ellos estan haciendo en ese punto??? O tiene que ser una tabla z y no una estructura lo que se tiene que utilizar.....
Gracia por su atencion.
Páginas: 1 ... 12 13 [14] 15 16 ... 26
|
|
|
Mostrar Mensajes
Gracias 