FiveTech Software tech support forums

... LOCAL cAvulso LOCAL cField, nLen LOCAL oMes,oEmp,oAvu LOCAL oPan, aCargo, cAno,lAllOk, nPos, aTemp, a // LOCAL cComp LOCAL nConti:=0 LOCAL nContador :=0 LOCAL nContador2:=0 local lEnd := .f. PUBLIC cComp PUBLIC cMesANO oPan := SWPanelWindow( "Função Testa Processo 01 - DBF ...." ...

... de evitar el (posible) problema planteado seria bloqueando el registro, antes de tomar el valor. Seria asi SELECT Diario GO BOTTOM Rec_Lock(0) nContador:= NumAsi+ 1 UNLOCK

... y 18 dígitos para 64 bits". Yo lo hago así: // cPais siempre 'ES' FUNCTION fIban( cBanco, cSucursal, cDC, cCuenta ) local nIban, cIban, nMod, nContador, cPais := 'ES', cPais2:='' // comprueba ccc es correcto IF !CCC (cBanco, cSucursal, cDC, cCuenta) // devuelve cadena vacia por error CCC RETURN ...

... Marca Torrey y no logro hacerlo funcionar, el codigo que estoy usando es el siguiente: FUNCTION TestBascula() LOCAL nComm, nError, i, cDato, nContador := 0, cPaso := "", cDcb := "" nComm := OpenComm("COM3:9600,N,8,1",2048,512) cDato := Space(80) If !BuildCommDcb( ...

... 2, 1 ):Comment:Text := "la data, fechita" oHoja:Columns( 1 ):Set( "NumberFormat", "#,##0" ) oHoja:Columns( (nContador + 1 ) ):NumberFormat := "#.##0" oHoja:Columns( (nContador + 1 ) ):NumberFormat := Lower( Set( _SET_DATEFORMAT ) ) oHoja:Columns( ...

... oInvPC , oMsg , oMarca, oPrecio , oDes , oMsg2 PRIVATE cBarCode := space(15) , oBarCode PRIVATE files_dir := "\\caja1\c\" PRIVATE nContador := 0 , oContador PRIVATE cEncargado := space(15) , oEncargado PRIVATE cCurDir := GetCurDir() PRIVATE lUsers := .F. PRIVATE dFecha := date() ...

... Tentei fazer funcionar com TXBROWSE e TCBROWSE, não obtive exito: :( ElseIF oWnd:Classname() == "TWBROWSE" .or. oWnd:Classname() == "TXBROWSE" FOR nContador=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nContador] *= nRancho NEXT O Sr. Acha que seria possível com estes dois browses?

... FUNCTION Auto800 ( oWnd, lRepaint, lFolder ) Local nOriWidth := 800, nOriHeight := 600, nWidth := 0, nHeight := 0, ; nContador, nRancho, nRalto DEFAULT lRepaint := .T., lFolder := .t. ScrResolution( @nWidth, @nHeight ) // importante If nOriHeight < nHeight nRancho ...

... "TFOLDER", y donde aparezca sustituye los condicionales por los siguientes: If oWnd:ClassName() == "TFOLDER" If ValType( oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf ElseIF oWnd:Classname() ...

... Local nWidth, nHeight // Son la relación entre la resolución de pantalla y la resolución de diseño. Local nFactorWitdh, nFactorHeight Local nContador DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) = 1 nOriWidth := 640 nOriHeight ...

... := 0 Local nFDescPron := 0 Local nFRetencio := 0 Local nFReteIRPF := 0 Local aIVA := {} Local nIVA := 0 Local nFIVA := 0 Local nFBI := 0 Local nContador := 0 Local uDummy := 0 /* Se cambia el fin del área de impresión. -------------------------------------*/ ::nEndLine := ::nEndLine - 4 While ...

... TDataBase pero más potente. En Tdbf se haría: oTDbfexDomi := oTDbfDomici:Clone( lNewArea, cComment ) y para copiar los valores de los campos: For nContador := 1 To Len( oTDbfDomici:aTField ) AEVAL( oTDbfexDomi:aTField, { |oCampo| If( oCampo:cName == oTDbfDomici:aTField[nContador]:cName, oCampo:Val ...

... aDetalle := &cDetalle IF ISARRAY(aDetalle) PROCEDURE ReporteDeSaldo_Proceso(lDetalle) LOCAL cId LOCAL anInfo LOCAL nCuotas PRIVATE nContador /*desabilita controles*/ oFecha:disable() oBtnOk:disable() oBtnExit:disable() /*incializa contador*/ nContador ...

... se generan a partir de: ::PathWork() + DToS( Date() ) + StrTran( Time(), ":" ) Se me ocurre que en la clase se podría definir una variable STATIC nContador (por ejemplo) que seria utilizada en el Metodo Init() de la siguiente manera: ::PathWork() + DToS( Date() ) + StrTran( Time(), ":" ) + AllTrim(Str(++nContador, ...

... RETURN ( 0 ) ENDIF oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oContacts = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder FOR nContador = 1 TO oContacts:ITEMS:Count() oNewContact = oContacts:ITEMS( nContador ) cSenderName := oNewContact:get( "SenderName" ) cSubject := oNewContact:get( ...