RE:AYUDA URGENTE, POR FAVOR
Ok mira todos tenemos una forma de programar diferente, ose todos pensamos diferente ok,
*****************************************************************************************
1. UNIDADES 2. PRECIO DE COMPRA
Y UNA FORMULA: UNIDADES * PRECIO DE COMPRA
SI AÑADO UN RESUMEN DE LA FORMULA PARA SABER EL COSTE DE UN
PEDIDO, LA APLICACION SE PARA Y ME DA EL MENSAJE VB6 NO RESPONDE.
*****************************************************************************************
01.- En el CR tiene que estar diseñado asi (claro este es un ejemplo de mi
caso), sin usar tablas todos esta sale del Procedimietno almacenado
codigo | nombre | precio | stock | peso | valorizado | valorizado
| producto | compra | | | cantidad | (kilos)
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
****** ********* ******** ****** ***** ********* ********
------------------------------------------------------------------------------------------------
este es la formular del Procedimiento almacenado ok
-----------------------------------------------------------------------------------------------
CREATE PROCEDURE PROVEEDOR_CERO /*OK*/
AS
SELECT (P.preciocosto*S.stock) AS Valorizado_cantidad,(P.preciocosto*S.PESO)AS Valorizado_Kilos,
S.stock,S.PESO,P.codproducto,P.nomproducto,
P.preciocosto, P.preciobodega,P.preciopublico,P.eliminar,
T.codTipoProducto,T.nomTipoProducto,
Pr.codproveedor,Pr.rucproveedor,Pr.nomproveedor
FROM STOCK s
INNER JOIN Producto P ON S.codproducto = P.codproducto
INNER JOIN Proveedor PR ON P.codproveedor = Pr.codproveedor
INNER JOIN TipoProducto T ON P.codTipoProducto = T.codTipoProducto
WHERE P.ELIMINAR='0' AND PR.ELIMINAR='0' AND S.STOCK>0
-----------------------------------------------------------------------------------------------
hasta qui solo se acreado el Crystal Report ok
-----------------------------------------------------------------------------------------------
02.- ahora en VB : lamentablemente no se puede enviar imagenes pero ilustrare
el formulario ok
-------------------------------------------------------------------------------------------
Private Sub Imprimir_Click()
Dim p As String, t As String
p = Left(Trim(PROVEEDOR.Text), 6) <------contiene le proveedor (todo)
t = Left(Trim(TIPO.Text), 6) <--------------------contiene la Tipo (Litros Vasos etc)
If CHKTODO.Value = "0" And CHKTIPO.Value = "0" Then <----verifica la valides
If Trim(PROVEEDOR.Text) = "" Then
MsgBox "Tiene que seleccionar el proveedor", vbCritical, "SISDISCOVE"
PROVEEDOR.SetFocus
Exit Sub
End If
If CHKTIPO.Value = "0" And TIPO.Enabled = True Then
If Trim(TIPO.Text) = "" Then
MsgBox "Tiene que seleccionar el tipo de producto",
vbCritical, "SISDISCOVE"
TIPO.SetFocus
Exit Sub
End If
End If
Z = " {PROVEEDOR_CERO;1.codproveedor} = '" + Trim(p) + "' " & _
" and {PROVEEDOR_CERO;1.codTipoProducto}= '" + Trim(t) + "' "
CrystalReport1.SelectionFormula = Z
CrystalReport1.ReportFileName = App.Path & "\rpt\PROVEEDOR_CERO.rpt"
CrystalReport1.PrintReport
ElseIf CHKTIPO.Value = "1" And CHKTODO.Value = "0" Then
Z = " {PROVEEDOR_CERO;1.codproveedor} ='" + Trim(p) + "'"
CrystalReport1.SelectionFormula = Z
CrystalReport1.ReportFileName = App.Path & "\rpt\PROVEEDOR_CERO.rpt"
CrystalReport1.PrintReport
Else
If CHKTIPO.Value = "1" And CHKTODO.Value = "1" Then
CrystalReport1.ReportFileName = App.Path & "\rpt\PROVEEDOR_CERO.rpt"
CrystalReport1.PrintReport 'por empleado pend, cane,anu
Else
CrystalReport1.ReportFileName = App.Path & "\rpt\PROVEEDOR_CERO.rpt"
CrystalReport1.PrintReport 'por empleado pend, cane,anu
End If
End If
End Sub
-----------------------------------------------------------------------------------
de esa manera yo genero reportes, al CR diseño las formas que se va a imprmir, ayudado de un Procemiento y en VB solo lo filtro ok.
si deseas con fecha solo se agrega el filtro nada mas ok.
como puede ver no realizo niguna coneccion porque hay varia formas de conectarse al CR. ok eso es mas facil que prender una PC