FiveTech Software tech support forums

... seguir haciendo? USE PROVEE INDEX ON PROVEE->NOMBRE TO (pPath+"\PROVEE") INDEX ON PROVEE->CODIGO TO (pPath+"\PROVEE2") INDEX ON PROVEE->NIF TO (pPath+"\PROVEE3") ¿No es posible tener los índices separados y cambiar el índice activo con dbsetorder? Muchas gracias a todos.

... AL_LEFT oCol:nHeadStrAlign:= AL_LEFT oCol:lAllowSizing :=.F. oCol := oBrw:AddCol() oCol:cHeader := "N.I.F." oCol:bStrData := { || trabajad->nif } oCol:nWidth := 120 oCol:nDataStrAlign:= AL_LEFT oCol:nHeadStrAlign:= AL_LEFT oCol:lAllowSizing :=.F. oCol := oBrw:AddCol() oCol:cHeader := "Dirección" ...

... ::oUtil 5.5, 10.7 SAY "(" + AllTrim(::oTdbfFactur:PROVINCI) + ")" ; FONT ::oFnt_10B COLOR CLR_BLACK UTILPRN ::oUtil 6.0, 10.7 SAY ::oTdbfFactur:NIF FONT ::oFnt_10B COLOR CLR_BLACK /* Cajas de la cabecera del encolumnado. -----------------------------------*/ UTILPRN ::oUtil BOX 8, 1.5 TO 9, ...

... La ventana la construí asi: DEFINE DIALOG FINESTRA FROM 1,1 TO 498,672 PIXEL TITLE TIT FONT TLLETRA @ 12,10 SAY "NIF:" SIZE 12,9 PIXEL OF FINESTRA @ 10,26 GET CAMPS[1] SIZE 38,11 PICTURE "!9999999!" UPDATE VALID EMPTY(CAMPS[1]) .OR. NNC(CAMPS[1])="S" .OR. IF(LEN(ALLTRIM(NNC(CAMPS[1])))>1,(CAMPS[1]:=NNC(CAMPS[1]),FINESTRA:UPDATE(),.T.),(TONE(900,2),MsgStop("Número ...

... #define DIALOG_2 2 sub1 DIALOG 1, 2, 125, 99 STYLE WS_CHILD | 4 { LTEXT "Fecha alta", 10, 82, 2, 26, 8 LTEXT "Codigo", 11, 4, 2, 26, 8 LTEXT "CIF/NIF", 13, 40, 2, 26, 8 EDITTEXT 210, 4, 16, 29, 12} TestFld DIALOG 3, 6, 131, 124 STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU ...

... #define DIALOG_2 2 sub1 DIALOG 1, 2, 125, 99 STYLE WS_CHILD | 4 { LTEXT "Fecha alta", 10, 82, 2, 26, 8 LTEXT "Codigo", 11, 4, 2, 26, 8 LTEXT "CIF/NIF", 13, 40, 2, 26, 8 EDITTEXT 210, 4, 16, 29, 12 } TestFld DIALOG 3, 6, 131, 124 STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU ...

... ID 106 OF oDlg Update REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Provin ID 107 OF oDlg Update REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Nif ID 108 OF oDlg REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:codpos ID 109 OF oDlg Update picture "XXXXX" REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Telefono ...

... ,; Cli->CLIPROVIN ,; Cli->CLIDNINIF ; HEADERS ; "Código","Empresa","Dirección" ,; "Población","C.Postal","Provincia","Dni / Nif" ; FIELDSIZES 50,180,180,180,50,100,100 ; ID 101 OF oDlgcli ; UPDATE oLbx:nLineStyle := 3 oLbx:bChange := {||oLbx:Refresh()} REDEFINE BUTTON oBtEnd ...

... CAPTION "Añadir modificar clientes" FONT 8, "MS Sans Serif" { CTEXT "Código", -1, -1, 1, 33, 8 CTEXT "Fecha Alta", -1, 34, 1, 54, 8 CTEXT "CIF/NIF", -1, 87, 1, 54, 8 EDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER EDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP ...

... CAPTION "Añadir modificar clientes" FONT 8, "MS Sans Serif" { CTEXT "Código", -1, -1, 1, 33, 8 CTEXT "Fecha Alta", -1, 34, 1, 54, 8 CTEXT "CIF/NIF", -1, 87, 1, 54, 8 EDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER EDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP ...

Hola Leandro: Hacer un archivo xml es tan fácil como generar un archivo plano y puedes hacerlo perfectamente con clipper/fivewin; eso sí, siguiendo un esquema determinado que han de proporcionarte previamente para poder generarlo. Otra historia es programar en xml, pero creo que eso se sale completa...