FiveTech Software tech support forums

Amigo hacen falta estas lineas.... oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)} oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))} oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))} creo que con esto solu...

... 1 y tienes el ultimo dia del mes anterior y asi vas sumando hasta el mes que requieres.... eso es todo. Una vez obtenida la suma de dias, se agrega a la fecha actual y listo el bote !! Saludos (Espero ser claro, de lo contrario tendria que escribir la rutina, de todas formas me avisas )

José Luis:

Será porque estas intentando pintar el botón usando las coordenadas del Browse ?
@ oBrw:nHeight+20,10 BUTTON "Agrega" OF oDlg PIXEL ;

y creo que debes pintarlo sobre las coordenadas del diálogo
@ 20,10 BUTTON "Agrega" OF oDlg PIXEL ;

Saludos, Armando

... 250,250; HEADER "Numero","Nombre","Tipo", "(L/P)" ; SIZES 50,120,50,50; ALIAS aAlias[12] ; CURSOR oCurdedo; PIXEL @ oBrw:nHeight+20,10 BUTTON "Agrega" OF oDlg PIXEL ; ACTION (oBrw:Edit() ) SIZE 50,Nil oBrw:nClrForeHead := CLR_WHITE oBrw:nClrBackHead := CLR_BLUE oBrw:nClrPane:={||iIF((oBrw:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))} ...

... (pertenecientes a la llave del maestro, claro) y le agrego mas, funciona ok, el problema viene cuando es el primer registro del detalle , si me lo agrega y lo muestra , peeerooo, al hacer click en el browse desaparece el encabezado mostrando en lugar de este, los datos de ese primer registro , ...

... Aparte uso TsButton y casi todos los botones tienen degradado: REDEFINE SBUTTON oBtns[1] ID 301 OF oDlg ; RESOURCE "F2" ; CAPTION "Agrega"+CRLF+"Partida" ; TEXT 3 ; COLORS { |oBtn| If( oBtn:lMouseOver, CLR_GRAY, CLR_BLACK) }, { nRGB(255,255,255), nRGB(160,160,160), 3 } ; FONT oFnt[8] ...

amigos hice el siguiente cambio y se arreglo el problema Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam; NoBorder; Message "Agrega Nuevo Registro..." Action (EditFamilia( .T. ,oLbx1), oLbx1:Reset()) por este otro lok1:= .T. Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of ...

esto me ocurre cuando pincho un boton con btnget y usando un browse con tsbrowse


Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam;
NoBorder;
Message "Agrega Nuevo Registro..." Action (EditFamilia(.T.,oLbx1), oLbx1:Reset())

... debes configurar el myodbc en: Panel de Control-> Herramientas administrativas -> Orígenes de Datos (ODBC), y en la pstaña DSN de usuario se agrega el nuevo tipo de conexión (MySql ODBC 3.51), ingresas los datos de nombre del servidor, usuario, pasword y base de datos. Si todo va bien obtendrás ...

... oDlg DATA aDbf METHOD Open() METHOD Init() METHOD New() Constructor METHOD Close() INLINE AEval( ::aDbf, { |oDbf| oDbf:Close() } ), .T. METHOD Agrega() ... ... ENDCLASS /*-----------------------------------------------------------------------------------------------*/ METHOD Open() CLASS FT604 ...

Agrega la ruta a donde estan los archivos de cabecera, en este caso los de VCE:

#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"

... como: "Opciones" "Ventanas" "Nevo" "Adelante" "Salir" "Atras" --------------- "MDIChildxx" Por lo que veo en el sample testmdi6, MENUINFO se agrega a los menues Child y no al menú Main. De hecho en mis pruebas al colocar MENUINFO 2, según el ejemplo de arriba, y posteriomente al ejecutar ...

Amigos: ¿Alguien me puede decir como se le agrega una imagen a un tbutton para que quede a la vista tanto el caption como la imagen? O alguna otra clase que lo soporte. Desde ya muchas gracias. Ricardo.- REDEFINE BTNBMP oBtn RESOURCE "DLG0_ACEPTAR" ...

Amigos:

¿Alguien me puede decir como se le agrega una imagen a un tbutton para que quede a la vista tanto el caption como la imagen?

O alguna otra clase que lo soporte.

Desde ya muchas gracias.
Ricardo.-

... tome el foco, para que se visualize en caso de estar minimizada. Saludos Marco A. Delgado En el código que dio Antonio donde estan los #define agrega: #define SW_RESTORE 9 y justo antes de setForeGroundWindow( hWnd ) agrega: if isIconic( hWnd ) showWindow( hWnd, SW_RESTORE ) endIf