SoloCodigo

Hola, el problema que tengo es que en la transaccion va22 programe una user exit la cual tiene que validar que el campo de la version exista en una tabla y si no existe que no se pueda guardar la cotizacion del pedido, el problema que tengo es que ya estuve con el debug y el cursor no pasa por ninguna user exit al momento de guardar, como puedo hacer para que esta transaccion haga esta validacion y si la version no existe que no la guarde?. gracias. saludos

Cita de: senzao18,Noviembre 24, 2006 10:37 am

Voy a buscar el codigo que yo uso para fechas.... haber que show....

Pues aui está el codigo... lo uso con un select.. y me funciona bien...

Código: Text

1.  
2.  
3.    Function DPVALE(ByVal strPlaza As String, ByVal Fecha As Date) As DataSet
4.  
5.         Dim strQuery As String = _
6.                     "Select movimientosdp.Plaza, movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP as CodigoClienteSAP, " & _
7.                     "sum(Case When TipoDocumento in('Abono','Canc Abono') Then  " & _
8.                     "      Abono - Cargo " & _
9.                     "    Else " & _
10.                     "      0  " & _
11.                     "    END " & _
12.                     ") as Abono, " & _
13.                     "sum(Case When TipoDocumento in('Bonificacion','Canc Bonificacion') Then  " & _
14.                     "      Abono - Cargo " & _
15.                     "    Else " & _
16.                     "      0  " & _
17.                     "    END" & _
18.                     ") as Bonificacion " & _
19.                     "from movimientosdp " & _
20.                     " INNER JOIN CreditoDPVale ON MovimientosDP.AsociadoID = CreditoDPVale.AsociadoID " & _
21.                     "Where TipoDocumento in ('Abono','Bonificacion','Canc Abono','Canc Bonificacion') AND Plaza =@Plaza AND " & _
22.                     "FechaMovimiento = @Fecha " & _
23.                     "GROUP BY movimientosdp.Plaza, movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP " & _
24.                     "Order by movimientosdp.Plaza,movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP "
25.  
26.         Dim oResult As DataSet
27.  
28.         Dim sccnnConnection As New SqlConnection(oAppContext.ApplicationConfiguration.DataStorageConfiguration.GetConnectionString)
29.  
30.         Dim sccmdSelect As SqlCommand
31.  
32.         sccmdSelect = New SqlCommand
33.  
34.         With sccmdSelect
35.  
36.             .Connection = sccnnConnection
37.  
38.             .CommandText = strQuery
39.             .CommandType = System.Data.CommandType.Text
40.  
41.             .Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
42.             '.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Referencia", System.Data.SqlDbType.Int))
43.             .Parameters.Add(New System.Data.SqlClient.SqlParameter("@Plaza", System.Data.SqlDbType.VarChar))
44.             .Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fecha", System.Data.SqlDbType.DateTime))
45.  
46.             .Parameters("@Plaza").Value = strPlaza
47.             .Parameters("@Fecha").Value = Fecha.ToShortDateString
48.             '.Parameters("@Referencia").Value = Referencia
49.  
50.         End With
51.  
52.         Dim oCatalogoCorridasAdapter As SqlDataAdapter
53.         oCatalogoCorridasAdapter = New SqlDataAdapter
54.         oCatalogoCorridasAdapter.SelectCommand = sccmdSelect
55.  
56.         Try
57.  
58.             sccnnConnection.Open()
59.  
60.             oResult = New DataSet
61.  
62.             oCatalogoCorridasAdapter.Fill(oResult, "DPVALE")
63.  
64.         Catch ex As Exception
65.  
66.             Throw ex
67.  
68.         Finally
69.  
70.             If (sccnnConnection.State <> ConnectionState.Closed) Then
71.                 Try
72.                     sccnnConnection.Close()
73.                 Catch
74.                 End Try
75.             End If
76.  
77.         End Try
78.  
79.         sccmdSelect.Dispose()
80.         sccmdSelect = Nothing
81.  
82.         sccnnConnection.Dispose()
83.         sccnnConnection = Nothing
84.  
85.         Return oResult
86.  
87.     End Function
88.  
89.  

Es un select algo raro pero el ejemplo de fecha ahi está cualquier duda.. haces tu post.

Citar

senzao18   Escrito el Noviembre 23, 2006 12:28 pm
   Otra forms donde muestres la info

Sin opcion de modificación.....

que componentes me aconsejas para mostrarlos ?, ya que yo pensaba hacerlo con el datagrid pero no me gusta.

Una pregunta.
Como hacen para imprimir una boleta, por ejemplo una factura ?, que utilizan ??, utilizan el boton imprimir de crystal ???.

BYTE.

y hablando de todo un poco............

¿Que hacenos en la taberna?  

No se lo que me dices. Despues en la consulta que hago lo paso a cint pero me da un error.

Eso es lo que te puesto en el ejemplo.