FiveTech Software tech support forums

... *-------------------------- Local cVendido Local aAsiento:="" cVendido=xServer:Query("SELECT asiento,ori,des,reserva FROM vendido WHERE cod_viaje='"+AllTrim(CodViaje)+"' and cod_interno='"+AllTrim(Str(CodControl))+"' and asiento='"+Str(nSit)+"' ...

Hola,

una idea seria ON CHANGE variable := acNom[ oOri:ORI_PAI ]

Saludos foreros: Tengo el siguiente código:      acNom := {"Francia","Italia","España"}     anNum :=  {1,2,3}     ....      REDEFINE DBCOMBO aGets[08] VAR oOri:ORI_PAI ID 108;         ITEMS anNum LIST acNom OF oDlg UPDATE  En la variable oOri...

si Append blank si CLIENTES->( OrdScope( 1, Nil ) ) ? COUNT TO nDuplicados FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE A...

Hello, Indexes are failing: Error description: Error BASE/1132 Error de rango: acceso al array Args: [ 1] = A { ... } length: 0 [ 2] = N 0 At, ADO_ORDLSTFOCUS( 1135 ): here: aOrderInfo[ UR_ORI_RESULT ] := aWAData[ WA_INDEXES ] [aWAData[ WA_INDEXACTIVE ]] aWAData[ WA_INDEXACTIVE ] := n ELSE My code: ...

The controlling index is set in the ADO recordset:

oRecordSet:Index := aOrderInfo[ UR_ORI_BAG ]

Antonio,

The aOrderInfo[ UR_ORI_TAG ] can be Numeric or String.

Is this behavior correct?

Amigos tengo este codigo: FOR Z= 1 TO 42 o:=0 For I=pos_ori to pos_des If aBus[Z,I]="S" o:=1 Endif Next If o=1 REDEFINE IMAGE aGets[Z] ID aId OF odlg Resource "ocupado" UPDATE REDEFINE CHECKBOX oBox[Z] VAR lChkBox[Z] ID bId OF oDlg UPDATE oBox[Z]:DISABLE() Else REDEFINE IMAGE aGe...

Is your table DBF or SQL? If it´s SQL you could try padr( ORI->LIBELLE, N ).

... due to recent versions). I explain : I use tables where there is a description and an id , the table is added like this AADD(MESVARS():TABVAR[12],ORI->LIBELLE + " " + STR(ORI->NUMERO,6) ) where there is a title and an id that i can retreive , i want the combobox to display the ...

Hola FiveWinners. Este codigo genera una mail con imagenes y funciona bien. espero les sirva Saludos // envio de mail #Include "FiveWin.ch" Function Enviar_Main(_TO, _CC, _BCC, _PDF, _XML, _TEXTO, _SUBJECT, _MSG, _cliente, _folio) LOCAL RET:=.T. PRIVATE oEmailCfg,oEmailMsg PRIVATE cServerE...

... "FECHA", "COD.BANCO", "DESCRIPCION", "CONCEPTO", "TE", "MONTO", "ORI" ; COLUMNS 1, 2, 3, 4, 5, 6, 7, 8, 9 ; COLSIZES 50, 100, 100, 100, 200, 120, 50, 100, 50 ; JUSTIFY AL_CENTER, AL_LEFT, AL_CENTER, AL_LEFT, ...

... "FECHA", "COD.BANCO", "DESCRIPCION", "CONCEPTO", "TE", "MONTO", "ORI" ; COLUMNS 1, 2, 3, 4, 5, 6, 7, 8, 9 ; COLSIZES 50, 100, 100, 100, 200, 120, 50, 100, 50 ; JUSTIFY AL_CENTER, AL_LEFT, AL_CENTER, AL_LEFT, ...

Hi, UPurl:="http://200.207.118.102:8079/axis2/services/RecargasWeb?wsdl" oUp := CreateObject("MSSOAP.SoapClient30") oUp:MSSoapInit(alltrim(UPurl)) tokenVO:=oUp:Logon(COD_ORI,PWD,COD_TER,COD_EST,MAC) ? tokenVO http://www.sysfar.com.br/temp/soap.jpg In return Ob...

no se puede probar, falta:

#include 'dob.ini' //??

mUBI_ORI:=DIRECMain() //???

Saludos.