Help with TEXTBOX

[andyglezl]

Hola
Como que hay momentos en que no puedes pensar bien y en este
momento me llego a mi.
No encuentro el porque no funciona un TEXTBOX con campos DATE, CARACTER, MEMO.
---------------------------------------------------------------------------------------------------
hi
As there are times when you can not think straight and this
I come now to me.
I can not find why is not working with a TextBox fields DATE, CHARACTER, MEMO.

[andyglezl]

Cambiando lo siguiente ya no da error, pero tampoco se crea el TEXTBOX...
----------------------------------------------------------------------------------
Changing the following no longer fails, but not the textbox is created ...

Code: Select all

		IF aTypes[ i1 ]= "N"
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;			// OK !
										FIELD &bpso1. NUMERIC FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }
		ELSEIF aTypes[ i1 ]= "D"
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
										FIELD &bpso1. DATE FORMAT "  /  /    " FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }				// ERROR !			??????
		ELSE
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
										FIELD &bpso1. MAXLENGTH 100 FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }					// ERROR !			??????
		ENDIF

[Javier Tovar]

Hola andyglezl,

Recuerda que la posición de los mandatos influyen , ve la posición de "DATE" en el TextBox

Solo cambia por esto:

Code: Select all

		IF aTypes[ i1 ]= "N"
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;			// OK !
										FIELD &bpso1. NUMERIC FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }
		ELSEIF aTypes[ i1 ]= "D"
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
										FIELD &bpso1. FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 } DATE			// ERROR !			??????
		ELSE
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
										FIELD &bpso1.  FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }					// ERROR !			??????
		ENDIF

Error Resuelto.jpg (88.48 KiB) Viewed 1430 times

Saludos

[Pablo César]

El TextBox DATE utiliza la función _DefineCharMaskTextBox.

Y el dateformat es setado atravéz de set ( _SET_DATEFORMAT ), por lo tanto no usa la propiedad FORMAT (entonces no cabe, elimina eso).

Y el error principal es que la propiedad DATE debe estar depues de FONTCOLOR y BACKCOLOR.

P.S.: POsteé luego despues de Javier. Es lo mismo.

[Javier Tovar]

Hola andyglezl,

En tu primer post solo salen los numéricos porque así los tienes declarados en tu programa.

Code: Select all

		IF aTypes[ i1 ]= "N"
			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;			// OK !
										FIELD &bpso1. NUMERIC FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }
*		ELSEIF aTypes[ i1 ]= "D"
*			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
*										FIELD &bpso1. FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 } DATE			// ERROR !			??????
*		ELSE
*			@ nRenpso+5,nCol+nAnch+145 TEXTBOX &TB_x OF &cForm WIDTH 300 HEIGHT 17 FONT 'Verdana' SIZE 10 ;
*										FIELD &bpso1.  FONTCOLOR BLUE BACKCOLOR { 227, 239, 255 }					// ERROR !			??????
		ENDIF

Saludos

[andyglezl]

Gracias Javier y Pablo

Y el error principal es que la propiedad DATE debe estar depues de FONTCOLOR y BACKCOLOR.

Corregido !

En tu primer post solo salen los numéricos porque así los tienes declarados en tu programa.

Asi es Javier, comente esas lineas porque me daban error.