FiveTech Software tech support forums

... := 1 to nLineas cLinea := strtran( strtran( memoline( cText, ,lnPos ), chr(10), '' ), chr(13), '') fwrite( hCom, rtrim(cLinea) + chr(13)+chr(10)) endfor CloseHandle( hCom ) Recuerden que en los ejemplos se escribia byte a byte, y bueno, a mi me funciono de maravillas, pruebenlo a ver...

... algo así como.... For n := 1 to 15 oCol := oBrw:AddCol() oCol:bStrData := FieldWBlock(FieldName(n),nSelect) oCol:cHeader := FieldName(n) ...... EndFor No te funciona de esa forma pq cuando el ciclo for se termina la variable "n" contiene el valor 16, cuando se hace el "armado" ...

... algo así como.... For n := 1 to 15 oCol := oBrw:AddCol() oCol:bStrData := FieldWBlock(FieldName(n),nSelect) oCol:cHeader := FieldName(n) ...... EndFor Y ya que estamos decir que he solucionado lo de los Radio. Curiosa la cosa. Resulta que el problema está en la forma de colocar los radios, estos ...

... desde un bucle? para que nos entendamos sería algo asi For n := 1 to 15 oCol := oBrw:AddCol() (o su equivalente para este caso) ..... ..... EndFor De esta forma puedo coger los "n" campos seguidos de una tabla y presentarlos

... == "xTFOLDER" If ValType( oWnd:aDialogs ) = "A" .AND. lFolder For nContador := 1 To Len( oWnd:aDialogs ) Auto800( oWnd:aDialogs[nContador], .F. ) EndFor EndIf ElseIF oWnd:Classname() == "TWBROWSE" FOR nContador=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nContador] *= nRancho NEXT ElseIF oWnd:Classname() ...

... oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf ElseIF oWnd:Classname() == "TWBROWSE" AEval( oWnd:aColSizes, { | eCol | eCol = (eCol * nFactorWitdh) } ) Else If ValType( oWnd:aControls ...

... oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf Else // Traza( 1, "ValType(oWnd:aControls)=", ValType(oWnd:aControls) ) If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ...

... .T. ) ) ; FONT ::oFnt_8 COLOR CLR_BLACK RIGHT nFIVA := nFIVA + ( aIVA[nContador][2] * aIVA[nContador][1] / 100 ) nFBI := nFBI + aIVA[nContador][2] EndFor UTILPRN ::oUtil 26.7, 11 SAY "Imports en " + cNameMnda( ::ArraJuva, ::oTdbfFactur:Mnda) ; FONT ::oFnt_8 COLOR CLR_BLACK CENTER UTILPRN ::oUtil ...

... { |oCampo| If( oCampo:cName == oTDbfDomici:aTField[nContador]:cName, oCampo:Val := oTDbfDomici:aTField[nContador]:Val, Nil ) } ) EndFor Saludos Carlos G.

... oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf Else // Traza( 1, "ValType(oWnd:aControls)=", ValType(oWnd:aControls) ) If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ...

... 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, no está completo pero el resto seguro lo puedes manejar. Un saludo, Carlos Gracias Carlos Mora, es mas o menos parecido a la rutina ...

... 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, no está completo pero el resto seguro lo puedes manejar. Un saludo, Carlos

... oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], ...

... J02CLRTEXTO,J02CLRFONDO ) aGets[nContador]:Disable() Else aGets[nContador]:lReadOnly := .T. aGets[nContador]:lUpdate := .T. EndIf Endfor Return Nil 3ª Esta se llama cuando se desea modificar/editar los campos. FUNCTION RONo( AMPAarra, aGets ) Local nContador := 0 For nContador ...

... FC_NORMAL)) == -1 lResultado := .F. Else FWRITE( hFile, ::aTo[1] ) For nContador := 2 To Len( ::aTo ) FWRITE( hFile, "," + ::aTo[nContador] ) EndFor FCLOSE( hFile ) EndIf EndIf If Len( ::aCc ) > 0 cOpciones := cOpciones + " -cf " + ::cCf IF ( hFile := FCREATE( ::cCf, FC_NORMAL)) == -1 lResultado ...