Jump to content
Fivewin Brasil

Erro na Dialog (Cannot create Dialog Box)

Theotokos

By Theotokos
in Programação

 Share

Recommended Posts

Theotokos Apprentice

Theotokos

Posted
Posted

Boa Tarde! Alguem pode me ajudar com este erro abaixo, não aparece toda vez que abre a dialog. e tento fazer o teste no cliente para descobrir em que momento aparece o erro não consigo, todas as vezes que abro funciona, ai eu viro as costas o cliente esta reclamando que aparece esta tela.

 

 

Aplicação 
===========
   Nome e Local : C:\Pimenta_Film\PimentaFilm\Pimenta.EXE (32 bits)
   Size: 4,665,344 bytes
   Time from start: 1 hours 3 mins 45 secs 
   Error occurred at: 28/03/2013, 14:48:12
   Descrição do Erro : Error FiveWin/3  Cannot create Dialog Box: 
                      Title: Efetuar o Pagamento
   Args:
 
Stack Calls
===========
   Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(535)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: D:\WinPRG\PimentaFilm\crediari.prg => EFETUAPG(661)
   Called from: D:\WinPRG\PimentaFilm\crediari.prg => (b)CREDIARIO(150)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(465)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(656)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1689)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1407)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3169)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(270)
   Called from: D:\WinPRG\PimentaFilm\crediari.prg => CREDIARIO(220)
   Called from: D:\WinPRG\PimentaFilm\GRAFICO.PRG => (b)MAIN(214)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(465)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(653)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN(596)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1686)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1407)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3169)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(990)
   Called from: D:\WinPRG\PimentaFilm\GRAFICO.PRG => MAIN(253)
 
System
======
   CPU type: AMD Athlon  1833 Mhz
   Hardware memory: 405 megs
 
   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %
 
   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406)
   Windows version: 5.1, Build 2600 Service Pack 3
 
   Windows total applications running: 11
      1 , C:\Arquivos de programas\Windows Live\Messenger\msnmsgr.exe
      2 , C:\WINDOWS\Explorer.EXE
      3 :: Crediário - à Quitar, C:\Pimenta_Film\PimentaFilm\Pimenta.EXE
      4 CAvastTrayIcon, C:\Arquivos de programas\AVAST Software\Avast\avastUI.exe
      5 CiceroUIWndFrame, C:\WINDOWS\system32\ctfmon.exe
      6 HPSISVC, C:\WINDOWS\system32\HPSIsvc.exe
      7 Microsoft Office OneNote 2007 - barra de tarefas do Windows, C:\Arquivos de programas\Microsoft Office\Office12\ONENOTEM.EXE
      8 Microsoft Word, C:\Arquivos de programas\Microsoft Office\Office12\WINWORD.EXE
      9 Msg, C:\Arquivos de programas\Mozilla Firefox\plugin-container.exe
     10 No que você está pensando?, C:\Arquivos de programas\Mozilla Firefox\firefox.exe
     11 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}, C:\Arquivos de programas\Google\GoogleToolbarNotifier\GoogleToolbarNotifier.exe
 
Variables in use
================
   Procedure     Type   Value
   ==========================
   CREATEDLGERROR
     Param   1:    O    Class: TDIALOG
     Local   1:    U    
     Local   2:    C    "                      "
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    B    {|| ... }
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Param  11:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    1245572
     Local   3:    U    
     Local   4:    U    
   EFETUAPG
   (b)CREDIARIO
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:CLICK
     Local   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
     Param   1:    N    34
     Param   2:    N    96
     Param   3:    O    Class: TBTNBMP
     Local   1:    U    
     Local   2:    L    .T.
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2228320
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2228320
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    2228320
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    2228320
     Param   5:    N    54
     Local   1:    O    Class: TBTNBMP
   DIALOGBOX
     Param   1:    N    4194304
     Param   2:    C    "DLG_CREDIARIO"
     Param   3:    N    262544
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Param  11:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    262544
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   CREDIARIO
   (b)MAIN
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:CLICK
     Local   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
     Param   1:    N    53
     Param   2:    N    31
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
     Local   3:    L    .T.
   TBTNBMP:LBUTTONDOWN
     Param   1:    N    53
     Param   2:    N    31
     Param   3:    O    Class: TBTNBMP
   TCONTROL:HANDLEEVENT
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    3473439
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    3473439
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    3473439
     Param   2:    N    513
     Param   3:    N    1
     Param   4:    N    3473439
     Param   5:    N    10
     Local   1:    O    Class: TBTNBMP
   WINRUN
     Param   1:    N    262544
   TWINDOW:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    N    1
     Local   2:    U    
     Local   3:    U    
     Local   4:    O    Class: TBAR
     Local   5:    A    Len:   15
     Local   6:    O    Class: TICON
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
 
Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
 
DataBases in use
================
 
  1:    BANCLIEN                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
        381          381      .F.   .F.
 
     Indexes in use                        TagName
           D_NUMERO                           1
        => D_NOME                             2
           D_CPF                              3
           D_APELIDO                          4
 
     Relations in use
 
  2: => C00356                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            1      .F.   .T.
 
     Indexes in use                        TagName
           VA_NUMPEDI                         1
           VA_DATPAGO                         2
        => VA_DATVENC                         3
           VA_DATVENC                         4
           VA_NOME                            5
 
     Relations in use
 
Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TINI
     6 TWINDOW
     7 TCONTROL
     8 TGET
     9 TBRUSH
    10 TICON
    11 TBITMAP
    12 TMENU
    13 TMENUITEM
    14 TACCTABLE
    15 TFONT
    16 TBAR
    17 TRECT
    18 TBTNBMP
    19 TMSGBAR
    20 TMSGITEM
    21 TDIALOG
    22 GET
    23 TCLIPGET
    24 TCOMBOBOX
    25 TSAY
    26 TBUTTON
    27 TGROUP
    28 TMULTIGET
    29 TXBROWSE
    30 TXBRWCOLUMN
    31 TSCROLLBAR
    32 TTIMER
    33 TWBROWSE
    34 VOTWBROWSE
    35 TWORD
    36 TOLEAUTO
    37 TCHECKBOX
    38 TCBROWSE
    39 TCCOLUMN
    40 TREG32
 
Memory Analysis
===============
      259 Static variables
 
   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes
 
Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

 Eu utilizo imagem BMP sim, mas é qdo o usuario seleciona algum registro ai mostra uma BMP (v) de selecionado.

 

Pode estar ai a resposta, mostre como você faz a troca em tempo real, e veja no seu arquivo de recursos, se esta BMP não está corrupta.

 

Para saber se esta corrupta(vide politicos de Brasilia-> kkkkk), salve-a e abra-a com o IRFANVIEW.EXE ele "entrega".

 

abs, vc. vai "matar".

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

 Eu utilizo imagem BMP sim, mas é qdo o usuario seleciona algum registro ai mostra uma BMP (v) de selecionado.

 

Pode estar ai a resposta, mostre como você faz a troca em tempo real, e veja no seu arquivo de recursos, se esta BMP não está corrupta.

 

Para saber se esta corrupta(vide politicos de Brasilia-> kkkkk), salve-a e abra-a com o IRFANVIEW.EXE ele "entrega".

 

abs, vc. vai "matar".

Então eu utilizo a imagem em BMP em arquivo direto, não esta no resource.

eu faço assim no browse:

 

        oBrw:aCols[1]:AddBmpFile( "BMP\Cheio.Bmp" )
        oBrw:aCols[1]:AddBmpFile( "BMP\Vazio.Bmp" )
        oBrw:aCols[1]:bBmpData := { || If( &cArquivo->SIM_NAO = "S", 1, 2) }   
        oBrw:aCols[1]:bStrData := {|| "" }
        oBrw:aCols[1]:nDataBmpAlign := 1
Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

a Rotina completa é esta:

 
Procedure Crediario()  
   *
   PRIVATE oDlg, oBrw, oFont, oGet[9], oDlgCrediario, oSay[4], oBrw1, oFntMsg, cArquivo, oFntColuna, oBtn[9]
    *                                                                          
    PRIVATE cNumeroCliente := 0
    PRIVATE cNomeCliente      := Space(50)
    PRIVATE cTelefone         := Space(15)
    PRIVATE cCelular    := Space(13)
    PRIVATE cEndereco         := Space(30)
    PRIVATE cBairro           := Space(30)
    PRIVATE cCidade           := Space(30)
   PRIVATE cEstado           := Space(02)
   PRIVATE cDocumento        := Space(20)
   PRIVATE cComprador        := Space(50)
   PRIVATE nDesconto         := 0.00
   PRIVATE dCond1          := 0
    *
    PRIVATE cArquivo  := Space(08)
    PRIVATE nSaldo    := 0.00
    PRIVATE nValorSel := 0.00
    PRIVATE lValorSel := .F.
    PRIVATE nTtPrestacao := 0.00
    PRIVATE nTtAtrasados := 0.00
    PRIVATE nQtPrestacao := 0
    PRIVATE nQtAtrasados := 0
    *
    PRIVATE aDadosPedido  := { }
    Private lClcJuros      := .t.
    *
    DEFINE FONT oFont          SIZE 30,30 BOLD
    DEFINE FONT oFntMsg          SIZE 0, -25 NAME "Times"
    DEFINE FONT oFntConta     SIZE 0, -13 NAME "Arial" 
    DEFINE FONT oFntColuna     SIZE 0, -15 NAME "Arial" BOLD
   *
   If BcTelaCliente()
        *
       * Abre o Arquivo de Conta do Cliente
        *
        cArquivo := "C"+StrZero(cNumeroCliente,5)
        
        Sel(cArquivo,3)
        DbGoTop()
        *
        SomaSaldo()
        *    
        DEFINE DIALOG oDlgCrediario RESOURCE "DLG_CREDIARIO" TITLE ":: Crediário - à Quitar" FONT oFntConta
       
      oDlgCrediario:lTransparent := .T.
      oDlgCrediario:lHelpIcon    := .F.
    
       REDEFINE GET oGet[1] VAR cNumeroCliente PICTURE "@!X"      ID 106 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[2] VAR cNomeCliente  PICTURE "@!X"       ID 107 Of oDlgCrediario UPDATE When .f. COLOR CLR_HRED 
       REDEFINE GET oGet[3] VAR cTelefone PICTURE "(99)9999-9999" ID 108 Of oDlgCrediario UPDATE When .f.
       *********************
       REDEFINE GET oGet[4] VAR cEndereco             PICTURE "@!X"           ID 4013 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[5] VAR cBairro               PICTURE "@!X"           ID 4015 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[6] VAR cCidade               PICTURE "@!X"           ID 4017 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[7] VAR cEstado               PICTURE "@!X"           ID 4021 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[8] VAR cDocumento            PICTURE "@!X"           ID 4019 Of oDlgCrediario UPDATE When .f.
       REDEFINE GET oGet[9] VAR cComprador            PICTURE "@!X"           ID 4024 Of oDlgCrediario UPDATE When .f. COLOR CLR_HRED
      *********************
      *
      For n1 := 1 To 9
          oGet[n1]:lDisColors := .F.
          oGet[n1]:Disable()
         Next n1
      *
        oBrw := TxBrowse():New( oDlg )   
        oBrw:CreateFromResource( 4003 )
        oBrw:cAlias := cArquivo
 
           ADD COLUMN TO XBROWSE oBrw DATA &cArquivo->SIM_NAO    TITLE "S/N"           PICTURE "!"             SIZE 40
            ADD COLUMN TO XBROWSE oBrw DATA &cArquivo->VA_NUMPEDI TITLE "Nº Pedido"     PICTURE "999999"        SIZE 65
            
           ADD COLUMN TO XBROWSE oBrw DATA StrZero(&cArquivo->VA_NUMPRES,2)+"/"+StrZero(&cArquivo->VA_TOTPRES,2)  TITLE "Parcela" PICTURE "@!X"  SIZE 50
                
           ADD COLUMN TO XBROWSE oBrw DATA &cArquivo->VA_VALPRES                              TITLE "Vr.Prestação"      PICTURE "@E 999,999.99" SIZE 90 COLORS 128
           ADD COLUMN TO XBROWSE oBrw DATA CalcPrestacao(&cArquivo->VA_VALPRES,&cArquivo->VA_DATVENC)      TITLE "Vr.à Pagar"          PICTURE "@E 999,999.99" SIZE 90 COLORS 128
           
           ADD COLUMN TO XBROWSE oBrw DATA &cArquivo->VA_DATVENC  TITLE "Vencimento" PICTURE "@D 99/99/9999"      SIZE 90 COLORS 128 
           ADD COLUMN TO XBROWSE oBrw DATA &cArquivo->VA_DATMOV   TITLE "Movimento"  PICTURE "@D 99/99/9999"      SIZE 90 
           
           ADD COLUMN TO XBROWSE oBrw DATA If(&cArquivo->VA_DATVENC < Date(), Pad("Em Atraso "+calcdias(&cArquivo->VA_DATVENC, Date()),120), Pad("Em Dia",120))   TITLE "Status"  PICTURE "@X" SIZE 200
        *********************
        *********************
        If nNivel = 1
            oBrw:aCols[6]:nEditType     := EDIT_GET
           oBrw:aCols[6]:bOnPostEdit   := {|o,x| RecLock(),FieldPut( FieldPos("VA_DATVENC"), x ),UnLockRecord() }
           oBrw:aCols[6]:cEditPicture  := "@D 99/99/9999"
           oBrw:aCols[6]:bEditValid     := {|| !Empty(&cArquivo->VA_DATVENC), ;
                                                            nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. }
          *
            oBrw:aCols[4]:nEditType     := EDIT_GET
           oBrw:aCols[4]:bOnPostEdit   := {|o,x| RecLock(),FieldPut( FieldPos("VA_VALPRES"), x ),UnLockRecord() }
           oBrw:aCols[4]:cEditPicture  := "@E 9,999.99"
           oBrw:aCols[4]:bEditValid     := {|| !Empty(&cArquivo->VA_VALPRES), ;
                                                            nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. }
          *
       End
        *
        REDEFINE SAY oSay[1] PROMPT nSaldo    ID 200 Of oDlgCrediario UPDATE PICTURE "@E 999,999.99"   FONT oFntMsg COLOR CLR_BLUE 
      REDEFINE SAY oSay[2] PROMPT nValorSel ID 201 Of oDlgCrediario UPDATE PICTURE "@E 999,999.99"   FONT oFntMsg COLOR CLR_BLUE 
 
      REDEFINE SAY oSay[3] PROMPT "Prestações em Aberto : " + StrZero(nQtPrestacao,2) + " : " + Transform(nTtPrestacao,"@E R$9,999.99") ID 4009 Of oDlgCrediario UPDATE COLOR CLR_BLUE 
      REDEFINE SAY oSay[4] PROMPT "Prestações em Atraso : " + StrZero(nQtAtrasados,2) + " : " + Transform(nTtAtrasados,"@E R$9,999.99") ID 4010 Of oDlgCrediario UPDATE COLOR CLR_BLUE 
      
      oSay[1]:cToolTip := "Valor Total do Débito"
      oSay[2]:cToolTip := "Valor Total Selecionado"
      oSay[3]:cToolTip := "Qtde e Total de Prestações em Aberto"
      oSay[4]:cToolTip := "Qtde e Total de Prestações em Atraso"
        
        REDEFINE CHECKBOX lValorSel ID 202 OF oDlgCrediario ;
               ON CLICK ( LD_Selecao(), oDlgCrediario:Update(), oDlgCrediario:Refresh() )
        
        ******************************************************
        
       REDEFINE COLUMN BROWSE oBrw1 ID 4004 OF oDlgCrediario UPDATE
        
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 1 TITLE ""           PICTURE "@!X"            SIZE 12 
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 2 TITLE "Código"     PICTURE "@!X"            SIZE 085
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 3 TITLE "Descrição"  PICTURE "@!X"            SIZE 350
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 4 TITLE "Qtde"           PICTURE "999.99"         SIZE 50 
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 5 TITLE "Tt.Produto" PICTURE "@E 9,999.99"     SIZE 100 
           ADD COLUMN TO BROWSE oBrw1 DATA ARRAY ELEM 6 TITLE "Comprador"  PICTURE "@!X"             SIZE 350 
           *
           REDEFINE BTNBMP oBtn[1] ID 4011 OF oDlgCrediario FILE "BMP\Organiza.BMP" RIGHT 2007;
                ACTION ( Eval(oBrw1:bLDblClick) ) When (nNivel = 1) PROMPT 'Selecionar' ;
                TOOLTIP "Clique para Seleciona o Item para Devolver ou"+CRLF+"Dê Dois Cliques no Item Desejado" 
            *    
         REDEFINE BTNBMP oBtn[2] ID 4012 OF oDlgCrediario FILE "BMP\Devolver.BMP" PROMPT "Devolver" ;
                ACTION ( ExcItemPedido(), oDlgCrediario:Update(), oDlgCrediario:Refresh() ) RIGHT 2007;
                TOOLTIP "Cancela/Delvove o Item Selecionado" When (nNivel = 1) 
        *
       REDEFINE BUTTON oBtn[3] ID 103 OF oDlgCrediario ACTION (InserirConta(), oBrw:GoTop(), oBrw:Refresh(.t.), oDlgCrediario:Update(), oDlgCrediario:Refresh()) PROMPT "Inserir"+CRLF+"Conta"
       REDEFINE BTNBMP oBtn[4] ID 104 OF oDlgCrediario FILE "BMP\DINHEIRO.BMP" 2007 LEFT ACTION (EfetuaPg() , oBrw:GoTop(), oBrw:Refresh(.t.), oDlgCrediario:Update(), oDlgCrediario:Refresh()) When !(lF_Caixa)
       *
       REDEFINE BTNBMP oBtn[5] ID 109 OF oDlgCrediario ACTION (oDlgCrediario:End()) PROMPT "";
                FILE "BMP\Exit.Bmp" TOP NOBORDER TOOLTIP "Sair do Crediário" 
       *
       REDEFINE BUTTON oBtn[6] ID 4001 OF oDlgCrediario ACTION (RePedido())
       REDEFINE BUTTON oBtn[7] ID 4002 OF oDlgCrediario ACTION (CartaCobranca(Val(&cArquivo->VA_NUMCLIE)))
       REDEFINE BUTTON oBtn[8] ID 4006 OF oDlgCrediario ACTION (ExtratoCliente(1,2), oBrw:GoTop(), oBrw:Refresh(.t.), oDlgCrediario:Update(), oDlgCrediario:Refresh() )
        **
       REDEFINE BUTTON oBtn[9] ID 4026 OF oDlgCrediario ACTION ( MSelecao(1) )
       
      *****************************
       oBtn[1]:cToolTip := "Selecione as Mercadorias que se deseja Devolver"
       oBtn[2]:cToolTip := "Efetua Devolução das Mercadorias Selecionadas"
       oBtn[3]:cToolTip := "Excluir as Prestações Selecionadas (Função Disponivel apenas para Gerencia)"
       oBtn[4]:cToolTip := "Efetua o Pagamento das Prestações Selecionadas"
       oBtn[5]:cToolTip := "Fechar Tela de Crediario"
       oBtn[6]:cToolTip := "Reimprime o Pedido Selecionado conforme a Venda Efetuada"
       oBtn[7]:cToolTip := "Imprime Carta de Cobrança caso tenha prestação(ões) atrasada(s)"
       oBtn[8]:cToolTip := "Imprime o Extrato das Contas á Pagar"
      **************************
      If !lS_Cancela
            oBtn[1]:Disable()
            oBtn[2]:Disable()
      End
      If !lS_Exclui
            oBtn[3]:Disable() 
      End
      **************************
    
      oBrw1:SetArray(aDadosPedido)      
      oBrw1:lNoGrayBar := .T.
      oBrw1:nClrPane :={ || IIF(Empty(oBrw1:nAt%2),RGB(255,228,196),CLR_WHITE )}
      oBrw1:aJustify := {.f.,.f.,.f. }
      oBrw1:refresh()      
      oBrw1:bLDblClick := {|| aDadosPedido[oBrw1:nAt,1] := !aDadosPedido[oBrw1:nAt,1], oBrw1:Refresh() }
    
          oBrw1:aColumns[1]:bData := {|| If(aDadosPedido[oBrw1:nAt,1],"X"," ") }
           
        oBrw:aCols[5]:oDataFont := oFntColuna
        oBrw:aCols[6]:oDataFont := oFntColuna
 
        oBrw:nRowHeight              := 30
        oBrw:lColDividerComplete := .f.
        oBrw:nDataLines          := 1    // Number of lines of the data rows
       oBrw:nHeaderLines        := 1    // Number of lines of the header    
        oBrw:nFooterLines        := 1    // Number of lines of the footer    
        oBrw:nHeaderHeight         := 30
        oBrw:nFreeze                  := 1
        *
        oBrw:bCHANGE                  := {|| FiltrarDd(&cArquivo->VA_NUMPEDI), oBrw:Refresh(), oBrw:SetFocus() }
        *
        oBrw:nMarqueeStyle       := 5    // Marquee style (row selected) 0 No Marquee 1 Dotted cell 2 Solid cell 3 Highlight cell 4 Highlight row & Raise Cell 5 Highlight row 6 Highlight row & multiselect 
        oBrw:nColDividerStyle    := 2    // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray    
        oBrw:nRowDividerStyle    := 2    // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray    
             
        oBrw:bClrSel               := {|| If(&cArquivo->VA_DATVENC < Date(), {CLR_HRED, cCorFundo}, {CLR_BLACK, cCorFundo} ) }
        oBrw:bClrSelFocus             := {|| If(&cArquivo->VA_DATVENC < Date(), {CLR_HRED, cCorFundo}, {CLR_BLACK, cCorFundo}) }
        
        oBrw:SetRDD()
        *
        oBrw:aCols[1]:AddBmpFile( "BMP\Cheio.Bmp" )
        oBrw:aCols[1]:AddBmpFile( "BMP\Vazio.Bmp" )
        oBrw:aCols[1]:bBmpData := { || If( &cArquivo->SIM_NAO = "S", 1, 2) }   
        oBrw:aCols[1]:bStrData := {|| "" }
        oBrw:aCols[1]:nDataBmpAlign := 1
        *
        oBrw:bClrStd  :={ || IIF(&cArquivo->VA_DATVENC < Date(), { CLR_BLACK,RGB(255,218,185)}, {CLR_BLACK,CLR_WHITE} )}
       oBrw:bLDblClick := {|| MSelecao(1) }
       *
        ACTIVATE DIALOG oDlgCrediario CENTER ON INIT (If(lF_Caixa,MsgLogo( "BMP\CAIXA.BMP", 5 ),.t.), oBrw:Refresh(.t.), oBrw:SetFocus())
    End
    
    DbCloseAll()
    
    oFntMsg:Release()
    oFont:Release()   
    oFntConta:Release()   
    oFntColuna:Release()
  
   RETURN nil
          
 Function FiltrarDd( nPed )
    Local cDBF := DBF()
    Local nNTX := IndexOrd()
    *
    aDadosPedido := { }
    Sel("BanPed",1)
    DbGoTop()
    DbSeek( nPed )
    While !EOF() .And. P_NUMPEDID = nPed
        cComprador := P_COMPRADO
        AADD(aDadosPedido, {.f., P_CODIGO,P_DESCRICA, P_QUANTIDA, P_VALTOTAL, P_COMPRADO, RecNo()})
        DbSkip(1)
    End
    DbCloseArea()
    *
    oBrw1:SetArray(aDadosPedido)      
    oBrw1:Refresh()
   oBrw1:GoBottom()
   
    oDlgCrediario:Update()
    
    Sel(cDBF,nNTX)
    
    SysRefresh()
    
 Return (.t.)
Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted
 

 If BcTelaCliente() 

 

// e se não for?? ele vai entrar aqui e quebrar

 

End // se nao tem ELSE

    

    DbCloseAll()

    

    oFntMsg:Release()

    oFont:Release()   

    oFntConta:Release()   

    oFntColuna:Release()

 

// O ENDIF deveria ser aqui... ou não?

 

RETUR...
Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted
 
 If BcTelaCliente() 
 
// e se não for?? ele vai entrar aqui e quebrar
 
End // se nao tem ELSE
    
    DbCloseAll()
    
    oFntMsg:Release()
    oFont:Release()   
    oFntConta:Release()   
    oFntColuna:Release()
 
// O ENDIF deveria ser aqui... ou não?
 
RETUR...

a função BcTelaCliente é só uma outra dialog que abre para digitar o nome do cliente que deseja ver o crediario, ai se o usuario clicar em OK retorna .t. senao .F.

ai não entra na rotina e fecha tudo volta para a windows

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

Qual a razão disto?  tem sujeira no dialogo??  retire e teste.

 

  oDlgCrediario:Update()  // ??? 

    

  

   SysRefresh() ?? tem looping???

eu utilizo isto na função FiltrarDd para que cada movimento do cursor no browse atualize a tela, porque existe uma outra browse ao lado que mostra os dados do pedido. seu tirar não atuliza qdo movimenta no browse.

Link to comment
Share on other sites
SAOliveira Newbie

SAOliveira

Posted
Posted

eu utilizo isto na função FiltrarDd para que cada movimento do cursor no browse atualize a tela, porque existe uma outra browse ao lado que mostra os dados do pedido. seu tirar não atuliza qdo movimenta no browse.

 

Para atualizar o Browse, você pode dar um oBrw:Refresh(), que vai atualizar só ele, e não a dialog toda com oDlgCrediario:Update() .

Link to comment
Share on other sites
emotta Apprentice

emotta

Posted
Posted

Acredito que é nesta parte que está seu problema: oBrw:aCols[1]:AddBmpFile( "BMP\Cheio.Bmp" )

 

Fazendo assim voce depende da pasta corrente, se bobear quando vc está na frente do cliente acessa o sistema de uma maneira e o cliente quando está sozinho acessa por outro icone em que a pasta DEFAULT pode estar setada como outra.

 

 

 

Procure passar o caminho completo para evitar problema, exemplo:

 

 

cPathDef := "c:\sistema\bitmaps"

oBrw:aCols[1]:AddBmpFile( cPath+"\Cheio.Bmp" )

 

 

 

Então eu utilizo a imagem em BMP em arquivo direto, não esta no resource.

eu faço assim no browse:

 

        oBrw:aCols[1]:AddBmpFile( "BMP\Cheio.Bmp" )
        oBrw:aCols[1]:AddBmpFile( "BMP\Vazio.Bmp" )
        oBrw:aCols[1]:bBmpData := { || If( &cArquivo->SIM_NAO = "S", 1, 2) }   
        oBrw:aCols[1]:bStrData := {|| "" }
        oBrw:aCols[1]:nDataBmpAlign := 1
Link to comment
Share on other sites
Erciley Junior Newbie

Erciley Junior

Posted
Posted

Theotokos, se não resolver verifique o seguinte...

 

Aqui já aconteceu isso trabalhando com 2 browses por exemplo

 

Ao mover a setinha em um dos browses, o segundo era refeito, trazendo novas informações

 

segurando o dedão na setinha pra correr os registros do primeiro browse, o segundo browse ficava sendo refeito a todo momento, e isso acabava ocasionando este erro.....

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

Theotokos, se não resolver verifique o seguinte...

 

Aqui já aconteceu isso trabalhando com 2 browses por exemplo

 

Ao mover a setinha em um dos browses, o segundo era refeito, trazendo novas informações

 

segurando o dedão na setinha pra correr os registros do primeiro browse, o segundo browse ficava sendo refeito a todo momento, e isso acabava ocasionando este erro.....

Vlw! vou testar isto tmb...

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...