FiveTech Software tech support forums

... cNombre AS LPSTR,; // Nombre del Cliente cSerie AS LPSTR,; // Serie de la Impresora cRif AS LPSTR,; // Rif cDias AS LPSTR,; // Dia cMes AS LPSTR,; // Mes cAno AS LPSTR,; // Año cHora AS LPSTR,; // Hora cMin AS LPSTR,; // Min cSeg AS LPSTR,; // Seg cCupon AS LPSTR ) AS LONG PASCAL; ...

Estimado: Yo lo que hago es capturar la ventana para verificar si el archivo esta abierto en el excel y mandarlo a cerrar: cFile3:='NV'+OT:CMES oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3) if oWndCapt:lCaptured MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+; ...

... bien pero segui mirando en el foro y encontre algo que publico Antonio para el browse y anda de maravillas es asi: nOp++ (si sube) nOp-- (si baja) cMes := aMeses[nOp] oSay:SetText('MES: '+ cMes ) oSel := oTree:Scan( { | o | cMes $ o:cPrompt } ) oTree:Select( oSel ) el metodo Scan(bAction) del oTree ...

... LIB "BemaFI32.dll" DLL function Bematech_FI_AbreNotaDeCredito(cNombre AS String, cNumeroSerie AS String, cRIF AS String, cDia AS String ,cMes AS String, cAno AS String, cHora AS String, cMinuto AS String, cSecundo AS String, cCOO AS String) AS LONG PASCAL FROM "Bematech_FI_AbreNotaDeCredito" ...

... que el problema es solo con ENTER, con TAB y Click de mouse no se sale ..... : REDEFINE GET oFte VAR cFte ID 600 OF oDlg VALID chkft5(cFte,.f.,cMes,nSas,oFte,oDlg,cFt1) READONLY REDEFINE RADIO oRb1 VAR nRb1 ID 104,105 OF oDlg VALID chkft5(cFte,.f.,cMes,nSas,oFte,oDlg,cFt1) REDEFINE TBTNGET ...

local aMeses := {"Enero", "Febrero", "Marzo", ...}, oCbx, cMes := ""

REDEFINE COMBOBOX oCbx VAR cMes ITEMS aMeses ID ID_MES OF oDlg
...

if lSave
ARCHIVO->CAMPO := cMes

... Mason -------------------------------------------- FUNCTION FwXCalendar(dDate,nRow,nCol,oDlg) LOCAL oDlf, oBrf, aSem, nSem:=1, lSel:=.F. LOCAL cMes, oMes, nMes, aMes, nAno, oAno, dSel LOCAL aPos, nLen DEFAULT dDate:=DATE() dDate:=IF(Empty(dDate),Date(),dDate) aMes:={"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio",; ...

... ) -110 for each cAnio in ::aAnios cAnio:= Str( ++nAnio, 4 ) next ... // En el metodo que muestra el Dlg, defino las locales cDia := "" cMes := "" cAnio := "" // Mas adelante los muestro así: REDEFINE COMBOBOX aO[_PCmb1] VAR cDia ITEMS ::aDias ID 105 OF aO[_PFld]:aDialogs[1] ...

... REQUEST HB_CODEPAGE_ESWIN function _cfecha( dFecha ) // sabado 10 de mayo del 2008 local cDia := cdow(dFecha) local nDia := day(defecha) local cMes := cmonth( dFecha ) local nYear : year( dFecha ) return ( cDia +" "+ strzero( nDia, 2 ) + " de " + cMes + " del " + str(nYear, 4) ) por cierto, ...

... local nPos:=ASCAN(aCastellano,cDia) RETURN iif(nPos==0,'',aIngles[nPos]) FUNCTION MesIngToCas(cMes) local aIngles:={'January','February','March','April','May','June','July','August','September','October','November','December'},; aCastellano:={'Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre'} ...

... cEqf :=.f. STATIC cAutero :=.f. STATIC cAutomatico :=.f. STATIC cSina :=.f. STATIC cTipico :=.f. STATIC cStd :=.f. STATIC xcPoliza,cPoliza,CDessc,cMes,cMesde,CDessm,cOcupa,cNum_serie,cNum_motor,cPlacas,cMesd STATIC cR_poliza STATIC cEndoso := .F. STATIC rReno :=.F. STATIC cSUM_ASEGU STATIC cAMPLIA ...

... Tu puedes incluirla en tu librería personal, o bien ponerla directamente en tu programa. ///////////////////////////////// // MES ( dFecha ) // cMes := MES ( DATE() ) ///////////////////////////////// FUNCTION MES (dFecha) local cMes, nMes := MONTH (dFecha) DO CASE CASE nMes= 1 cMes:="Enero" ...

... aCmb DATA oDpk, vDpk DATA oCkb, vCkb DATA oRbt, vRbt DATA oBtn DATA aDbf, bLoc DATA cScope DATA aDatos, aLocal, aMeses, aAnos, aCmb, aTurnos DATA cMes, cAno, cLocal, cTurnos, cMesano DATA lBrw, lRbt METHOD Open() METHOD Init() METHOD New() Constructor METHOD Close() INLINE AEval( ::aDbf, { |oDbf| ...

Ruben,

cMes :="MES"+ALLTRIM(STR(MONTH(FOCU)))

A mi me funciona asi:

en vez de usar CANTIR->&cMes

prueba:

CANTIR->&( "MES"+ALLTRIM(STR(MONTH(FOCU))) )

saludos
xHabrazos
FWH2.7, xHarbour, BCC55

Amigos: Tengo una Base de Datos cuyos campos son Mes1,mes1,mes3 hasta mes12 una variable cMes cMes :="MES"+ALLTRIM(STR(MONTH(FOCU))) IF DBSEEK(STRZERO(VAL(cMes),10)) CANTIR->&cMes := CANTIR->&cMes + 1 ELSE DBAPPEND() CANTIR->&cMes := CANTIR->&cMes ...