Conexion Password=abr;Data Source=SERVIDORMILTON;Integrated Security=False;Initial Catalog=TABERNA;User ID=sa Conexion False FuenteDeDatos1 FECCONT,System.DateTime IDDOC,System.Int64 NRODOC,System.Int32 NUMLINEA,System.Int32 GLOSA,System.String CODCTA,System.String DESCTA,System.String DEBE,System.Decimal HABER,System.Decimal IMPORTE,System.Decimal 30 False FuenteDeDatos1 Conexion _x0040_DESDEFECHA,FechaHora1.Value.ToShortDateString,4,0 _x0040_HASTAFECHA,FechaHora2.Value.ToShortDateString,4,0 _x0040_CODCIA,configuracion.codcia,3,3 --DECLARE @CODCIA char(3) --DECLARE @DESDEFECHA char(10) --DECLARE @HASTAFECHA char(10) SELECT T1.FECCONT, T1.IDDOC, T1.NRODOC, T1.ITEM AS NUMLINEA, T1.GLOSA, T2.CODCTA, T2.DESCTA, CASE WHEN IMPORTE>=0 THEN IMPORTE ELSE NULL END AS DEBE, CASE WHEN IMPORTE<0 THEN IMPORTE *-1 ELSE NULL END AS HABER, T1.IMPORTE FROM CGASIENTO T1 INNER JOIN CGCUENTA T2 ON T1.IDCTA=T2.IDCTA WHERE CODCIA=@codcia AND FECCONT BETWEEN @desdefecha AND @hastafecha {cadenaWhere} ORDER BY T2.CODCTA, T1.FECCONT, T1.IDDOC, T1.ITEM ,saldo,saldo,System.Double,,False,False ,cadenaWhere,cadenaWhere,System.String,,False,False EngineV2 None;Black;2;Solid;False;4;Black Transparent Transparent 0,0.4,19,2.2 None;Black;1;Dot;False;4;Black Transparent 0,0,12,0.4 Courier New,10 0,0,0,0 Texto1 {Configuracion.NombreCia} Black Expression None;Black;1;Dot;False;4;Black Transparent 0,0.4,4.4,0.4 Courier New,10 0,0,0,0 Texto2 RUC: {Configuracion.RucCia} Black Expression None;Black;1;Dot;False;4;Black Transparent 5.6,1,9.2,0.6 Courier New,11,Bold Center 0,0,0,0 Texto3 LIBRO MAYOR Black Expression Center None;Black;1;Dot;False;4;Black Transparent 5.6,1.6,9.2,0.4 Courier New,11,Bold Center 0,0,0,0 Texto4 PERIODO DEL {Format("{0:dd/MM/yyyy}", FechaHora1.Value)} AL {Format("{0:dd/MM/yyyy}", FechaHora2.Value) } Black Expression Center None;Black;1;Dot;False;4;Black Transparent 15.4,0.2,3.4,0.4 Courier New,10 0,0,0,0 Texto5 Pagina {PageNumber} de {TotalPageCount} Black Expression EncabezadoPágina1 None;Black;1;Dash;False;4;Black Transparent 0,3.4,19,1.2 All;Black;1;Dot;False;4;Black Transparent 3.2,0.2,7.4,0.8 Courier New,8 Center 0,0,0,0 Texto20 GLOSA Black Expression Center Right, Bottom;Black;1;Dot;False;4;Black Transparent 10.6,0.6,2.8,0.4 Courier New,8 a920bf2c60274a11866b9e1cec82d925 Center 0,0,0,0 Text2 DEBE Black Expression Center Top, Left, Bottom;Black;1;Dot;False;4;Black Transparent 0,0.2,1.6,0.8 Courier New,8 43031ff06c3b4c90961b295e91bfc418 Center 0,0,0,0 Text23 FECHA Black Expression Center Right, Bottom;Black;1;Dot;False;4;Black Transparent 13.4,0.6,2.8,0.4 Courier New,8 53e7e6fb88654ba39fb26fdd4925a749 Center 0,0,0,0 Text5 HABER Black Expression Center Top, Left, Bottom;Black;1;Dot;False;4;Black Transparent 1.6,0.2,1.6,0.8 Courier New,8 01196cc8765b4930ba8bd87043f7eeff Center 0,0,0,0 Text3 NUMERO DOC. Black Expression Center Top, Right, Bottom;Black;1;Dot;False;4;Black Transparent 10.6,0.2,8.4,0.4 Courier New,8 f7ed57c678234c0b843b4e9e9c4bd82d Center 0,0,0,0 Text4 SALDOS Y MOVIMIENTOS Black Expression Center Right, Bottom;Black;1;Dot;False;4;Black Transparent 16.2,0.6,2.8,0.4 Courier New,8 9997598305e64d8ea8ef7e2877d857b5 Center 0,0,0,0 Text7 SALDO Black Expression Center Encabezado1 saldo=0 Transparent 0,5.4,19,0.8 None;Black;1;Dot;False;4;Black Transparent 0,0.2,16,0.4 Courier New,9,Bold 0,0,0,0 Text10 {CTYPE(FuenteDeDatos1.CODCTA, STRING).TRIM}-{FuenteDeDatos1.DESCTA} Black Expression {FuenteDeDatos1.CODCTA} GroupHeader1 Transparent 0,7,19,0.4 None;Black;1;Dot;False;4;Black Transparent 0,0,1.6,0.4 Courier New,8 80b4fad38162453391786b9718571ac8 0,0,0,0 Text6 {FuenteDeDatos1.FECCONT} Black dd/MM/yy DataColumn None;Black;1;Dot;False;4;Black Transparent 1.6,0,1.6,0.4 Courier New,8 d0654091b20341ffb5a4503591dbf1e0 Right 0,0,0,0 Text8 {FuenteDeDatos1.NRODOC} Black DataColumn None;Black;1;Dot;False;4;Black Transparent 3.2,0,7.2,0.4 Courier New,8 2d4d329dab29478db9dfe0d222692f04 0,0,0,0 Text14 {FuenteDeDatos1.GLOSA} Black DataColumn None;Black;1;Dot;False;4;Black Transparent 10.6,0,2.8,0.4 Courier New,8 961d83bffda1421bb7ea338acef7f048 Right 0,0,0,0 Text15 {FuenteDeDatos1.DEBE} Black , 1 DataColumn None;Black;1;Dot;False;4;Black Transparent 13.4,0,2.8,0.4 Courier New,8 919b8360b60b4d1da266e809c63b2852 Right 0,0,0,0 Text22 {FuenteDeDatos1.HABER} Black , 1 DataColumn None;Black;1;Dot;False;4;Black Transparent 16.2,0,2.8,0.4 Courier New,8 760e1b2e5ebe475f86b7e848f211644b Right 0,0,0,0 Text1 {saldo} Black , 1 Expression FuenteDeDatos1 Datos1 saldo+=FuenteDeDatos1.IMPORTE ASC CODCTA ASC FECCONT ASC NRODOC Transparent 0,8.2,19,1 None;Black;1;Dot;False;4;Black Transparent 0,0.2,10.4,0.6 Courier New,9,Bold 356e704f739e4ffd9eb361bfc3fcbbf8 Right 0,0,0,0 Text11 TOTAL CUENTA Black Expression Center Top;Black;1;Dot;False;4;Black Transparent 10.4,0.2,3,0.6 Courier New,8,Bold 3daa550cf2af41d98c9bf10277f79985 Right 0,0,0,0 Text12 {Sum(GroupHeader1,FuenteDeDatos1.DEBE)} Black , 1 Totals Center Top;Black;1;Dot;False;4;Black Transparent 13.4,0.2,2.8,0.6 Courier New,8,Bold 81906df0cb534a26acf99db1290cec7a Right 0,0,0,0 Text13 {Sum(GroupHeader1,FuenteDeDatos1.HABER)} Black , 1 Totals Center Top;Black;1;Dot;False;4;Black Transparent 16.2,0.2,2.8,0.6 Courier New,8,Bold f79a249908d84430ac7e680ef20c745c Right 0,0,0,0 Text16 {saldo} Black , 1 Expression Center GroupFooter1 None;Black;1;Dot;False;4;Black Transparent 0,10,19,0.8 Top;Black;1;Dot;False;4;Black Transparent 0,0.2,10.4,0.6 Courier New,9,Bold 29b6275231264ccb869a7c5a85f59bf3 Right 0,0,0,0 Texto29 TOTAL GENERAL Black Expression Center Top;Black;1;Dot;False;4;Black Transparent 10.4,0.2,3,0.6 Courier New,8,Bold b7e4ee03a6be411fb1b1cf839e65a59e Right 0,0,0,0 Text29 {Sum(Datos1,FuenteDeDatos1.DEBE)} Black , 1 Totals Center Top;Black;1;Dot;False;4;Black Transparent 13.4,0.2,2.8,0.6 Courier New,8,Bold fbf78c738a6644a480c3827999b91301 Right 0,0,0,0 Text32 {Sum(Datos1,FuenteDeDatos1.HABER)} Black , 1 Totals Center Top;Black;1;Dot;False;4;Black Transparent 16.2,0.2,2.8,0.6 Courier New,8,Bold f1b899f36e8e4d1da3df0b0929c3874c Right 0,0,0,0 Text9 Black , 1 Expression Center Pie1 2382ccb470be4983b3a1b78a68a17b16 1,1,1,1 Página1 29.7 21 A4 Arial,100 [50:0:0:0] Control Control 32,40,80,24 Microsoft Sans Serif,8 Black 32, 40 Etiqueta2 80, 24 Desde MiddleRight Window 120,40,104,20 Microsoft Sans Serif,8 Black Short 120, 40 12/31/9998 12:00:00 AM 1/1/1753 12:00:00 AM FechaHora1 104, 20 4/21/2008 12:00:00 AM Control 248,40,48,24 Microsoft Sans Serif,8 Black 530d9ae4793a49ddaf650b0ae364aa04 248, 40 Etiqueta3 48, 24 Hasta MiddleRight Window 304,40,104,20 Microsoft Sans Serif,8 Black Short 9483dae106f34ff69a6c0efd7ef17bff 304, 40 12/31/9998 12:00:00 AM 1/1/1753 12:00:00 AM FechaHora2 104, 20 4/21/2008 12:00:00 AM Control 32,72,80,24 Microsoft Sans Serif,8 Black 51622a37a49b4621a3d549e9c2d836bd 32, 72 Label1 80, 24 Cuenta MiddleRight Window 120,72,64,20 Microsoft Sans Serif,8 Black 88d4eb42a4a7453c83f413cb23093458 120, 72 txtCodCta 64, 20 dim frm as new BuscarCuentaForm frm.WindowState = FormWindowState.Normal frm.showdialog if frm.IDCuenta <> 0 txtCodCta.Text=frm.CodigoCuenta txtDesCta.Text=frm.DescripcionCuenta end if 192,72,24,20 Microsoft Sans Serif,8 Black 6dfaff3a4ea742b28354c65f37dcc399 192, 72 cmdBuscarCta 24, 20 ... Window 224,72,184,20 False Microsoft Sans Serif,8 Black f4f5cab3440b4a12a1cb354c916810e5 224, 72 txtDesCta 184, 20 (Todos) cadenaWhere = "" if txtCodCta.Text.Trim<>"" cadenaWhere = " AND T2.CODCTA ='" & txtCodCta.Text.Trim & "'" end if 208,128,96,24 True OK Microsoft Sans Serif,8 Black 208, 128 Botón1 96, 24 &Aceptar True 312,128,96,24 Cancel Microsoft Sans Serif,8 Black 07a43191903147d2a34111b3d13268af 312, 128 Botón2 96, 24 &Cancelar Microsoft Sans Serif,8 edae366db53c4893b642c99cb58c39cf Dim ciaObj as New Compañia(configuracion.CadenaConexion) Dim dtCia As DataTable Dim desde, hasta as Date dtCia=ciaObj.ObtenerCompañia(Configuracion.CodCia) Dim ultimoDiaMes as integer = DateTime.DaysInMonth(dtCia.Rows(0).Item("añoactivo"),dtCia.Rows(0).Item("mesactivo")) desde = new DateTime(dtCia.Rows(0).Item("añoactivo"),dtCia.Rows(0).Item("mesactivo"),1) hasta = new DateTime(dtCia.Rows(0).Item("añoactivo"),dtCia.Rows(0).Item("mesactivo"),ultimoDiaMes) Me.FechaHora1.Value = desde Me.FechaHora2.Value = hasta 0, 0 Formulario1 448, 208 Libro Mayor 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 Mayorista.exe Compartido.dll Compras Informe 11/20/2008 5:23:57 PM 4/18/2008 3:36:30 PM 20ac823563044440b433e23f46509188 Informe Centimeters 2009.1.362 VB