CrystalReport1.ReportFileName = App.Path & "\Carrefour.rpt"
CrystalReport1.Connect = "DSN=" + objConfig.dsDSN + ";UID=" + objConfig.dsUID + ";PWD=ordenes"
CrystalReport1.ParameterFields(1) = "nrOrdendeCompra;" & nrOrdendeCompra & ";true"
CrystalReport1.ParameterFields(2) = "idSupermercado;" & IdSupermercado & ";true"
CrystalReport1.ParameterFields(3) = "idPDV;" & idPDV & ";true"
CrystalReport1.ParameterFields(4) = "idCliente;" & IdCliente & ";true"
CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
CrearPreview = True