Stimulsoft.Report.StiOptions.Export.Txt.UseOldMode = true Conexion 4CD5SN4Fes17elGAZHikL9EUgW/GSqK87FulnHdM4C/fVvsCxltC1e1R7cnk2Co/kFRpLM18e9lpTe10YNjrP8TyZYhdbfMF6nzlRHXcLa/Dav2J1gPTUWJcuexjJXdjjfLBjA== Conexion FuenteDeDatos1 CODCIA,COMPAÑIA,System.String CODALM,System.String IDVIAJE,System.Int32 codart,System.Int32 descart,System.String um,System.String cantped,System.Double peso,System.Decimal puntopartida,System.String placa,System.String LICENCIACONDUCIR,System.String CONSTANCIAINSCRIPCION,System.String chofer,System.String transportista,System.String RUTA,System.String IDTRANSPORTISTA,System.String MARCA,System.String fecrep,System.DateTime Destino,System.String 30 False FuenteDeDatos1 Conexion _x0040_CODCIA,Configuracion.CodCia,3,3 _x0040_IDVIAJE,txtIDViaje.Text,8,0 --DECLARE @CODCIA CHAR(3) --DECLARE @CODCLI INT --DECLARE @IDVIAJE INT SELECT T1.*, T2.fecrep, T6.DESCRIPCION RUTA , T3.DIRECCION puntopartida, T4.MARCA, T4.PLACA, T4.LICENCIACONDUCIR, T4.CONSTANCIAINSCRIPCION, T4.CHOFER, T5.RAZONSOCIAL TRANSPORTISTA, T5.NROID IDTRANSPORTISTA FROM ( SELECT T1.CODCIA, T1.IDVIAJE,T1.CODALM, T2.CODART, T3.DESCRIPCION descart, T2.UM, sum(T2.CANTPED) cantped , sum(t3.peso*t2.cantprimaria) peso from VECOMPROBANTEC T1 INNER JOIN VECOMPROBANTED T2 ON T1.IDCOMP = T2.IDCOMP INNER JOIN ALART T3 ON T2.CODART = T3.CODART LEFT OUTER JOIN MGDIRECTORIO T6 ON T3.CODPRO=T6.CODDIR where T1.ELIMINADO=0 and T1.estado <> '090' and T1.CODCIA=@CODCIA and T1.idviaje = @IDVIAJE GROUP BY T1.CODCIA, T1.IDVIAJE,T1.CODALM,T2.CODART, T3.DESCRIPCION, t2.um) T1 INNER JOIN VEVIAJEC T2 ON T2.IDVIAJE = T1.IDVIAJE LEFT OUTER JOIN ALALM T3 ON T3.CODALM = T1.CODALM LEFT OUTER JOIN VEVEHICULO T4 ON T4.CODVEHICULO = T2.CODVEH LEFT OUTER JOIN MGDIRECTORIO T5 ON T5.CODDIR = T4.CODTRANSPORTISTA LEFT OUTER JOIN VERUTA T6 ON T6.IDRUTA = T2.CODRUT ,cia,cia,System.String,,False,False ,ruc,ruc,System.String,,False,False ,periodo,periodo,System.String,,False,False ,cadenaWhere,cadenaWhere,System.String,,False,False ,repartidor,repartidor,System.String,,False,False ,ruta,ruta,System.String,,False,False ,fechaReparto,fechaReparto,System.String,,False,False ,totalContado,totalContado,System.Double,,False,False ,totalCredito,totalCredito,System.Double,,False,False ,Destino,Destino,System.String,,False,False EngineV2 None;Black;2;Solid;False;4;Black Transparent Transparent 0,0.4,25,6.2 None;Black;1;Dot;False;4;Black Transparent 2.1,2.5,2.6,0.4 Courier New,9 e810dabfe2dd4dc7b2a3d1a786e821c5 0,0,0,0 Text2 {FuenteDeDatos1.fecrep} Black Expression None;Black;1;Dot;False;4;Black Transparent 2.1,2.8,11.2,0.4 Courier New,9 68d4101b46554f6b81fd6e01531f6a0f 0,0,0,0 Texto13 {FuenteDeDatos1.puntopartida} Black Expression None;Black;1;Dot;False;4;Black Transparent 2.1,4.5,7.8,0.4 Courier New,9 c272bd7be92b46d18974ff0d880c1c2e 0,0,0,0 Text8 {FuenteDeDatos1.transportista} Black DataColumn None;Black;1;Dot;False;4;Black Transparent 2.1,5.02,2.99,0.4 Courier New,9 972f7798e75b4bfcb063cd1e7a9cc9bf 0,0,0,0 Text9 {FuenteDeDatos1.IDTRANSPORTISTA} Black DataColumn None;Black;1;Dot;False;4;Black Transparent 8,5,2.8,0.4 Courier New,9 e10d6ed112e14abdaad7792c307ea4b0 0,0,0,0 Text10 {FuenteDeDatos1.MARCA} Black Expression None;Black;1;Dot;False;4;Black Transparent 12.2,5,2.8,0.4 Courier New,9 54fef798e6774a32a35387231646f8e6 0,0,0,0 Text7 {FuenteDeDatos1.placa} Black Expression None;Black;1;Dot;False;4;Black Transparent 18.2,4.6,4,0.4 Courier New,9 312007df939f4fed86c959933ee830e0 0,0,0,0 Text11 {FuenteDeDatos1.CONSTANCIAINSCRIPCION} Black Expression None;Black;1;Dot;False;4;Black Transparent 18.2,5,4,0.4 Courier New,9 84dec08de8d647579de09e97bd5a4dde 0,0,0,0 Text12 {FuenteDeDatos1.LICENCIACONDUCIR} Black Expression None;Black;1;Dot;False;4;Black Transparent 2.1,3.7,11.2,0.4 Courier New,9 e438b6eea046411690e59d900b178881 0,0,0,0 Text3 DISERNIC S.A.C. Black Expression None;Black;1;Dot;False;4;Black Transparent 2.1,4.1,11.2,0.4 Courier New,9 6b5bf6db7fb14556a759b0f982e766e3 0,0,0,0 Text5 20480050984 Black Expression None;Black;1;Dot;False;4;Black Transparent 2.1,3.2,11.2,0.4 Courier New,9 f77a1b20981241a49d691f12f62b0d6d 0,0,0,0 Text6 {Destino} Black Expression PageHeaderBand1 Transparent 0,11.78,25,2.2 None;Black;1;Dot;False;4;Black Transparent 16.2,0.63,3.8,0.6 Courier New,9,Bold 1f10ff14eb0a4b36bef6590b141acf45 Right 0,0,0,0 Text23 {cSum(Datos1,FuenteDeDatos1.peso)} Black , 1 Totals Center PageFooterBand1 None;Black;1;Dash;False;4;Black Transparent 0,7.4,25,0 Encabezado1 Transparent 0,8.2,25,0.4 None;Black;1;Dot;False;4;Black Transparent 18,0,2,0.4 Courier New,8 True 1854e78017c741f49e7ffe4b7b91b25f Right 0,0,0,0 Text4 float:15:2 {FuenteDeDatos1.peso} Black , 1 DataColumn None;Black;1;Dot;False;4;Black Transparent 3.8,0,12,0.4 Courier New,8 True 00079e3593bb45ddaaba83d9b4572433 0,0,0,0 Text1 {FuenteDeDatos1.descart} Black DataColumn None;Black;1;Dot;False;4;Black Transparent 0.1,0,1.8,0.4 Courier New,8 True Right 0,0,0,0 Texto16 float:15:2 {FuenteDeDatos1.cantped} Black , 1 DataColumn None;Black;1;Dot;False;4;Black Transparent 2.1,0,1.4,0.4 Courier New,8 True 92fd0d6ec2644fc09253fdc9ea49e3bd 0,0,0,0 Text13 {FuenteDeDatos1.um} Black DataColumn FuenteDeDatos1 Datos1 ASC codart ASC um 2382ccb470be4983b3a1b78a68a17b16 0,0,0,0 Página1 13.98 25 A4 Arial,100 [50:0:0:0] Control Control 24,32,80,24 Microsoft Sans Serif,8 Black 24, 32 Etiqueta1 80, 24 Viaje MiddleRight Window 112,32,64,20 Microsoft Sans Serif,8 Black 112, 32 txtIDViaje 64, 20 dim frm as new BuscarViajeForm frm.WindowState = FormWindowState.Normal frm.showdialog if frm.IDViaje <> 0 txtIDViaje.Text=frm.IDViaje end if FuenteDeDatos1.ConnectOnStart=True 184,32,24,20 Microsoft Sans Serif,8 Black 184, 32 cmdBuscarCli 24, 20 ... dim frm as new BuscarViajeForm dim viajeObj as new Viaje(Configuracion.CadenaConexionReportes) dim repObj as new Repartidor(Configuracion.CadenaConexionReportes) dim tabGenObj as new TablaGeneral(Configuracion.CadenaConexionReportes) dim rutaObj as new Ruta(Configuracion.CadenaConexionReportes) dim dtViaje, dtRep, dtRuta as DataTable cadenaWhere = "" repartidor = "" ruta = "" if txtIDViaje.Text.Trim <> "" 'cadenaWhere = " AND T1.IDVIAJE = " & txtIDViaje.Text.trim dtViaje = viajeObj.ObtenerCabecera(Val(Me.txtIDViaje.Text.Trim)) If dtViaje.Rows.Count > 0 Then dtRep = repObj.ObtenerRepartidor(dtviaje.rows(0).Item("codrep")) repartidor = dtRep.Rows(0).Item("razonsocial") ruta = "" dtRuta = rutaObj.ObtenerRuta(dtviaje.rows(0).item("codrut")).tables(0) If dtRuta.Rows.Count > 0 Then ruta = dtRuta.Rows(0).Item("descripcion") end if 'ruta = tabGenObj.ObtenerDescripcionElemento("025", dtviaje.rows(0).item("codrut")) fechaReparto = ctype(dtviaje.rows(0).Item("fecrep"), datetime).ToShortDateString end if else messagebox.show("Numero de viaje inválido") end if Destino = "" Destino = txtDestino.Text 'if txtImporte.Text.Trim <> "" ' importe = System.Convert.ToDouble (txtImporte.Text) 'end if FuenteDeDatos1.ConnectOnStart=True 248,144,96,24 True OK Microsoft Sans Serif,8 Black 248, 144 Botón1 96, 24 &Aceptar True 352,144,96,24 Cancel Microsoft Sans Serif,8 Black 07a43191903147d2a34111b3d13268af 352, 144 Botón2 96, 24 &Cancelar Control 24,72,80,24 Microsoft Sans Serif,8 Black 60eb2e7848c94e62b33a1d80bf18cb0f 24, 72 Label1 80, 24 Destino MiddleRight Window 112,72,336,20 Microsoft Sans Serif,8 Black af9b22db47e943a5a7d143aef0bbc79b 112, 72 txtDestino 336, 20 Microsoft Sans Serif,8 edae366db53c4893b642c99cb58c39cf 0, 0 Formulario1 480, 216 Lista Documentos Por Viaje StandardAndDotMatrix System.Dll System.Drawing.Dll System.Windows.Forms.Dll System.Data.Dll System.Xml.Dll Stimulsoft.Controls.Dll Stimulsoft.Base.Dll Stimulsoft.Report.Dll Siempresoft.exe Compartido.dll Ventas.dll Informe 11/24/2015 11:27:56 AM 4/18/2008 3:36:30 PM D:\Siempresoft4\Reportes\Ventas\GuiaRemisionItineranteDisernic.mrt 65b28f94ed334ac6bb2dd0ea5fc0995d Informe Centimeters 2013.3.1706 VB