FiveTech Software tech support forums

Hola a todos. Vamos a ver.... Tengo dos tablas creadas y puedo acceder al contenido de ambas sin ningún problema. Ahora bien, tengo declarada las tablas de la siguiente forma y en este orden: USE ( CurDir() + "\Clientes" ) VIA "DBFCDX" Clientes->( OrdSetFocus( "nomcli" ) ) Clientes->( DbGoTop(...

Any one can write to me an small sample to make a mini TPV with a browse ?
I made buttons of products when I click on it must insert a record on listbox ( cod,desc,price,cat)

regards

Any one can write to me an small sample to make a mini TPV with a browse ?
I made buttons of products when I click on it must insert a record on listbox ( cod,desc,price,cat)

regards

... nuevos pero el campo clave que es codigo esta fuera de las tres(3) pestañas y cuando le digo oPa1:SetOption(1) oPa1:nOption(1) oPa1:Refresh() Cod:Setfocus(.t) no lo hace solo se ubica en el Primer Get de la Primera Pestaña, ahora no se que decir si lo quiero mandar fuera de las pestañas, se ...

Prueba con algo asi:
REDFINE OCOD VAR COD ID 108 OD CINV;
......
PONER AL PRINCIPIO
COD:=SPACE(20),OCOD:SETPOS(1),OCOD:REFRESH()

ESTIMADOS COLEGAS TENGO EL SIGUIENTE INCONVENIENTE EN ESTE EJEMPLO: REDEFINE COD ID 108 OF CINV ; VALID ( VE_RPTO( lDevuelve, Cod ), ; IIF ( lDevuelve = .T., !Emphy(Cod), Cod == Nil ) ) me funciona bien, si el cod esta en blanco no avanza, si lo busca en la base ...

... oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:aCols[1]:cHeader := 'Cod' oBrw:aCols[1]:cEditPicture := '@k 99' oBrw:aCols[1]:bClrEdit := oBrw:bClrStd oBrw:aCols[1]:bOnPostEdit ...

Es el código // Reviewing arrays - using FiveWin TCBrowse #include "FiveWin.ch" #include "TCBrowse.ch" //----------------------------------------------------------------------------// static oBrw //----------------------------------------------------------------------------// Function factura(oWnd) ...

... <tr>") FWrite(hFile," <td width='46' align='center'> <font face='Arial' style='font-size: 11pt'>") FWrite(hFile,CALLES->COD) FWrite(hFile,"</td>") FWrite(hFile," <td width='150'><font face='Arial' style='font-size: 11pt'> ") FWrite(hFile,CALLES->DOMICILIO) ...

... ON_BOTTOM ; TOOLTIP OEMTOANSI("Movimiento de Entrada/Salida"); MESSAGE OEMTOANSI("Movimiento de Entrada/Salida"); ACTION (MoviArt((WALIAS)->COD),cSaldo:=ART->SALDO,oSaldo:Refresh()) FUNCTION MoviArt(cCod) LOCAL cAlias:=GETNEWALIAS("MOVART") LOCAL VEC_FIELD:={{ || DTOC((cAlias)->MFMV)} ...

Bueno amigos a lo mejor no me explique bien, resulta que tengo 2 base de datos una con bodegas otra con articulos, la base articulos la tengo definida asi con sus campos cod_Art,Det_Art,Pre_Art,Bod_001,Bod_002,Bod_003, hasta la Bod_010 y la base bodega Cod_Bod,Det_Bod en el programa lo tengo definid...

Felipe: Usa vectores para la definicion del browse: Local VEC_FIELD1 := { {|| ART->COD} ,; { || ART->CLAVE } ,; VEC_ENC1 := { OEMTOANSI("C¢d."),; " Clave",; VEC_SIZE1 := {70,109,226,77,77,64,109,73,40,110,52,52,52,90,90},; VEC_JUSTIF := {2,2,0,2,2,2,0,0,0,0,0,2,2,0,0},; ...

amigos este es mi codigo, necesito que me orienten, como cambio la linea que dice ventas1, como archivo, como para que sea leido en red, pero del tipo mdi, o sea que esta misma ventana se pueda abrir en el mismo equipo a lavez, cualquier sugerencia es bienvenida..... FUNCTION PRG_2211() Local oDlgEd...