FiveTech Software tech support forums

... nConti=nConti+1 SWPanelRefresh( oPan,"Calculando....Qtde= "+"("+ Strzero(nconti,5) +")" +" Codigo Trab.: "+ RETIDO->COD_AVUL ) DO WHILE cAvulso == RETIDO->Cod_Avul .AND. cEmpresa == RETIDO->COD_EMPRES // .AND. !EOF() SYSREFRESH() nContador++ ...

... la línea 104 del programa es SET MESSAGE OF oVentPrinc ; // Mensaje que mostrar  al estar TO "Quim-Trans Coop Trab Lda "; // activa la ventana principal. KEYBOARD; // Mostrar estado del teclado DATE // Mostrar Fecha Luis

... NEXT MsgInfo(Str(oRs:autoin)) return nil Pressing the button to import TXT to SQL I get this error: Application =========== Path and name: C:\Trabajos\Trab\Pruebas\Source\prueba1.exe (32 bits) Size: 1,518,080 bytes Time from start: 0 hours 0 mins 4 secs Error occurred at: 12/31/09, 12:00:27 ...

... MsgInfo(Str(oRs:autoin)) return nil Al pulsar al botón para importar de TXT a SQL me sale este error: Application =========== Path and name: C:\Trabajos\Trab\Pruebas\Source\prueba1.exe (32 bits) Size: 1,518,080 bytes Time from start: 0 hours 0 mins 4 secs Error occurred at: 12/31/09, 12:00:27 ...

... con campo lógico. oCol:= oBrw:AddCol() oCol:AddResource("TIQUEA-NO") oCol:AddResource("TIQUEA-SI") oCol:bBmpData:= { || iif( TRAB->SEL, 1, 2) } // SEL es campo lógico oCol:nWidth:=15 oCol:bLDClickData:={|| ELIGE(oDBF) } //Doble click Izquierdo oCol:bRClickData :={|| ELIGE(oDBF) ...

... )} .. REDEFINE RADIO nPenProEje ID 103,104,105 OF oDlg1 ON CHANGE EVAL(xRadio) .. oCol:= oBrw1:AddCol() oCol:bStrData := { || OEMTOANSI(TRAB->RESPONSABL)} oCol:nWidth:=175 oCol:nHeadStrAlign := AL_CENTER . . Function Cambia(oDBF,oCol) cEjeReal:=iif(nPenProEje=1,"PENDIENTE",iif(nPenProEje=2,"LO ...

... )} .. REDEFINE RADIO nPenProEje ID 103,104,105 OF oDlg1 ON CHANGE EVAL(xRadio) .. oCol:= oBrw1:AddCol() oCol:bStrData := { || OEMTOANSI(TRAB->RESPONSABL)} oCol:cHeader:=cEjeReal oCol:nWidth:=175 oCol:nHeadStrAlign := AL_CENTER . . Function Cambia(oDBF) cEjeReal:=iif(nPenProEje=1,"PENDIENTE",iif(nPenProEje=2,"LO ...

... para que cambie un Header de xBrowse cuando una variable o un radio cambia de valor Ej: oCol := oBrw1:AddCol() oCol:bStrData := { || OEMTOANSI(TRAB->RESPONSABL)} oCol:cHeader:=IF(cRes="E","LO EJECUTO","LO REALIZA") oCol:nWidth:=175 oCol:nHeadStrAlign := AL_CENTER ...

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Hola, Compilando un módulo C con el Vce me da el siguiente error: c:\trabajos\trab\globalprn\utils_c2.c(1156) : error C2223: left of '->pSymbol' must point to struct/union Y el código en cuestión es: HB_EXPORT PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ...

... 7 ) ) cStatus := substr( cDato, nInicio+11, 1 ) @ 19,25 SAY nTrab PICT "9999999" GrabaEntrada(nTrab) DO CASE CASE cStatus == " " EXIT /* El TRAB es correcto */ ENDCASE EXIT ENDDO Y NECESITO PASARLO A FIVEWIN, PARA ESO PUSE LO SIGUIENTE: function entrada() local cDcb, nBytes,nError,cDataRead ...

... 7 ) ) cStatus := substr( cDato, nInicio+11, 1 ) @ 19,25 SAY nTrab PICT "9999999" GrabaEntrada(nTrab) DO CASE CASE cStatus == " " EXIT /* El TRAB es correcto */ ENDCASE EXIT ENDDO Y NECESITO PASARLO A FIVEWIN, PARA ESO PUSE LO SIGUIENTE: function entrada() local cDcb, nBytes,nError,cDataRead ...

... * Application successfully built Connecting to Windows CE Failed connecting to Windows CE! Presione una tecla para continuar . . . *** Process "C:\TRABAJOS\TRAB\GlobalPda\prg\COMPILAR.bat" terminated. Return code=0 med> ¿Por que aparecen estos 'warnings' y errores? Saludos, José Luis Capel