Page 1 of 1

Ayuda Inicial

Posted: Thu Jan 14, 2010 6:02 pm
by Julio Perez
Buenas Amigos espero q hayan recibido un excelente año nuevo, bueno tengo la siguiente duda:

Tengo una Pantalla que debe aparacer al arrancar el sistema este es el PRG

// Programa Principal

#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

local oWnd,oBmp

DEFINE WINDOW oWnd TITLE "Saico Remoto" ;
MENU BuildMenu()

@ 0,0 BITMAP oBmp FILENAME CURDIR() + "\inicio.bmp" NOBORDER
oBmp:lTransparent = .t.

ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

local oMenu

DEFINE MENU oMenu RESOURCE 102

REDEFINE MENUITEM ID 100 OF oMenu ACTION Main1()

REDEFINE MENUITEM ID 110 OF oMenu ACTION oWnd:End()

return oMenu

//----------------------------------------------------------------------------//

function Main1()

local oWnd1, oSay, oBmp1

DEFINE WINDOW oWnd1 TITLE "Saico Remoto"

@ 15,05 BITMAP oBmp1 FILENAME CURDIR() + "\logo.bmp" NOBORDER
oBmp1:lTransparent = .t.

//@ 12,17 SAY oSay PROMPT "Option"

@ 07,20 BTNBMP FILE CurDir() + "\cliente.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "users" )

@ 07,90 BTNBMP FILE CurDir() + "\vendedor.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "open" )

@ 07,160 BTNBMP FILE CurDir() + "\articulo.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "search" )

@ 71,20 BTNBMP FILE CurDir() + "\ruta.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "print" )

@ 71,90 BTNBMP FILE CurDir() + "\cobro.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "setup" )

@ 71,160 BTNBMP FILE CurDir() + "\pedido.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,20 BTNBMP FILE CurDir() + "\envia.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,90 BTNBMP FILE CurDir() + "\condigur.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,160 BTNBMP FILE CurDir() + "\Salir.bmp";
SIZE 60, 60 ;
ACTION oWnd1:End()

ACTIVATE WINDOW oWnd1 ;
VALID MsgYesNo( "¿ Desea Salir ?" )

return nil

Este es el RC :

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

#define I_IMAGENONE (-2)
#define IDS_HELP 104

#ifdef _CE
102 RCDATA
BEGIN
102, 2,
I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,
I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,
END
#endif

STRINGTABLE DISCARDABLE
BEGIN
202 "Continuar"
203 "Salir"
END

102 MENU DISCARDABLE
BEGIN
MENUITEM "", 100
MENUITEM "", 110
END

test DIALOG 10, 35, 139, 89
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DialogBox Test"
FONT 8, "system"
{
LTEXT "&Name:", -1, 14, 4, 23, 8
EDITTEXT 110, 12, 14, 114, 12
LTEXT "&Address:", -1, 14, 30, 32, 8
EDITTEXT 120, 12, 41, 114, 12
DEFPUSHBUTTON "OK", IDOK, 14, 67, 50, 14
PUSHBUTTON "Cancel", IDCANCEL, 74, 67, 50, 14
}

El cual muestra 2 opciones Continuar y Salir

quiero que al presionar Continuar ejecuta la pantalla que aparece en main1 y al presionar salir salga del programa sin ajecutar mas nada y no doy como hacerlo...
Ademas como puedes ver la segunda pantalla tiene botones como hago para que el presionar uno me ejecute otra ventana asociada al boton

Gracias de antemano

Re: Ayuda Inicial

Posted: Thu Jan 14, 2010 11:30 pm
by Antonio Linares
Julio,

Aqui te he comentado la solución :-)
http://forums.fivetechsupport.com/viewt ... 238#p93238

Impresion en una Pidion BIP-1300

Posted: Mon Jan 18, 2010 5:29 pm
by Julio Perez
1.- Amigo Antonio tendras un ejemplo para imprimir en un Pidion BIP-1300

2.- Como coloco enable falso a un objeto para que sea de solo lectura.

Gracias de antemano nuevamente.

Re: Ayuda Inicial

Posted: Tue Jan 19, 2010 9:26 am
by Antonio Linares
Julio,

> 1.- Amigo Antonio tendras un ejemplo para imprimir en un Pidion BIP-1300

En caso de ser una impresora BlueTooth, tienes un ejemplo en FWPPC\samples\BlueToth.prg

> 2.- Como coloco enable falso a un objeto para que sea de solo lectura.

Si se trata de un GET, puedes hacer oGet:lReadOnly := .T.

Cualquier control puedes deshabilitarlo haciendo: oControl:Disable() y volver a habilitarlo con oControl:Enable()

Impresion en una Pidion BIP-1300

Posted: Tue Jan 19, 2010 12:08 pm
by Julio Perez
La impresora no es de blutooh la trae ya el BIP-1300 integrada, y queria saber si existe un ejemplo

Gracias

Re: Ayuda Inicial

Posted: Tue Jan 19, 2010 1:15 pm
by Antonio Linares
Julio,

Puedes revisar su documentación para confirmar si se accede a ella por un puerto COM ?

Es lo más probable, por lo que te serviría el mismo código de samples\BlueToth.prg cambiando solo el número del puerto COM