FiveTech Software tech support forums

Hola gente, tengo definido este listbox REDEFINE LISTBOX oLbx FIELDS ; str( oRSRub:Fields( "rubro" ):Value, 3 ), ; oemtoansi( oRSRub:Fields( "descri" ):Value ) ; HEADERS oemtoansi( "N£mero" ), oemtoansi( "Descripci¢n" ) ; // ON dblCLICK ...

... es el INNER JOIN: cSQL := "SELECT s.id, s.Codigo, s.Codbarra, s.Descri, s.Precio_vta, s.Cantid, s.Cantid1, s.Cantid2, s.Cantid3, s.Cantid4, s.Rubro, s.Descri1, s.Marca, s.Costo, s.Minimo, s.Lote, s.Porc_iva, s.Gravado, s.Fec_alta, " + ; " s.Fec_modi, s.Descu1, s.Descu2, s.Descu3, ...

... de esta consulta: cSQL := "SELECT s.Codigo, s.Codbarra, s.Descri, s.Precio_vta, s.Cantid, s.Cantid1, s.Cantid2, s.Cantid3, s.Cantid4, s.Rubro, s.Descri1, s.Marca, s.Costo, s.Minimo, s.Lote, s.Porc_iva, s.Gravado, s.Fec_alta, " + ; " s.Fec_modi, s.Descu1, s.Descu2, s.Descu3, ...

Hola, de nuevo yo... La idea es armar una cabecera de una Lista de Precios, donde el título de ese rubro, tenga un recuadro negro y las letras aparezcan en blanco, para marcar un poco la diferencia de agrupación. Se podrá hacerlo con TPrinter? Probé con "nBkMode" ...

aCol := {"StrZero(Productos->Codigo,8,0)","Productos->Descrip","StrZero(Productos->Rubro,4,0) + "-" +Traetabla("Rubros","Indi1","Rubros",Productos->Rubro)[2]","Productos->Precio1","Productos->Precio2"} ...

... campos necesito intercalar entre ellos la descripcion de un campo de otra base. se entiende. quiero mostrar los articulos y en cada uno mostrar el rubro que esta en otra base, que tambien esta abierta y relacionada con set relation. Como se puede Hacer? Gracias

Como ven en la imagen tengo varios combos, al seleccionar un rubro, necesito actualizar el combo de marcas y cambia su contenido de acuerdo al rubro que seleccione, la sentencia sql ya la hice y el array lo actualizo, pero al volver asignar ese array a ...

... (::assign(),dbsetorder(2),; if(BUSCOA(upper(subs(xaaa,1,::nPos-1))+upper(chr(nkey)),oBrwa),.t.,.f.) ) REDEFINE XBROWSE oBrwr FIELDS ; str(2->rubro),; 2->Nombre ; HEADERS; "Rub.",; "Nombre" ; ID 182 OF oDlg oBrwr:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrwr:nColDividerStyle ...

... FAMILIA _FIELD->monodro + str(_FIELD->preliMONO _FIELD->laborat + _FIELD->descrip LABO STR(_FIELD->codbarra,13) CODBAR _FIELD->rubro RUBRO _FIELD->vigpre VIGPRE STR(_FIELD->codlab,6) + _FIELD->desCODLAB STR(_FIELD->codlab,6) LABCOD _FIELD->codint CODINT _FIELD->accion ...

... wfprodu->(Dbclearfil()), wfprodu->(Dbgotop()),; oBrw:refresh(),oBrw:Gotop(),oBrw:SetFocus(),;COLORPNEL CLR_HRED SEPARATOR for x:= 1 TO len(aRubros) MENUITEM "Rubro " + aRubros[x] RESOURCE 'b_xopen' ; ACTION ( Dbclearfil(), Dbsetfilter({|| wfprodu->rubro = Substr( oPopRub:oLastItem:cCaption,7,1) ...

... ; " Cantidad SINGLE, " + ; " Bajas SINGLE, " + ; " Valor SINGLE, " + ; " Proveedor TEXT(100), " + ; " Rubro TEXT(30), " + ; " Borrado TEXT(1), " + ; " Operador TEXT(30), " + ; " OFecha DATE, " + ; " OHora TEXT(5) ...

... oSheet:Cells( 1, 3 ):Value = "Cod.Linea" oSheet:Cells( 1, 4 ):Value = "Des.Linea" oSheet:Cells( 1, 5 ):Value = "Cod.Rubro" oSheet:Cells( 1, 6 ):Value = "Des.Rubro" XFILA:=1 XCOL:=7 CASE XORDEN=2 oSheet:Cells( 1, 1 ):Value = "Cod.Linea" oSheet:Cells( ...

... oSheet:Cells( 1, 3 ):Value = "Cod.Linea" oSheet:Cells( 1, 4 ):Value = "Des.Linea" oSheet:Cells( 1, 5 ):Value = "Cod.Rubro" oSheet:Cells( 1, 6 ):Value = "Des.Rubro" XFILA:=1 XCOL:=7 CASE XORDEN=2 oSheet:Cells( 1, 1 ):Value = "Cod.Linea" oSheet:Cells( ...

... (oMae:cAlias)->LOCA,; (oMae:cAlias)->PCIA,; (oMae:cAlias)->TELE,; (oMae:cAlias)->CUIT,; (oMae:cAlias)->IVA,; (oMae:cAlias)->RUBRO,; STR((oMae:cAlias)->VENDEDOR); ON DBLCLICK CLIENTES(olbx,.f.,oMae,oMemos,oDomcli,oClitrans,oHasedro) ID 101 OF oDlg oLbx:aheaders:= {"Código","Cliente", ...

... Param 5: C "OTHA1" Local 1: N 15794176 Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 88: RUBRO RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName => RUBRO->DESCRIP RUBTMPIN2 Relations ...