Funcion InputBox

[varocho]

Buenos Dias grupo,
¿Existe en Xailer una funcion como InputBox()?
Gracias!
Victor

[jrcpoli-quitar_1]

Saludos
Existe una función dentro del PRG "Message.prg" realizado por Bingen
Ugaldebere pidelo si estas interesado, la función es esta
FUNCTION MsgEdit( cText, cTitle, uVar, cImage, lPASSWORD,lNoCancel,
cPicture )
Correo : bingen@bisoft.es
El 18/03/2014 13:30, Victor Arocho escribió:
> Buenos Dias grupo,
>
> í‚¿Existe en Xailer una funcion como InputBox()?
>
> Gracias!
>
> Victor
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com

[varocho]

José,
Trate de enviarle un PM al Sr. Bilgen pero este no recibe mensajes privados. ¿Como puedo contactarlo?
Gracias
Victor

[jrcpoli-quitar_1]

El 18/03/2014 16:22, Victor Arocho escribió:
> JosíƒÂ©,
>
> Trate de enviarle un PM al Sr. Bilgen pero este no recibe
> mensajes privados. í‚¿Como puedo contactarlo?
>
> Gracias
> Victor
Manda un correo electrónico a esta dirección bingen@bisoft.es, o
bisoft@bisoft.es, o pon en un buscador web Bisoft.es y tendrás información
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com

[varocho]

Lo intentaré, muy agradecido de tu ayuda.
Gracias!

[Bingen Ugaldebere]

Hola buenas aquí­ estoy de nuevo, he estado desconectado varios dí­as del
foro y no habí­a visto el mensaje:
FUNCTION MsgEdit( cText, cTitle, uVar, cImage, lPASSWORD,lNoCancel,
cPicture )
LOCAL oForm, oFont, oEdit, lOk := .F., oImage, uLimitInf := Nil,
uLimitSup := Nil
LOCAL oAceptar, oCancelar
DEFAULT cText TO "Introduzca un valor"
DEFAULT cTitle TO "¡ Atención !"
DEFAULT cImage TO ""
DEFAULT lPASSWORD TO .F.
DEFAULT lNoCancel TO .F.
DEFAULT cPicture TO "@E 999,999.99"
//Si se recibe un array con 3 números o fechas se consideran valor
a mostrar en edición, valor mí­nimo y valor máximo a cumplir
//Si es un array con textos se mostrará un Combobox
IF ValType( uVar ) = "A" .AND. Len( uVar ) = 3 .AND. ValType( uVar[
1 ] ) $ "ND" .AND. ValType( uVar[ 2 ] ) $ "ND" .AND. ValType( uVar[ 3 ]
) $ "ND"
uLimitInf := uVar[ 2 ]
uLimitSup := uVar[ 3 ]
uVar := uVar[ 1 ]
ENDIF
DEFINE FORM oForm TITLE cTitle OF Application:oActiveform ;
SIZE 325, 155 BORDERSTYLE bsDIALOG
oFont := Application:oFont:Clone()
oFont:nHeight := oFont:nHeight * IF( Application:lAutoScale, 1, (
Application:nScale / 100 ) )
oForm:oFont := oFont
oForm:OnClose := {|| oFont:Destroy() }
IF lPASSWORD
@ 1, 10 LABEL cText SIZE 295, 40 OF oForm VALIGNMENT vaCenter
MultiLine
@ 42, 10 EDIT oEdit SIZE 295, 25 OF oForm PassWord
ELSE
DO CASE
CASE ValType( uVar ) == "C"
@ 1, 10 LABEL cText SIZE 295, 40 OF oForm VALIGNMENT vaCenter
MultiLine
@ 42, 10 EDIT oEdit SIZE 295, 25 OF oForm
oEdit:nMaxLength := Len( uVar )
CASE ValType( uVar ) == "N"
@ 1, 10 LABEL cText SIZE 295, 40 OF oForm VALIGNMENT vaCenter
MultiLine
@ 42, 105 MASKEDIT oEdit SIZE 120, 25 OF oForm ALIGNMENT
taRight PICTURE cPicture
CASE ValType( uVar ) == "D"
@ 15, 30 LABEL cText SIZE 140, 40 OF oForm VALIGNMENT vaCenter
MultiLine
@ 25, 170 DATEEDIT oEdit SIZE 95, 25 OF oForm
CASE ValType( uVar ) == "L"
@ 35, 15 CHECKBOX oEdit SIZE 25, 25 OF oForm
@ 22, 40 LABEL cText SIZE 260, 40 OF oForm VALIGNMENT vaCenter
MultiLine
IF uVar
oEdit:lChecked := .T.
ENDIF
CASE ValType( uVar ) == "A"
@ 1, 10 LABEL cText SIZE 295, 40 OF oForm VALIGNMENT vaCenter
MultiLine
@ 42, 10 COMBOBOX oEdit SIZE 295, 25 OF oForm iTEMS uVar Style
csDROPDOWNLIST
OTHERWISE
MsgInfo( "No se puede editar un valor de tipo " + ValType(
uVar ) )
ENDCASE
ENDIF
IF ValType( uVar ) $ "CND"
oEdit:Value := uVar
ENDIF
IF !Empty( cImage )
@ 70, 10 Image oImage Size 50, 50 FILE cImage Transparent NONE ;
NoTabStop OF oForm
ENDIF
IF lNoCancel
@ 80, 210 BTNBMP oAceptar CAPTION "&Aceptar" SIZE 90, 25 OF oForm
BITMAP IconOk;
ACTION ( If( ValType(uVar ) = "L" .OR. (ValType(uVar ) <> "L"
..AND. MsgEditValid(oEdit:Value, uLimitInf, uLimitSup ) ),;
( lOk := .T., oForm:Close() ), ;
( oEdit:SetFocus(), oEdit:SelectAll() ) ) ) Default
oAceptar:nAnchors := akRIGHT
oAceptar:lDefault := .T.
ELSE
@ 80, 105 BTNBMP oAceptar CAPTION "&Aceptar" SIZE 90, 25 OF oForm
BITMAP IconOk;
ACTION ( If( ValType(uVar ) $ "LA" .OR. (ValType(uVar ) $
"CND" .AND. MsgEditValid(oEdit:Value, uLimitInf, uLimitSup ) ),;
( lOk := .T., oForm:Close() ), ;
( oEdit:SetFocus(), oEdit:SelectAll() ) ) ) Default
oAceptar:nAnchors := akRIGHT
oAceptar:lDefault := .T.
@ 80, 210 BTNBMP oCancelar CAPTION "&Cancelar" SIZE 90, 25 OF
oForm BITMAP IconCancel;
ACTION oForm:Close()
oCancelar:nAnchors := akRIGHT
ENDIF
ACTIVATE FORM oForm MODAL CENTER
IF lOk
IF ValType( uVar ) $ "CND"
uVar := oEdit:Value
ELSEIF ValType( uVar ) = "L"
uVar := oEdit:lChecked
ELSE
uVar := { oEdit:nIndex, oEdit:cText }
ENDIF
ENDIF
RETURN lOk
//---------------------------------------------------------- --------------------

[Carlos Ortiz]

Bingen pregunta, serí­a muy complicado basarlos en un form en lugar de
tener la definición por código y en todo caso separarlo en varios prg y
que no esté todo junto. (toy pensando en voz alta quizás estoy en
cualquiera) que opina ud.?
Saludos

[varocho]

Gracias Bingen!
Agradesco mucho tu ayuda. Estoy aprendiendo a utilizar Xailer para ver si tomo la decición de comprarlo.
Victor