FiveTech Software tech support forums

... on razsoc to i_fcli1 y despues con la version anterior de FWPPC mostraba los datos así: @ 2.2,0 LISTBOX oObj[6] FIELDS TienePedido(ctbfcli->codcli),TieneCobros(ctbfcli->codcli),ctbfcli->codcli,ctbfcli->razsoc COLSIZES 18,13,35,200 HEADERS "PA","C","Cód.","Razón Social" SIZE 240,210 ...

... HEADERS "No","Código","Descripción del Producto","Cantidad","Vlr.Unitario" ,; "% Desc","% Iva","Subtotal" ; ON DBLCLICK IF(!Empty(::oMacot:CodCli) .And. !lView ,; (::NewIte(oList,.F.),::oLbxBody:Refresh()),) ; ON CHANGE Eval(bChanBrw) ; JUSTIFY 1,0,0,1,1,1,1,1 ; COLSIZES 27,90,140,70,90,40,40,90 ...

... y uso lFlag (al inicio del prg en .f., en el ON INIT lFlag:= .T. : bFields := {|nAt| nAt:= oBrw:nAt,; if ( lFlag,; Array(4),; { STR( oRs21:Get('codcli'),6,0 ),; oRs21:Get('nombre'),; oRs21:Get('domici'),; " " } ) } aHeaders := { 'Cod.', 'Nombre', 'Domicilio', " " } aTamanio := { 50,200,180,,15 ...

... TAG Razoncliente INDEX ON Clientes->Saldo TAG Saldocliente INDEX ON Clientes->tcate TAG Tcatecliente INDEX ON Clientes->codcli TAG Codcliente INDEX ON Clientes->codrut TAG Crutcliente // USE PROVEEDO NEW INDEX ON Proveedo->Rut TAG RutProveedo INDEX ON Proveedo->Razon ...

... TAG Razoncliente INDEX ON Clientes->Saldo TAG Saldocliente INDEX ON Clientes->tcate TAG Tcatecliente INDEX ON Clientes->codcli TAG Codcliente INDEX ON Clientes->codrut TAG Crutcliente // USE PROVEEDO NEW INDEX ON Proveedo->Rut TAG RutProveedo INDEX ON Proveedo->Razon ...

... MemoRead( "\\maquina\path\articulos" ) USE (CurDir() + "\\maquina\path\articulos") VIA "DBFCDX" new articulos->( OrdSetFocus( "cod_art+nom_art+codcli" ) ) INDEX ON cod_art+nom_art+codcli TO articulos AliasArticulos := Alias() Pero esto no me funciona me dice que no puede abrir la tabla.... ...

Elías,

Añade esto:

redefine LISTBOX oBrw ;
FIELDS articulos->cod_art,articulos->nom_art,STR(articulos->cant),STR(articulos->precio) ;
HEADERS "Código", "Descripción", "Cant", "Precio" ID 100 OF oDlg ;
SELECT articulos->cod_cli FOR (cAliasCliente)->codcli

... pretendo es hacer lo mismo que hace set filter pero con indices, no se si me he explicado..... (cAliasArticulos)->( DbSeek( (cAliasCliente)->codcli, .t. ) ) DEFINE dialog odlg resource "Cliente_articulos" redefine LISTBOX oBrw ; FIELDS articulos->cod_art,articulos->nom_art,STR(articulos->cant),STR(articulos->precio) ...

... of odlg redefine get oGetCant id 300 of odlg picture '999' redefine get oGetPrecio id 400 of odlg redefine combobox oGetCodCli items {clientes->codcli} id 4001 of odlg Si en los items del combo pongo a mano cualquier cosa, funciona pero lo que quiero es que me enlace con la tabla de clientes.... ...

Ya lo he solucionado...

Lo que tenia no era del todo correcto, lo modifiqué y puse esto

SET FILTER TO (articulos->codigo==clientes->codcli)
articulos->(DBGOTOP())
odlg:REFRESH()

y ademas lo metí directamente en la funcion registros()


Saludos...

Elías Torres

... si estoy haciendo bien un set filter en una tabla, este es parte del código que utilizo.. 1-----SET FILTER TO (ariculos->codigo == clientes->codcli) 2-----articulos->(RECNO()) 3-----odlg:REFRESH() 4-----registros() La linea 1 es donde pretendo realizar el filtrado,la 2 coloco el recno ...

... SET AUTOPEN ON // Abre los indices CDX automaticamente. USE CLIENTE NEW SHARED //ALIAS "CLIENTE" if !File("CLIENTE.cdx") INDEX ON UPPER(FIELD->CodCli) TAG indcc INDEX ON UPPER(FIELD->Nombre1) TAG indcn INDEX ON UPPER((FIELD->Provincia+; FIELD->Poblacion+FIELD->Nombre1)) TAG indcnpp ...