FiveTech Software tech support forums

Hola gente, en la versión 23.07 me da este error, cosa que en la 22.12 no. Me falta agregar alguna librería? Este es parte del código: *----------------- DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 0, 0 TO 24, 79TITLE "Carga Informe de Auditoría " font oFont11 DEFINE DIALOG princfac RESO...

Saludos Noe;

En tu funcion FormaFecha(gdFecTra,oFecha) // Pasa oFecha como parametro

y luego dentro de tu funcion
oFecha:Refresh()

y Listo el Pollo como dice el famoso grito mexicano...

Espero te funcione.

saludos, tengo un: DEFINE MSGITEM oFecha OF Principal:oMsgBar; PROMPT FormaFecha(gdFecTra); SIZE GetTextWidth(0,FormaFecha(gdFecTra))+2; COLOR COLOR_AZUL,COLOR_SVERDE; TOOLTIP Ota('Fecha de operación') necesito que cada que cambie la fecha, ...

Jhonson y Rodolfo Gracias`por sus aporte, usando la funcion que me envio Jhonson, hice algunos ajustes y me dio resusltado, aqui les dejo la s modificaciones y un listado de lo que me arrojo, espero que le sirve a mucha mas gente... # include "fivewin.ch" Function W_Main_Info () Local oDat...

... Proveedor TEXT(100), " + ; " Rubro TEXT(30), " + ; " Borrado TEXT(1), " + ; " Operador TEXT(30), " + ; " OFecha DATE, " + ; " OHora TEXT(5) )" TRY Data1:Open() CATCH oError Return( "" ) // Solo si Hay error END //-------------------// ...

... va a encontrar en otro .PRG como una funcion, de esta forma: FUNCTION Clientes ( lNuevo ) LOCAL oDlg, oFont, oFld, oGet[30] LOCAL cTitle, cAlias, oFecha LOCAL aStatus := { "ACTIVO", "INACTIVO", "SUSPENDIDO" }, oCbx, cStatus := "" LOCAL lGrabar := .F. DEFAULT ...

Aqui en esta parte me lo volvia a cargar, asi que elimine el VK_ESCAPE y ya funciona.
oFecha:bKeydown := {|nKey| IF( nKey == VK_F2, oFecha:oBtn:PostMsg(WM_CLICK,13,0),)
// IF( nKey == VK_ESCAPE, oDlg:End(), ))}
gracias
pak.o

... := 0 , oContador PRIVATE cEncargado := space(15) , oEncargado PRIVATE cCurDir := GetCurDir() PRIVATE lUsers := .F. PRIVATE dFecha := date() , oFecha PRIVATE cHora := time() , oHora

... mAnular, mNvoDoc,mTotalcos,mTotaligv,mTotalReg,mNomcli,oNomcli static mNumero,mCod,mDesc1,mFecha,mMts,mObser1,mObser2,oNumero,oCod,oDesc1,oFecha,oMts,oObser1,oObser2 static oProf,mProf,oCli,mCli,mMedProf,mConsumo,oMedProf,oConsumo,FilMovi, FilNtx, oSay1,oBrw,oBtagre,oBtborra,oBtmodi Static ...

... GET oCod Var mCod ID 101 of oDlg VALID(BUS_GRUPO(@mCod,@oCod,@mDesc1,@oDesc1)) REDEFINE GET oDesc1 Var mDesc1 ID 103 of oDlg WHEN .F. REDEFINE GET oFecha Var mFecha ID 109 of oDlg PICTURE "99/99/9999" REDEFINE GET mMts Var mMts ID 116 of oDlg PICTURE "999.99" REDEFINE GET oConcep1 ...

Gracias por el dato, mientras busco el tema, hice esto, activo el calendario sin hacer click en el DTPicker.... REDEFINE DTPICKER oFecha VAR dFecha ; ON CHANGE .......... ; ID 105 OF oDlg REDEFINE LISTBOX oLbx.... ON DBLCLICK (oFecha:Open()) ; // aqui se diplaya el calendario ..... Salu2

... FUNCTION EmiFac(oWnd) // Emision de Facturas LOCAL oWndFPC,oDlgFPC,oLbxVenta,oTitDet,oMoneda,oTotal,oCodClt,oCmbDoc,oBtnImp,oNumero,oCodDes,oBusca,oFecha,oSerDoc,oPedido,oBttPed,oDscto,oCmbVen,oCmbZon,oCmbSer,oCmbLst,oPorDes LOCAL oFntArial,oFntArial01,oConCre,oCmbPgo,oRucClt,oDataDoc,oBmpLoguito,oButPgo,oCursor,oButPago,oCmbMon,oTotBse,oTotIgv,oTotDes,oSayPeso,oSayPiezas,oSayLineas,oSayMaxDoc ...

... FUNCTION EmiFac(oWnd) // Emision de Facturas LOCAL oWndFPC,oDlgFPC,oLbxVenta,oTitDet,oMoneda,oTotal,oCodClt,oCmbDoc,oBtnImp,oNumero,oCodDes,oBusca,oFecha,oSerDoc,oPedido,oBttPed,oDscto,oCmbVen,oCmbZon,oCmbSer,oCmbLst,oPorDes LOCAL oFntArial,oFntArial01,oConCre,oCmbPgo,oRucClt,oDataDoc,oBmpLoguito,oButPgo,oCursor,oButPago,oCmbMon,oTotBse,oTotIgv,oTotDes,oSayPeso,oSayPiezas,oSayLineas,oSayMaxDoc ...

... del objeto podría tener “oFactu” y con una funcion por ejemplo: WhoHasFocus() que te devuelva ->“oFactu” se puede hacer : oFactu:oJump := oFecha. Así de simple, así de rápido, así de fácil. Este pedido es porque SetFocus() no siempre funciona, y buscando las razones y quién se quedó con ...

... si cambio la resolucion a 1024 no qque puedo hacer DEFINE DIALOG oDlg1 from 10,35 to 20,70 STYLE nStyle COLOR CLR_BLUE,CLR_6 of oDlg @ 0 ,06 say ofecha Prompt "CLAVE DE ACCESO " FONT OFONT of oDlg1 COLOR CLR_BLACK,CLR_6 @ 1.5 ,04 say ofecha Prompt "Usuario " FONT OFONT of oDlg1 COLOR CLR_BLACK,CLR_6 ...