Saludos al forum, el contenido del DTPICKER no refresca. Monta los datos un encima del dato anterior.
Hasta la version fwh 11.05 Funciona, esto pasa con la FWH 11.07
http://imageshack.us/photo/my-images/21/errodate.jpg/
Hasta la version fwh 11.05 Funciona, esto pasa con la FWH 11.07
http://imageshack.us/photo/my-images/21/errodate.jpg/
DEFINE FONT oFnt01 NAME "Arial" size 08,16 BOLD //times new roman //DIALOG 08,14
DEFINE FONT oFnt02 NAME "Arial" size 08,20 BOLD //times new roman //DIALOG 08,18
DEFINE FONT oFnt03 NAME "Tahoma" SIZE 09,20 //"Comic Sans MS" SIZE 10,18 BOLD
DEFINE FONT oFontGets NAME "Times" SIZE 0,-12 BOLD
DEFINE FONT oFontSay NAME "Arial" SIZE 8,-12 BOLD
DEFINE DIALOG oDlg42a RESOURCE "R_PEDIDOS" TITLE OemToAnsi("0042a.Modifica Pedido ") ;
STYLE nOR(WS_MINIMIZEBOX)
hDC := oDlg42a:GetDC()
par_diag(oDlg42a,1,1,hDC,dlg_dsv1)
REDEFINE FOLDER oFld ID 4002 OF oDlg42a ;
PROMPT "&Datos Pedidos ","Otros Parametros", " &Documentacion"," &Estado" ;
DIALOGS "PEDID_1A", "PEDID_2", "PEDID_3","F_PEDIDO1A" COLOR Rgb(0,0,0),Rgb(200,200,255)
oFld:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFld:aDialogs[1]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFld:aDialogs[2]:SetColor(Rgb(0,0,0),Rgb(100,200,255))
oFld:aDialogs[3]:SetColor(Rgb(0,0,0),Rgb(100,200,255))
oFld:aDialogs[4]:SetColor(Rgb(0,0,0),Rgb(100,200,255))
REDEFINE SAY oSa1[1] PROMPT oSa1[2] ID 400 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa2[1] PROMPT oSa2[2] ID 401 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa3[1] PROMPT oSa3[2] ID 402 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa4[1] PROMPT oSa4[2] ID 403 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa5[1] PROMPT oSa5[2] ID 404 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa6[1] PROMPT oSa6[2] ID 405 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa9[1] PROMPT oSa9[2] ID 409 OF oFld:aDialogs[1] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSaT[1] PROMPT oSaT[2] ID 410 OF oFld:aDialogs[1]
REDEFINE SAY oSaR[1] PROMPT oSaR[2] ID 411 OF oFld:aDialogs[1]
REDEFINE SAY oSa7[1] PROMPT oSa7[2] ID 400 OF oFld:aDialogs[2] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa8[1] PROMPT oSa8[2] ID 401 OF oFld:aDialogs[2] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE SAY oSa10[1] PROMPT oSa10[2] ID 412 OF oFld:aDialogs[4] FONT oFnt01 COLORS MEMVAR->X_SAYTEXTD,MEMVAR->X_SAYFONDD
REDEFINE DTPICKER get_fec_crea VAR m_fec_crea ID 100 OF oFld:aDialogs[1] //ON CHANGE GET_FEC_RES:Refresh()
REDEFINE GET get_planta VAR m_planta ID 101 OF oFld:aDialogs[1] COLORS MEMVAR->X_GETTCOL1,MEMVAR->X_GETFCOL1;
PICTURE "##";
VALID (DIS_PLAN(0,aContl,oRecordSet[nRecordSet],"pedidos",1,m_planta,@m_planta,@get_planta,oSa1),val_datasg())
REDEFINE GET get_codprod VAR m_codprod ID 102 OF oFld:aDialogs[1] COLORS MEMVAR->X_GETTCOL1,MEMVAR->X_GETFCOL1;
VALID dev_codprod(@m_codprod,@get_codprod,x_lo_aut,OP_lo_cod)
REDEFINE GET get_verprod VAR m_verprod ID 103 OF oFld:aDialogs[1] COLORS MEMVAR->X_GETTCOL1,MEMVAR->X_GETFCOL1;
PICTURE "##" VALID (DIS_produ01(0,aContl,oRecordSet[nRecordSet],"pedidos",1,m_planta,@m_codprod,get_codprod,;
m_verprod,get_verprod,@Error_val),val_datord())
REDEFINE GET get_codprov VAR m_codprov ID 104 OF oFld:aDialogs[1] COLORS MEMVAR->X_GETTCOL1,MEMVAR->X_GETFCOL1
REDEFINE GET get_consec VAR m_consec ID 105 OF oFld:aDialogs[1] COLORS MEMVAR->X_GETTCOL1,MEMVAR->X_GETFCOL1;
PICTURE "##"
ACTIVATE DIALOG oDlg42a CENTERED VALID (lExit) ON PAINT gradpaint2(oDlg42a,hDC,dlg_dsv1); // NoSalir();
ON INIT (oBarPru := TBarDLG():New( oDlg42a,oDlg42a,{ "TOP",t2007,.T.,5,5,3,0 },@aContl,MatValid) ) //3,4,3,0
RETURN .T.
