Olá Pessoal
Meu Nome é Marcelo Sou de Petrópolis - Rj
estou começando a utilizar o FW sendo orientado pelo Elias
Obs-> É impressionante a atenção dada pelo Elias a nós programadores que estamos começando a utilizar esta extraordinária ferramenta. Estou fazendo o possÃvel para ir ao II encontro do FW.
InclusÃve Elias estou aguardando aquela visita.
voltando ao assunto coloquei dia 08/11 este assunto e o Alex me retornou Com as Funcoues Hide() e Refres() e não funcionou este é o código que preciso resolver.
Antecipadamente
Obrigado!!!!
***************************************//**************************************
STATIC FUNCTION Edit_Doc(oBrD,_Append,_Modo)
***************************************//**************************************
LOCAL aBtD[2],;
oDlgDoc,;
oBmp ,;
oGetDoc
lAppend := _Append
oGetDoc := Array((cArqRecPag)->(FCount()))
aSayDoc[1] := IF(d_Arg1="P","Plano de Contas","Vendedor")
aSayDoc[2] := IF(d_Arg1="P","Sub Conta","")
f_Sub_Conta := 0
lGetSub := IF(d_Arg1="P",.T.,.F.)
cTituloD := IF(lAppend,"INCLUSÃO DE ","ALTERAÇÃO DE ") + IF(d_Arg1="P","CONTAS A PAGAR","CONTAS A RECEBER")
aSayDoc[3] := Space(45)
FOR nI = 4 TO 9
aSayDoc[nI] := Space(20)
NEXT
IF Ini_Var(cArqRecPag, lAppend)
RESTORE FROM f_ields ADDITIVE
ENDIF
IF lAppend
f_Dat_Emis := zData
f_Dat_Venc := zData
f_Dat_Movi := zData
lEditVal := .T.
ENDIF
f_Empresa := _CodEmp
lCaixa := .T.
F_DocAnt := f_Docto
aSayDoc[10] := (f_Valor + f_Juros) - f_Descontos
f_HoraBax := IF(Empt(f_HoraBax),Time(),f_HoraBax)
cStatus := IF(f_Status = 1,"BAIXADO ",;
IF(f_Status = 2,"PENDENTE ",;
IF(f_Status = 3,"DEVOLVIDO","ABERTO ")))
IF d_Arg1 = "P"
Checa_Ger("Fornec", f_Codigo, oSayDoc[3],.T.,1)
Checa_Ger("PlanCont",f_Tipo_Oper,oSayDoc[4],.T.,2)
Checa_Ger("SubPCont",Str(f_Sub_Conta,3),oSayDoc[5],.T.,3,F_Tipo_Oper)
IF lAppend
f_Pedido := Setup->N_Apagar
IF _Modo = 2 // PI OU PIE IF Substr(nD_ARG1,1,2)='PI' // IF nD_Arg1 ="PIE" // Lancamento de saidas j quitados
f_Docto := "SAIDA CX"
cStatus := "BAIXADO "
f_Dat_Pgto := zData
lCaixa := .F.
ENDIF
ENDIF
ELSE
Checa_Ger("Clientes",f_Codigo, oSayDoc[3],.T.,1)
Checa_Ger("Funcio", f_Vendedor, oSayDoc[4],.T.,2)
ENDIF
Checa_Ger("Tipo_Dc",f_Tipo_Doc,oSayDoc[6],.T.,4)
Checa_Ger("Bancos" ,f_Banco, oSayDoc[7],.T.,5)
Checa_Ger("Contas" ,f_Conta, oSayDoc,.T.,6,f_Banco)
Checa_Ger("CondPgto",f_Cond_Pg,oSayDoc[9],.T.,7)
DEFINE DIALOG oDlgDoc RESOURCE 'SV_MOV00C' TITLE cTituloD FONT oWnd:oFont
oDlgDoc:lHelpIcon := .F.
REDEFINE BITMAP oBMP ID 600 OF oDlgDoc RESOURCE "Bancos" TRANSPAREN ADJUST
REDEFINE BTNGET oGetDoc[ 1] VAR f_Pedido ID 200 OF oDlgDoc ;
PICTURE _PictN8 ;
WHEN lAppend .AND. lCaixa
REDEFINE BTNGET oGetDoc[ 2] VAR f_Docto ID 201 OF oDlgDoc ;
RESOURCE 'Get_Dados' ;
PICTURE _PictDoc ;
WHEN lCaixa ;
VALID Checa_Doc(oGetDoc[1],oGetDoc[2],F_DocAnt,oDlgDoc,lAppend)
REDEFINE BTNGET oGetDoc[ 3] VAR f_NF ID 202 OF oDlgDoc PICTURE _PictN8
REDEFINE BTNGET oGetDoc[ 4] VAR f_HoraBax ID 110 OF oDlgDoc PICTURE _PictHor
REDEFINE BTNGET oGetDoc[ 5] VAR f_Codigo ID 203 OF oDlgDoc ;
RESOURCE 'Get_Dados' ;
PICTURE _PictN6 ;
ACTION (GetZoom(cArqCliFor,oGetDoc[5],oSayDoc[3],400,150),oGetDoc[5]:Refresh() );
VALID Checa_Ger(cArqCliFor,f_Codigo,oSayDoc[3],.F.,1)
IF d_Arg1 = "P"
REDEFINE BTNGET oGetDoc[7] VAR f_Tipo_Oper ID 204 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
WHEN lEditCpa ;
PICTURE "999" ;
ACTION (GetZoom("PlanCont",oGetDoc[7],oSayDoc[4],400,150),oGetDoc[7]:Refresh()) ;
VALID Checa_Ger("PlanCont",f_Tipo_Oper,oSayDoc[4],.F.,2)
REDEFINE BTNGET oGetDoc[16] VAR f_Sub_Conta ID 205 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
WHEN lEditCpa ;
PICTURE "999" ;
ACTION ( ZoomSb_Pc(oGetDoc[16],300,150,f_Tipo_Oper),oGetDoc[16]:Refresh() );
VALID Checa_Ger("SubPCont",Str(f_Sub_Conta,3),oSayDoc[5],.F.,3,f_Tipo_Oper)
ELSE
REDEFINE BTNGET oGetDoc[7] VAR f_Vendedor ID 204 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
PICTURE "999" ;
ACTION ( GetZoom("FUNCIO",oGetDoc[7],oSayDoc[4],300,150),oGetDoc[7]:Refresh() );
VALID Checa_Ger("Funcio",f_Vendedor,oSayDoc[4],.F.,2)
ENDIF
REDEFINE BTNGET oGetDoc[16] VAR f_Sub_Conta ID 205 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
PICTURE "999" ;
ACTION ( ZoomSb_Pc(oGetDoc[16],300,150,f_Tipo_Oper),oGetDoc[16]:Refresh() );
VALID Checa_Ger("SubPCont",Str(f_Sub_Conta,3),oSayDoc[5],.F.,3,f_Tipo_Oper)
REDEFINE BTNGET oGetDoc VAR f_Tipo_Doc ID 206 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
PICTURE "999" ;
ACTION ( GetZoom("Tipo_Dc",oGetDoc,oSayDoc[6],300,150),oGetDoc:Refresh() );
VALID Checa_Ger("Tipo_Dc",f_Tipo_Doc,oSayDoc[6],.F.,4)
REDEFINE BTNGET oGetDoc[9] VAR f_Banco ID 207 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
PICTURE "999" ;
ACTION ( GetZoom("Bancos",oGetDoc[9],oSayDoc[7],300,150),oGetDoc[9]:Refresh()) ;
VALID Checa_Ger("Bancos",f_Banco,oSayDoc[7],.F.,5)
REDEFINE BTNGET oGetDoc[10] VAR f_Conta ID 208 OF oDlgDoc;
RESOURCE 'Get_Dados' ;
PICTURE "@!" ;
ACTION ( ZoomContas(oGetDoc[10],300,150,f_Banco),oGetDoc[10]:Refresh());
VALID Checa_Ger("Contas",f_Conta,oSayDoc,.F.,6,f_Banco)
REDEFINE BTNGET oGetDoc[11] VAR f_Valor ID 209 OF oDlgDoc PICTURE _Pict80S WHEN lEditVal
REDEFINE BTNGET oGetDoc[12] VAR f_Juros ID 210 OF oDlgDoc PICTURE _Pict40S
REDEFINE BTNGET oGetDoc[13] VAR f_Descontos ID 211 OF oDlgDoc PICTURE _Pict40S;
WHEN AtualizaTot(oSayDoc[11],f_Valor,f_Juros,f_Desconto)
REDEFINE COMBOBOX oGetDoc[14] VAR cStatus ITEMS Siglas_St() ID 213 OF oDlgDoc
REDEFINE BTNGET oGetDoc[15] VAR f_Nominal ID 214 OF oDlgDoc PICTURE _PictDoc
REDEFINE BTNGET oGetDoc[17] VAR f_Dat_Emis ID 215 OF oDlgDoc;
WHEN .T. ;
RESOURCE 'Get_Data' ;
ACTION (aRec:=GetCoors(oGetDoc[17]:hWnd) ,;
f_Dat_Emis := Calendario(f_Dat_Emis, aRec[1], aRec[4], oDlgDoc),;
oGetDoc[17]:Refresh())
REDEFINE BTNGET oGetDoc[18] VAR f_Dat_Venc ID 216 OF oDlgDoc;
WHEN .t. ;
RESOURCE 'Get_Data' ;
ACTION (aRec:=GetCoors(oGetDoc[18]:hWnd) ,;
f_Dat_Venc := Calendario(f_Dat_Venc, aRec[1], aRec[4], oDlgDoc),;
oGetDoc[18]:Refresh())
REDEFINE BTNGET oGetDoc[19] VAR f_Dat_Movi ID 217 OF oDlgDoc;
WHEN .T. ;
RESOURCE 'Get_Data' ;
ACTION (aRec:=GetCoors(oGetDoc[19]:hWnd) ,;
f_Dat_Movi := Calendario(f_Dat_Movi, aRec[1], aRec[4], oDlgDoc),;
oGetDoc[19]:Refresh())
REDEFINE BTNGET oGetDoc[20] VAR f_Dat_Pgto ID 218 OF oDlgDoc;
WHEN .T. ;
RESOURCE 'Get_Data' ;
ACTION (aRec:=GetCoors(oGetDoc[20]:hWnd) ,;
f_Dat_Pgto := Calendario(f_Dat_Pgto, aRec[1], aRec[4], oDlgDoc),;
oGetDoc[20]:Refresh())
REDEFINE SAY oSayDoc[1] VAR aSayDoc[1] ID 100 OF oDlgDoc // Vendedor ou Plano de Contas
REDEFINE SAY oSayDoc[2] VAR aSayDoc[2] ID 101 OF oDlgDoc WHEN lGetSub
REDEFINE BTNGET oSayDoc[3] VAR aSayDoc[3] ID 111 OF oDlgDoc WHEN lEditRazao
REDEFINE BTNGET oSayDoc[4] VAR aSayDoc[4] ID 112 OF oDlgDoc WHEN .F. // Vendedor ou Plano de Contas
REDEFINE BTNGET oSayDoc[5] VAR aSayDoc[5] ID 113 OF oDlgDoc WHEN .F. // SubConta
REDEFINE BTNGET oSayDoc[6] VAR aSayDoc[6] ID 114 OF oDlgDoc WHEN .F. // Tipo de Documento
REDEFINE BTNGET oSayDoc[7] VAR aSayDoc[7] ID 115 OF oDlgDoc WHEN .F. // Banco
REDEFINE BTNGET oSayDoc VAR aSayDoc ID 116 OF oDlgDoc WHEN .F. // Conta
REDEFINE BTNGET oSayDoc[9] VAR aSayDoc[9] ID 118 OF oDlgDoc WHEN .F. // Condi‡†o de Pagamento
REDEFINE BTNGET oSayDoc[10] VAR f_Cond_Pg ID 117 OF oDlgDoc WHEN .F. // Condi‡†o de Pagamento
REDEFINE BTNGET oSayDoc[11] VAR aSayDoc[10] ID 119 OF oDlgDoc PICTURE _Pict80S WHEN .F.
FOR nI = 4 To 9
oSayDoc[nI]:SetFont(oPub:oFontBot)
NEXT
*************************************//***************************************
REDEFINE DBUTTON aBtD[1] ID 500 OF oDlgDoc;
RESOURCE "Btn_Alt3d" ;
TOOLTIP "Confirma Altera‡â€es" ;
ACTION( ConvVar(d_Arg1,lAppend) ,IF( Processa(cArqRecPag,f_VarField(),lAppend,oDlgDoc),oDlgDoc:End(), FALSE ))
REDEFINE DBUTTON aBtD[2] ID 501 OF oDlgDoc;
RESOURCE "Btn_Sai3d" ;
TOOLTIP "Sair";
ACTION oDlgDoc:End()
aBtD[1]:SetFont( oPub:oFontBot )
aBtD[2]:SetFont( oPub:oFontBot )
IF d_Arg1 != "P"
oSayDoc[5]:Hide() // Nome da Sub.contas
oSayDoc[5]:Refresh()
oGetDoc[16]:Hide() // Get da Sub.contas
oGetDoc[16]:Refresh()
oDlgDoc:Refresh() // Tela Principal
ENDIF
ACTIVATE DIALOG oDlgDoc CENTERED
oBrD:Refresh()
oBrD:SetFocus()
RETURN(.T.)
