FiveTech Software tech support forums

... function AbmCorregir() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CORREGIR" ) local oBr, oFont local titgral := 'Información Sobre Correcciones' local atitcol := '' local acampos := {} local ...

... :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE ...

... :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE ...

... :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE ...

... := 2 local cList, aFlds, aHdrs local nChoice, uDataSource local cAlias,oWndChild cList := "First,Last,Street,State,HireDate" cAlias = cGetNewAlias( cFileNoExt("CUSTOMER.DBF" ) ) USE CUSTOMER SHARED NEW ALIAS (cAlias) SET ORDER TO TAG FIRST GO TOP DEFINE FONT oFont NAME "TAHOMA" ...

... function AbmOC() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "_ARTFOR" ) local oBr, oFont local titgral := 'Stock' local atitcol := '' local acampos := {} local lcampos Private oBar acampos ...

... que muestre el nombre del cliente. si alguien ve en que le estoy errando agradecere su ayuda. gracias aca el prg. local oDlg, oBrw, cAlias := cGetNewAlias( "PRECFOR" ) local oBr, oFont local titgral := 'Precios de FORMULARIOS' local oBrw2, cAlias2 := cGetNewAlias( "PRECBAR" ...

cGetNewAlias( "CONSORC" ) returns "CONSORC" if the alias "CONSORC" is not already in use. If that alias is already in use, it returns "CONSORC001" If both the aliases "CONSORC" ...

Hola. nuevamente gracias. hoy detecte que el problema es que la función cAlias := cGetNewAlias( "CONSORC" ) me devolvía como resultado CONSORC001 asi que prove con calias := left(calias,7) y a partir de allí santo remedio, revisando otras rutinas que hacen ...

... un dialogo con un browse y unos botones para las acciones. prove asi: use consorc index consorc1, consorc2 new alias (cAlias) y sacando cAlias := cGetNewAlias( "CONSORC" ) y da el mismo error y si dejo los 2 me muestra el dialogo con el browse y fijate que pasa en este caso.: si traigo ...

... * * * function AbmConsor() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CONSORC" ) local oBr, oFont local aGrad := ; { ; { 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ; { 0.5, RGB( 237, 234, ...

... del índice seleccionado en la barra de mensajes cuando es pulsado el encabezamiento de la columna del "browse". * Mejora: La función cGetNewAlias( cAlias ) ahora soporta el carácter "-" en el nombre cAlias. Gracias a Lailton ! * Nuevo: La función cGetNewAliasName( cAlias ...

... * Enhancement: samples\fivedbu.prg updates the index selected tag in the MsgBar when a browse column header is clicked. * Enhancement: function cGetNewAlias( cAlias ) now supports "-" in the cAlias name. Thanks to Lailton! * New: function cGetNewAliasName( cAlias ) returns a new valid ...

Uwe wrote: cAlias := cGetNewAlias( "CUST" ) USE CUSTOMER NEW ALIAS (cAlias) SHARED VIA "DBFCDX" oCust := TDataBase():New( Select( cAlias ) ) The above should be this simple: oCustomers:= TCustomers():New() You need ...

Angel, Aqui sigue funcionando bien. Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd : ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definitio...