by karinha » Sat Apr 01, 2023 2:51 pm
How about putting a text counter?
¿Qué tal poner un contador de texto?
- Code: Select all Expand view
REDEFINE GET oGet
[17] VAR wTEXTO MULTILINE
ID 217 OF oDlg ;
COLOR CLR_BLUE, CLR_WHITE
UPDATE FONT oFont
WHEN( lLigaCombo
) ;
ON CHANGE( SB_LimitText
( oGet
[17], oSay, oTransmite
) ) // By AleSB // oMemo:bChange := { | o | if( Len( o:GetText() ) > 500, MsgInfo("longitud maxima excedida","Atencion"), ) // oGet[17]:bChange := { | o | if( Len( o:GetText() ) > 20, MsgInfo("longitud maxima excedida","Atencion"), ) // se mudar o foco ou perder o foco? /*
oGet[17]:bChange = { || lCambiado := .T. }
//oGet[17]:bLostFocus := {|| If(lCambiado, Graba(), nil) }
oGet[17]:bLostFocus := {|| If(lCambiado, MsgInfo("longitud maxima excedida","Atencion"), nil) }
*/ // http://forums.fivetechsupport.com/viewt ... =3&t=34507 /*
oGet[17]:bGotFocus = { || oGet[17]:SetSel( 0, 0 ),;
oGet[17]:Goto( oGet[17]:GetLineCount() ),;
__Keyboard( Chr( VK_END ) ) }
*/ oGet
[17]:
bGotFocus =
{ || oGet
[17]:
SetSel( 0,
0 ),;
oGet
[17]:
Goto( oGet
[17]:
GetLineCount() ),;
__Keyboard
( Chr
( VK_HOME
) ) } //oGet[17]:bGotFocus = { || oGet[17]:SetSel( 0, 0 ) } //oGet[17]:SETPOS(0)// FUNCAO PARA LIMITAR O TEXTO DA CARTA...//FUNCTION SB_LimitText( oGet, oSay, nSize )FUNCTION SB_LimitText
( oGet, oSay, oTransmite
) /////////////////////////////////////////////////////////////////////////// // Autor..........: Peguei no Forum FiveWin Brasil // // Modificaçoes...: Ale SB - Soft Camus // // Descricao......: Restringe o Tamanho de um Texto. // // Parametros ==> // // - oGet : oBjeto Get. // // - nSize : Tamanho que deve ter o Texto. // // Dependencias ==> // // Retorno ==> nil // /////////////////////////////////////////////////////////////////////////// LOCAL nTam, nSize
DEFAULT nSize :=
999 // maximo ‚ 1000 caracteres nTam := LEN
( ALLTRIM
( oGet:
cText ) ) IF nTam > nSize
MsgInfo( "A Mensagem da Carta já Alcançou o Tamanho Limite de " + ;
"1000 Caracteres Permitidos Pela Sefaz!", ;
"..:: Atenção ::.." ) oGet:
cText :=
Substr(oGet:
cText,
1, nTam
-1) RETURN( .F.
) ENDIF // Mostra a qtde de caracteres digitados na carta de correcao oSay:
VarPut( Strzero
( nTam,
3,
0 ) ) oSay:
Refresh() IF nTam <=
14 // caracteres lLigaBotao := .F.
// Botao da Transmissao oTransmite:
Disable() oTransmite:
Refresh() ELSE lLigaBotao := .T.
// Botao da Transmissao oTransmite:
Enable() oTransmite:
Refresh() ENDIFRETURN( .T.
)
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341