FiveTech Software tech support forums

... 'DBF' ), { estructura del movim } ) Use (cFile) Alias TempMov Exclusive New For i:= 2 to Year(Date())%100 For j:= 1 to 12 If File( cMov:= 'MOV'+StrZero(j,2)+StrZero(i,2)+'.dbf' ) Use (cMov) Alias MOVMES Shared ReadOnly New // Traspasar los movimientos Close MOVMES EndIf EndFor EndFor Bueno, ...

... CLIPPER PRNSTATUS() // nPort (LPT1 = 1, LPT2 = 2, ...) { int Port = IF( PCOUNT() == 0, 0, _parni( 1 ) - 1); unsigned char iRetVal = 0; asm { mov ah, 02h mov dx, Port int 17h mov iRetVal, ah } _retl( iRetVal == 0x90 ); } Saludos

Amigos, estoy trabajando con MySQL y ahora he instalado la nueva version 5.0.15 que ofrece una seria de novedades. dentro de los temas que estoy probando es el llamado a Store Procedure, El Store tiene el siguiente contenido update spp_tab set mov_mayori='S' where mes_movimi=spp_mes Donde spp_tab y ...

Luis: Mira este ejemplo. REDEFINE BROWSE oBrw ALIAS (cDePaso) UPDATE GRID ID 200 OF oDlg; WHEN ! EMPTY(oCab:HDR_NOM) ADD COLUMN TO oBrw; HEADER "Producto"; SIZE 95 PIXELS ; DATA FIELDWBLOCK("MOV_PRO",SELECT(cDePaso)); ALIGN DT_LEFT,DT_LEFT,DT_RIGHT; EDITABLE; PICTURE "@!K"; FOOTER { || TRANSFORM(nTo...