FiveTech Software tech support forums

Hola gente, tengo un problema, cuando hago la busqueda el xbrowse me muestra todos los registros iguales, el recordset tiene bien todos los registros correctos, o sea es un problema de muestra del xbrowse DEFINE DIALOG oDlgStk RESOURCE "validastkw" TITLE "Consulta de Stock" redef...

Lo que está creando el conflicto 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...

Hola gente, tengo un xbrowse 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...

Hola gente, estoy tratando de generar una tabla temporal para poder editar y luego generar otra con el resultado. el tema es que por programa me da error y si copio la sentencia al sql manager funciona bien, no me doy cuenta que estoy haciendo mal. cSQLP := ; "truncate table TmpProd "+ chr...

cVta_Cot1:=xServer:Query("SELECT a.*, b.* FROM vta_cot1 AS a INNER JOIN tab_cte AS b ON b.rut_ce = a.rut_ce WHERE a.nro_cot >='"+Str(cFolio1)+"' and a.nro_cot<='"+Str(cFolio1)+"' ORDER BY a.nro_cot")

Te agradezco la respuesta.. pero la hago mas difícil... si antes debo hacer esto.. cVta_Cot1:=xServer:Query("SELECT * FROM vta_cot1 WHERE nro_cot >='"+Str(cFolio1)+"' and nro_cot<='"+Str(cFolio1)+"' ORDER BY nro_cot") que era lo que hacia con Select 90 Set Order t...

SELECT a.*, b.* FROM vta_cot1 as A INNER JOIN tab_cte AS b ON b.rut_ce = a.rut_ce

Estimados amigos, como puedo realizar lo siguiente en Mysql. Así lo hago en DBF, en donde los archivos Vta_Cot1 se relaciona con Tab_Cte, por el campo común entre ellos rut_cte.. Set Relation to Vta_Cot1->Cte_Cot into Tab_Cte oCol2 := oBrw2:AddCol() oCol2:bStrData := { || Transform(Vta_Cot1->N...

Estimados, estoy haciendo un dialogo que contenga dos browse con datos de dos bases de datos (dbf), sin ordenar estos archivos, el tema es que una base llamada documentos tiene 1 registro y la otra base llamada arqueo tiene 9 registros, cuando presento el dialogo, me muestra 9 lineas con el mismo re...

Acabo de actualizar a FWH1306 y ahora al compilar me marca el siguiente error: C:\ACS\VTA\TOROS\PRG\Tarjeta.prg(473) Error E0022 Invalid lvalue: ':' y la linea de error es esta: REDEFINE CHECKBOX EVAL({||oTDBF:OrAn="O"}) ID 24 OF oFold:ADIALOGS[5] ...

... ) <= 1 ) " + ; " THEN ( SELECT LP2.[U_HO_COSTO] FROM OITM LP2 WHERE T0.[ItemCode] = LP2.[ItemCode] ) * 1.67 " + ; " END )[VTA] " + ; "FROM OITM T0 INNER JOIN OITW T1 ON T0.ItemCode = T1.ItemCode " + ; " INNER JOIN OITB T2 ON T0.ItmsGrpCod = T2.ItmsGrpCod ...

... oQryBancos, lNew ) ), ) } :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, 1] ) } END WITH WITH OBJECT oBrw:aCols[9] // ORIGEN DEL MOV.(cja,bco,vta,odp,com) :bStrData := {|| IIF( LEN( aItems ) = 0, SPACE(10) ,; aItems[oBrw:nArrayAt, 9] ) } :cToolTip := "Origen del Movimiento" END WITH ...

... oQryBancos, lNew ) ), ) } :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, 1] ) } END WITH WITH OBJECT oBrw:aCols[9] // ORIGEN DEL MOV.(cja,bco,vta,odp,com) :bStrData := {|| IIF( LEN( aItems ) = 0, SPACE(10) ,; aItems[oBrw:nArrayAt, 9] ) } :cToolTip := "Origen del Movimiento" END WITH ...

Estoy utilizando el siguiente twbrowse y necesito editar la columna que tiene //CANTIDAD, para que se puedan cambiar los valores. ¿como se hace esto? alguien tiene un ejemplo. @19.5,0.1 BROWSE oBrw_Vta OF oWnd_Ventas ; HEADERS hb_strtoutf8(TXTp00_010), hb_strtoutf8(TXTp00_011), hb_strtoutf8(TXTp00_0...

Me auto respondo: fCambia_Font(oBrw_Vta:hWnd, 1) #IfDef __FIVELINUX__ #pragma BEGINDUMP #include <gtk/gtk.h> #include "hbapi.h" HB_FUNC( FCAMBIA_FONT ) { PangoFontDescription *fontDesc; if (hb_parnl(2) == 1) { fontDesc = pango_font_description_from_string( "courier italic 10&quo...