FiveTech Software tech support forums

hice esa prueba, elegí la posición y esto salió por SI // Aviso( IIF(cValor=aObras[2],'SI','NO') , MenuIngreso ) Ademas cuando entro asigno directamente la ultima posición asi que no puede haber diferencia... tal vez si me pasas un ejemplo que te esté funcionando ...

En vez de:

@ 42 , 130 SAY "Obra Social :" OF oDlg

escribe:

@ 42 , 130 SAY cValor OF oDlg

y compara con los valores que tiene el combobox. Debe haber alguna diferencia y por eso no lo encuentra.

... // LA PRIMERA VEZ ASIGNA EL ULTIMO, UNA VEZ ELEGIDA LA OS ASIGNO LA QUE DEVUELVO AL VOLVER DE LA CONSULTA (OSO)->(dbseek(aParams[3])) cValor:=(OSO)->descrip+' ['+(OSO)->cod_osoc+']' // PARA HACER N CONSULTAS CONSERVANDO LA OBRA SOCIAL ELEGIDA else // NO VEO NUNCA QUE ME PONGA ...

... ---->esto es lo que no me anda endif next ...deberia hacerlo pero no lo hace . en el codigo fuente de la pagina no lo veo tampoco mi código es cValor:=aObras [len(aObras) ] oGet:= TComboBox():New( 42 , 250 , , , oDlg , aObras , "oGet1", cValor , ) 2) me cierra las pantallas cuando ...

... y ahí me dio error. probe de esta forma que es lo que necesito y no funciona... oGet1 := TComboBox():New( 58 , 150 , , , oDlg , aValor , 'oGet1' , cValor , ) @ 150, 80 BUTTON "Imprimdo Recibo" OF oDlg SIZE 200, 40 ACTION document.location = "lupaMENUcliente.exe?valido:"+ ; document.getElementById( ...

... opción elegida como parámetro a esa función de que manera lo hago ? o como debo trabajarlo? GRACIAS SLDOS LOCAL aValor:={'uno','dos','tres'} LOCAL cValor:='uno' oGet1 := TComboBox():New( 58 , 150 , , , oDlg , aValor , 'oGet1' , cValor , ) @ 150, 80 BUTTON "Imprimdo Recibo" OF oDlg SIZE ...

Rosita buenas tardes function Ponceros( cValor, nCeros )    cValor = strzero( val( cValor ), nCeros )return .T.  ponga esta funcion en un valid y envie cValor como referencia Poncers( @cValor, 6 ) saludos Wilson Gracias ...

Rosita buenas tardes

Code: Select all  Expand view

function Ponceros( cValor, nCeros )

    cValor = strzero( val( cValor ), nCeros )

return .T.

 

ponga esta funcion en un valid y envie cValor como referencia Poncers( @cValor, 6 )

saludos

Wilson

horacio,

Si el problema es que no hay ningun control definido, yo definiria un get asi:

@ 3000,3000 GET cValor // Workaround

Esta solucion tambien es valida cuando hay que validar el ultimo get, pero no se valida porque no pierde el foco porque no hay control después.

Saludos

... # pragma BEGINDUMP #include <hbapi.h> HB_FUNC (FESTRUCTURA_TABLA) { const char* cNombreCampo = "nombre"; const char* cValor = "jorge"; hb_reta( 2 ); // creamos y devolvemos un array de 2 elementos. hb_storc(cNombreCampo,1); //Se llena elemento 1 hb_storc(cValor,2); ...

... # pragma BEGINDUMP #include <hbapi.h> HB_FUNC (FESTRUCTURA_TABLA) { const char* cNombreCampo = "nombre"; const char* cValor = "jorge"; hb_reta( 2 ); // creamos y devolvemos un array de 2 elementos. hb_storc(cNombreCampo,1); //Se llena elemento 1 hb_storc(cValor,2); ...

... APort: Integer): Boolean; stdcall; external 'semapi.dll'; PWideChar = puntero a wide chars Prueba a convertir cada valor con AnsiToWide( <cValor> ) antes de pasarlos a la función. Tambien te sirve la función hb_mbtowc( cValor ) que es equivalente.

... 1 ] := ! vdbf_[ oBrw:nRowPos ][ 1 ], oBrw:Refresh() ) @31, 19 BUTTON "Aceptar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., aSeleccion := {cValor}, oDlg:End() ) @31, 36 BUTTON "Cancelar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., lRetorno:=.F., aSeleccion:={}, oDlg:End() ) ACTIVATE ...

... cCantidad :=IIF(lOk,SPACE(LEN(Opera->Cantidad)),Opera->Cantidad) cCarga :=IIF(lOk,SPACE(LEN(Opera->Carga)),Opera->Carga) cValor :=IIF(lOk,SPACE(LEN(Opera->Valor)),Opera->Valor) cOperario :=IIF(lOk,SPACE(LEN(Opera->Operario)),Opera->Operario) cGaranth :=IIF(lOk,SPACE(LEN(Opera->Garanth ...

... 1 ] oCol:nEditType := 1 oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, _saveCol1( o:nCreationOrder, v ), ) } static function _saveCol1( nCol, cValor ) local nRecno := (cAli)->( recno() ) dbselectArea(cAli) if nCol = 1 rlock() field->fecha := ctod(cValor) dbunlock() endif oBrw3:refresh() ...