FiveTech Software tech support forums

Posted: **Tue Feb 12, 2019 3:50 pm**

Hola,
alguien me podria decir como corregir o que significa este error, que me sale cuando edito un xbrowse :

   Error occurred at: 12/02/2019, 10:04:53
   Error description: Error BASE/3101  Error de argumento: __OBJDERIVEDFROM

Stack Calls
===========
   Called from:  => __ERRRT_BASE( 0 )
   Called from: ../../../objfunc.prg => __OBJDERIVEDFROM( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:ISKINDOF( 0 )
   Called from: .\source\classes\XBROWSE.PRG => EDITGETKEYDOWN( 14887 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN_EDIT( 14770 )
   Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN( 1597 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: control.prg => TCONTROL:HANDLEEVENT( 1803 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 1151 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3541 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1073 )
   Called from: GESTION.PRG => MAIN( 3979 )

Gracias.

Posted: **Wed Feb 13, 2019 12:37 am**

This is surprising.
Can you please indicate the FWH version you are using and provide us with a sample program that generates this error?

Posted: **Wed Feb 13, 2019 11:08 am**

https://github.com/harbour/core/blob/ma ... bjfunc.prg

https://harbour.github.io/doc/harbour.h ... erivedfrom

https://vivaclipper.wordpress.com/2014/ ... rivedfrom/

Saludos.

Posted: **Wed Feb 13, 2019 11:31 am**

Mr. karinha

I know which line is the error.
We also know fully about the meaning of __objderivedfrom, etc.

Normally this error should not happen.

I am very curious to know what kind of program could result in this error.
I am not able to imagine how anyone can write a program that will generate this error.

Posted: **Wed Feb 13, 2019 11:55 am**

In Called from: ../../../tobject.prg => NIL:ISKINDOF( 0 ) the key is NIL:ISKINDOF( 0 )

So the problem is obj is NIL. Only that

Posted: **Wed Feb 13, 2019 11:58 am**

XBrowse assigns oCol object there. It should not become nil.

That is the reason I am requesting to provide a sample that can reproduce this error

Posted: **Wed Feb 13, 2019 6:00 pm**

You're right !

Regards

Posted: **Thu Feb 14, 2019 10:38 am**

Mr. Rao,
Gracias por responder, (tmb Karina),
estoy usando :

Compiler version: Harbour 3.2.0dev (r1703231115)
FiveWin version: FWH 19.01
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 7.1, Build 7601 Service Pack 1

y esto sucede en cualquier xbrowse que uso en MDICHILD, con un DIALOG NOMODAL o en DIALOG MODAL y el xbrowse dentro del DIALOG, le adjunto uno xbrowse para que vea, no puedo extraer un ejemplo autocontenido xq son trozos de una app muy grande, te añadi tambien las funciones q llamo en varios postedit

Code: Select all

   DEFINE WINDOW oWndChild MDICHILD;
         FROM aWin[01],aWin[02] TO aWin[03], aWin[04] ;
         TITLE cTitle ;
         COLOR "N/W"   ;
         ICON oWnd:oIcon;
         NOMAXIMIZE ;
         OF oWnd

   DEFINE DIALOG oDlg RESOURCE cDlg OF oWndChild FONT oWnd:oFont

   REDEFINE GET aDatax["93"] VAR aCliente[ ID_SOCIO ];            // oCdg
   REDEFINE SAY aDatax["94"]  PROMPT aCliente[ ID_NOMBRE ]              ID   94 OF oDlg UPDATE
   REDEFINE SAY aDatax["197"] PROMPT aCliente[ ID_DOMICI ]              ID  197 OF oDlg UPDATE
   REDEFINE SAY aDatax["54"]  PROMPT aCliente[ ID_TELEFO ]              ID   54 OF oDlg UPDATE
   REDEFINE SAY aDatax["54"]  PROMPT aTxtIva[ aCliente[ ID_CF ] ] ID 4009 OF oDlg UPDATE
   REDEFINE SAY aDatax["54"]  PROMPT aCliente[ ID_CUIT ]                    ID 4011 OF oDlg UPDATE

   REDEFINE GET aDatax["107"] VAR aCliente[ ID_CLACOM ]  ;
   REDEFINE GET aDatax["108"] VAR aCliente[ ID_CODVTA ]  ;
   REDEFINE GET aDatax["62"] VAR aCliente[ ID_NROCOM ]  ;
   REDEFINE GET aDatax["4001"] VAR aCliente[ ID_NROPED ]  ;
   REDEFINE GET aDatax["90"] VAR aCliente[ ID_FECHA ];
   REDEFINE GET aDatax["53"] VAR aCliente[ ID_FECVTO ];
   REDEFINE GET aDatax["4004"] VAR aCliente[ ID_FECHAE ];

   oLbx[3]:= TXBrowse():New( oDlg )


       oBar[1] := TC5StBar():Redefine( 4003, oDlg, oApp:nStBarColor1, oApp:nStBarColor2, .f., oWnd:oFont )
       oBar[1]:lRightToLeft := .f.
       oBar[1]:lBorder := oApp:BarC5StBorder
       oBar[1]:AddItem( "Nuevo", cBmpNew,{|| ( NewReg( oLbx[1], aCliente, lPorArt ), oLbx[1]:SetFocus(),.t.) }, {|| .t.}, .f., "Añadir item" )
       oBar[1]:AddItem( "", cBmpAnular,{|| (DelReg( oLbx, aCliente, lPorArt ),oLbx[1]:SetFocus(),.t.) }, {|| aCliente[ID_SOCIO]#0.and.Len(oLbx[1]:aArrayData)>0}, .f., "Eliminar" )
                        
        aColumns:= { ID_CODART, ID_NOMART, ID_CANART, ID_COSART, ID_BONIF1, ID_BONIF2, ID_BONIF3, ID_BONIF4, ID_BONIF5, ID_PREART, ID_IMPART, ID_IVAART, ID_CPBART }
        aHeaders:= { "Codigo", "Articulo", "Bultos", "Precio", "%", "%", "%", "%", "%", "Costo", "Importe", "Tasa", "Comprobante" }
        aColSize:= { 120, 340, 50, 65, 50, 50, 50, 50, 50, 60, 65, 50, 90 }
        aColJust:= { ,, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT }
        aColPict:= { ,, oApp:CantidPict, oApp:PrecioPict, "@Z 999.99", "@Z 999.99", "@Z 999.99", "@Z 999.99", "@Z 999.99", oApp:ImportePict, oApp:ImportePict, "@Z 999.99%" }
        ndCol:= 6
        
       REDEFINE XBROWSE oLbx[1] ;
            COLUMNS aColumns ;
            HEADERS aHeaders ;
            COLSIZES aColSize ;
            JUSTIFY aColJust ;
            PICTURE aColPict ;
            ID aId[01] ;
            OF oDlg ;
            ARRAY aDatos LINES FASTEDIT


      WITH OBJECT oLbx[1]:InsCol( 1 )
            :cHeader       := " "
            :bEditValue    := { || If( AScan( oLbx[1]:aSelected, oLbx[1]:BookMark ) > 0 .and. !empty(oLbx[1]:aArrayData[oLbx[1]:nArrayAt,ID_CODART]), .t., nil ) }
            :SetCheck()
            :nHeadBmpNo    := { || If( Len( oLbx[1]:aSelected ) == oLbx[1]:nLen, 1, 2 ) }
            :bLClickHeader := { |r,c,f,oCol| If( Len( oLbx[1]:aSelected ) == oLbx[1]:nLen, oLbx[1]:SelectNone(), oLbx[1]:SelectAll() ) }
      END
        WITH OBJECT oLbx[1]:Codigo
         :cEditPicture := "@X"
         :bEditWhen    := { || oLbx[1]:aArrayData[oLbx[1]:nArrayAt,ID_FIRST] }
         :nEditType  := EDIT_GET
         :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 1, oLbx[1], aCliente, cPathRs,, oLbx ) }
         :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey<>VK_ESCAPE,( oCol:value:= xVal,;
                                                                                  Totalizo( oLbx,, aCliente ),;
                                                                                  TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                                       oLbx[1]:RefreshFooters(),;
                                                                       oLbx[1]:Refresh() ),) }
        END WITH
             
        WITH OBJECT oLbx[1]:Articulo
             :cEditPicture := "@X"
             :bEditWhen    := { || !EMPTY( oLbx[1]:aArrayData[oLbx[1]:nArrayAt,ID_CODART] ) }     // oLbx[1]:aRow[ID_CODART]
             :nEditType  := EDIT_GET
             :bEditValid    := { | oGet, oCol | !EMPTY( oGet:value ) }
             :bOnPreEdit:= { | oCol | oCol:oEditGet:SetPos( 0 ) }
             :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, oCol:value:= xVal,) }
        END WITH

       WITH OBJECT oLbx[1]:Bultos
            :cEditPicture := oApp:CantidPict
            :bEditWhen    := { || !EMPTY( oLbx[1]:aRow[ID_CODART] ) }
            :nEditType  := EDIT_GET
            :bEditValid    := { | oGet, oCol | oGet:value()>=0 }
            :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                             oLbx[1]:aArrayData[oLbx[1]:nArrayAt,ID_FIRST]:= .f.,;
                                                                             Totalizo( oLbx,, aCliente ),;
                                                                             TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                                             oLbx[1]:SelectCol(ndCol-1),;
                                                                             oLbx[1]:SetFocus() ), ) }
       END WITH

       WITH OBJECT oLbx[1]:Precio
            :cEditPicture := "@z 999,999.999"       // oApp:PrecioPict
            :bEditWhen    := { || !EMPTY( oLbx[1]:aRow[ID_CODART] ) }
            :nEditType  := EDIT_GET
            :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 4, oLbx[1], aCliente, cPathRs,, oLbx ) }
            :bOnPostEdit:= { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                           Totalizo( oLbx,, aCliente ),; //                                                                                     TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                                           oLbx[1]:SetFocus() ),) }
       END WITH
       WITH OBJECT oLbx[1]:aCols[ndCol]
            :cEditPicture := "@Z 999.99"
             :nEditType    := EDIT_GET
            :bEditWhen    := { || !EMPTY( oLbx[1]:aRow[ID_CODART] ) }
              :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 3, oLbx[1], aCliente, cPathRs, 1, oLbx ) }
           :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                           Totalizo( oLbx,, aCliente ),;
                                                                            TOTALEX(aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs),;
                                                                            oLbx[1]:SetFocus() ),) }
       END WITH
                        WITH OBJECT oLbx[1]:aCols[ndCol+1]
                             :cEditPicture := "@Z 999.99"
                              :nEditType    := EDIT_GET
                               :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 3, oLbx[1], aCliente, cPathRs, 2, oLbx ) }
                             :bEditWhen    := { || oLbx[1]:aRow[ndCol]#0.00 }
                            :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                                        Totalizo( oLbx,, aCliente ),;
                                                                                             TOTALEX(aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs),;
                                                                                             oLbx[1]:SetFocus() ),) }
                        END WITH
                        WITH OBJECT oLbx[1]:aCols[ndCol+2]
                             :cEditPicture := "@Z 999.99"
                              :nEditType    := EDIT_GET
                               :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 3, oLbx[1], aCliente, cPathRs, 3, oLbx ) }
                             :bEditWhen    := { || oLbx[1]:aRow[ndCol+1]#0.00 }
                            :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                                                                     Totalizo( oLbx,, aCliente ),;
                                                                                             TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                                                             oLbx[1]:SetFocus() ),) }
                        END WITH
                        WITH OBJECT oLbx[1]:aCols[ndCol+3]
                             :cEditPicture := "@Z 999.99"
                              :nEditType    := EDIT_GET
                               :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 3, oLbx[1], aCliente, cPathRs, 4, oLbx ) }
                             :bEditWhen    := { || oLbx[1]:aRow[ndCol+2]#0.00 }
                            :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                                        Totalizo( oLbx,, aCliente ),;
                                                                                             TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                                                             oLbx[1]:SetFocus() ),) }
                        END WITH
                        WITH OBJECT oLbx[1]:aCols[ndCol+4]
                             :cEditPicture := "@Z 999.99"
                             :nEditType    := EDIT_GET
                        :bEditValid    := { | oGet, oCol | Valida( oGet, oCol, 3, oLbx[1], aCliente, cPathRs, 5, oLbx ) }
                             :bEditWhen    := { || oLbx[1]:aRow[ndCol+3]<>0.00 }
                            :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                                                                                                     Totalizo( oLbx,, aCliente ),;
                                                                                             TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs),;
                                                                                             oLbx[1]:SetFocus() ),) }
                        END WITH

    if ASCAN( aHeaders, "Tasa" ) > 0
         WITH OBJECT oLbx[1]:Tasa
         :cEditPicture := "@z 999.99%"       // oApp:PrecioPict
         :bEditWhen    := { || (lPorArt.and.!EMPTY( oLbx[1]:aRow[ID_CODART] ).and.aCliente[ID_TIPCOM]#"N ") .or. ;
                                                     (!lPorArt.and.!EMPTY(oLbx[1]:aRow[ID_NOMART]).AND.oLbx[1]:aRow[ID_EXEART]#"S" ) }
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,;
                                         TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                         oLbx[1]:SetFocus() ), ) }
       END WITH
    endif

    WITH OBJECT oLbx[1]
                :lRecordSelector:= .f.
                  :lMultiSelect     := .f.
                  :lEdit                    := .t.
                    :nStretchCol        := STRETCHCOL_LAST
                  :lAllowColSwapping   := .f.
                 :bPastEof  := { || NewReg( oLbx[1], aCliente, lPorArt ) }
                 :bKeyDown := {| nKey | Pulsar( nKey, aCliente, oLbx, lPorArt, nParam, oWnd, cPathRs, oWndChild, oDlg ) }
                 :bGotFocus := { || ( if(LEN(oLbx[1]:aArrayData)==0,(NewReg(oLbx[1], aCliente, lPorArt ),oLbx[1]:SelectCol(IF(lPorArt,02,01))),),oLbx[1]:SetFocus() ) }
                 :bChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], lPorArt, .f.,, cPathRs ),;
                                                      if(aCliente[ID_TIPCOM]=="N ",oLbx[1]:RefreshFooters(),),;
                                                      oLbx[1]:SetFocus() ) }
      END WITH

       REDEFINE XBROWSE oBrwh ;
            ID aId[02] ;
            OF oDlg ;
            ARRAY aDatos

  REDEFINE XBROWSE oLbx[2] ;
         COLUMNS 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 ;
         HEADERS "Neto", "%", "%", "%", "%", "$", "SubTotal", "Iva Base", "Iva Adic.", "Exento", aCliente[ID_TITULO_IB,01], "Res.33371", "Imp.Internos", "TOTAL" ;
         COLSIZES 70, 50, 50, 50, 50, 60, 70, 70, 70, 70, 70, 90, 70, 90 ;
         JUSTIFY AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT ;
         PICTURE oApp:TotalPict, "@Z 999.99", "@Z 999.99", "@Z 999.99", "@Z 999.99", oApp:TotalPict, oApp:TotalPict, oApp:TotalPict, ;
                 oApp:TotalPict, oApp:TotalPict, oApp:TotalPict, oApp:TotalPict, oApp:TotalPict, oApp:TotalPict ;
         ID 102 ;
         OF oDlg ;
         ARRAY aTotales FASTEDIT

   WITH OBJECT oLbx[2]:aCols[1]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
         :bEditValid   := { | oGet, oCol | oGet:value() >= 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs, xneto ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[2]
         :cEditPicture := "@Z 999.99"
         :nEditType  := EDIT_GET
         :bEditWhen  := { || aCliente[ ID_DESCUENTO ] == 0 }
         :bEditValid   := { | oGet, oCol | oGet:value() >= 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t., .f.,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[3]
         :cEditPicture := "@Z 999.99"
         :nEditType  := EDIT_GET
         :bEditValid    := { | oGet, oCol | oLbx[2]:aArrayData[ oLbx[2]:nArrayAt,2 ] > 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t., .f.,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[4]
         :cEditPicture := "@Z 999.99"
         :nEditType  := EDIT_GET
         :bEditValid    := { | oGet, oCol | oLbx[2]:aArrayData[ oLbx[2]:nArrayAt,3 ] > 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t., .f.,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[5]
         :cEditPicture := "@Z 999.99"
         :nEditType  := EDIT_GET
         :bEditValid    := { | oGet, oCol | oLbx[2]:aArrayData[ oLbx[2]:nArrayAt,4 ] > 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t., .f.,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[6]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
         :bEditWhen  := { || TABSUM( oLbx[2]:aArrayData[ oLbx[2]:nArrayAt ],, xdto1, xdto4 ) == 0 }
         :bEditValid    := { | oGet, oCol | oGet:value >= 0.00 }
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t., .f.,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[7]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[8]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[9]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[10]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[11]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
        :cTooltip:= "Sin definir"
   END WITH
   WITH OBJECT oLbx[2]:aCols[12]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH
   WITH OBJECT oLbx[2]:aCols[13]
         :cEditPicture := oApp:TotalPict
         :nEditType  := EDIT_GET
        :bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal  ),) }
        :bOnChange  := { || ( TOTALEX( aCliente,, oLbx[1]:aArrayData, oLbx[2], .t.,,, cPathRs ), oLbx[2]:SetFocus() ) }
   END WITH

   oLbx[2]:aCols[xtotal]:oDataFont := {|| oApp:FNNegrita }

    WITH OBJECT oLbx[2]
#ifndef __XHARBOUR__
         :SetStyle( oApp:Style )
#endif
         :SetGroupHeader( 'B O N I F I C A C I O N E S', 2, 6 )
          :lHScroll:= .F.
          :lVScroll:= .f.
          :lRecordSelector:= .f.
          :lAutoAppend:= .f.
          :nStretchCol:= STRETCHCOL_LAST
         :bKeyDown := {| nKey | Pulsar( nKey, aCliente, oLbx, lPorArt, nParam, oWnd, cPathRs, oWndChild, oDlg, 2 ) }
         :nMarqueeStyle       := MARQSTYLE_HIGHLCELL
   END WITH


   REDEFINE SAY oCbx[1] PROMPT aCliente[ID_CARTEL] ID  92 OF oDlg UPDATE
   REDEFINE COMBOBOX oCbx[2] VAR aCliente[ ID_CTIPCOM ] ITEMS aNC ;
            ID  91 ;
            OF oDlg ;
            WHEN LEN(aNC) > 0 ;
            VALID if(EstaDato( aCliente[ ID_CTIPCOM ], aCliente, aDatos, /*aGastos*/, oDlg, lPorArt, oLbx[1], cPathRs ),;
                     ( if(LEN(aCliente[ID_TMP])>0,( aDatos:= aCliente[ID_TMP],;
                                                    oLbx[1]:SetArray( aDatos ),;
                                                    oLbx[1]:Gotop(),;
                                                    oLbx[1]:Refresh()),),;
                                                    oLbx[1]:SetFocus(),.T.),;
                                                    (oLbx[1]:SetFocus(),.T.) ) ;
            UPDATE
   if oApp:EmpresaId == "64"
     REDEFINE SAY oHlp5 PROMPT "Bonificación Oferta:" ID 4002 OF oDlg UPDATE
   else
     REDEFINE SAY oHlp5 ID 4002 OF oDlg UPDATE
   endif
   REDEFINE SAY oHlp6 PROMPT if(oApp:EmpresaId$"63,70,88","Fecha Registracion:","Fecha Entrega:") ID 4005 OF oDlg UPDATE
   REDEFINE SAY oHlp7 ID 4008 OF oDlg UPDATE
   REDEFINE SAY oHlp8 ID 4010 OF oDlg UPDATE
*--------------------------------- FOLDER02 --------------------------------
   REDEFINE BUTTONBMP aDatax["550"] ID 550 OF oDlg ;
        ACTION ( if( Grabar(aCliente,oLbx[1]:aArrayData,lPorArt,nParam,oCrw,oLbx,cPathRs,oWndChild,oWnd ),;
                              ( Limpiar( aCliente, oDlg ),;
                                oLbx[1]:aArrayData:= {},;
                                            oLbx[1]:nLen:= 0,;
                                oLbx[1]:Gotop(),;
                                oLbx[1]:Refresh(),;
                                oLbx[1]:RefreshFooters(),;
                                if(nNotaPedido>0,oWndChild:End(),aDatax["93"]:SetFocus()) ), ) ) ;
         PROMPT "&Aceptar" ;
         BITMAP cBmpAcept     ;           // "ok3" ;
         TEXTRIGHT ;
         TOOLTIP "Guardar"

   REDEFINE BUTTONBMP aDatax["551"] ID 551 OF oDlg ;
        ACTION oWndChild:End() ;
        PROMPT "&Cancelar" ;
        CANCEL ;
        BITMAP cBmpCancel ;                                       // "anular" ;
        TEXTRIGHT
*---------------------------------------------------------------------------
   ACTIVATE DIALOG oDlg NOWAIT ON CLICK  oDlg:Update ;
        ON INIT ( oDlg:move( 0, 0 ) );
        valid .f.

   ACTIVATE WINDOW oWndChild ;
         ON INIT (   oWndChild:SetSize( oDlg:nWidth+16, oDlg:nHeight+37 ),;
                     aCliente[ID_NEW]:= .F.,;
                     if(lGrande,oWndChild:Maximize(),),;
                     if(oApp:lNetBook,oWndChild:Maximize(),),;
                     aDatax["62"]:Refresh(),;
                     oBrwh:hide(),;
                     if(nNotaPedido>0,oLbx[1]:SetFocus(),oDlg:aControls[1]:SetFocus()) ) ;
         VALID( DeleteObject(hBmp),;
                .T. )

*--------------------------------------------------------------------------------
Static FUNCTION Totalizo( oLbx, nPos, aCliente )
   local lRet:= .F.
   local cQuery, c3:= "", c2:= "", cMsg:= ""
   local nIrA:= 0, n2, nX, n3
   local aTmp[5]
   DEFAULT nPos:= oLbx[1]:nArrayAt

   AFill( aTmp, 0.00 )
   IF Len(oLbx[1]:aArrayData) > 0 .and. aCliente[ ID_TIPCOM ] <> "RM"
      n2:= oLbx[1]:aArrayData[ nPos, ID_COSART ]
         FOR nX:= 1 TO LEN( aTmp )
            aTmp[ nX ]:= oLbx[1]:aArrayData[ nPos, nX+(ID_BONIF1-1) ]
            if aTmp[ nX ] <> 0.00
                n3:= ROUND( ( 100-aTmp[nX] ) / 100, 4 )
                n2:= ROUND( n2*n3, 2 )
            endif
         NEXT
      oLbx[1]:aArrayData[ nPos, ID_PREART ]:= n2

      oLbx[1]:aArrayData[ nPos, ID_IMPART ]:= ROUND( oLbx[1]:aArrayData[ nPos, ID_CANART ]*n2,2 )
      oLbx[1]:Refresh()
      if ( oLbx[1]:lFooter )
         oLbx[1]:MakeTotals()
         oLbx[1]:RefreshFooters()
         oLbx[1]:Refresh()
      endif
   endif


RETURN NIL

//-------------------------------------------------------------------------------

Static Function TOTALEX( aCliente, oDlg, aDatos, oLbx2, lPorArt, lTotalex, nNivel, cPathRs, xvar  )

    Local w_ivax:= 0, x, nTmp:= 0
   Local w_exento:= 0, w_neto:= 0, w_totiva:= 0
   Local aIvas:= {}, nItem, aItem


    DEFAULT lTotalex:= .t.,;
            nNivel  := 0,;
            xvar  := 0,;
            lPorArt := .t.

//  ? lTotalex, LEN(ADATOS), lPorArt
    if aDatos <> NIL .AND. LEN(aDatos) > 0
        FOR EACH aItem IN aDatos
            if ( lPorArt )
               IF !EMPTY( aItem[ ID_CODART ])
                  if aItem[ ID_IVAART ] <> 0
                     w_totiva+= ROUND( (aItem[ID_IMPART]*aItem[ID_IVAART])/100, oApp:RedondeoGral )  // 2
                  endif
               endif
            else
               IF !EMPTY( aItem[ ID_NOMART ])
                  if aItem[ ID_EXEART ] <> "S"
                     w_totiva+= ROUND( (aItem[ID_IMPART]*aItem[ID_IVAART])/100, oApp:RedondeoGral )   // 2
                  endif
               endif
            endif
        NEXT
    endif

    if !( lTotalex )
       if aDatos <> NIL .AND. LEN(aDatos) > 0
          FOR EACH aItem IN aDatos
              if ( lPorArt )
                 IF !EMPTY( aItem[ ID_CODART ])
                    if aItem[ ID_IVAART ] == 0
                       w_exento+= aItem[ID_IMPART]
                    else
                       if ASCAN( aIvas, aItem[ID_IVAART] ) == 0
                          AAdd( aIvas, aItem[ID_IVAART] )
                       endif
                       w_neto+= aItem[ID_IMPART]
                    endif
                 endif
              else
                 IF !EMPTY( aItem[ ID_NOMART ])
                    if aItem[ ID_EXEART ] == "S"
                       w_exento+= aItem[ID_IMPART]
                    else
                       w_neto+= aItem[ID_IMPART]
                       if ASCAN( aIvas, aItem[ID_IVAART] ) == 0
                          AAdd( aIvas, aItem[ID_IVAART] )
                       endif
                    endif
                 endif
              endif
          NEXT
          oLbx2:aArrayData[ oLbx2:nArrayAt,xneto ]  := w_neto
          oLbx2:aArrayData[ oLbx2:nArrayAt,xexento ]:= w_exento
          oLbx2:aArrayData[ oLbx2:nArrayAt,xiva1 ]  := 0.00
       else
          if aCliente[ID_IVA1] # 0.00
             if ASCAN( aIvas, aCliente[ID_IVA1] ) == 0
               AAdd( aIvas, aCliente[ID_IVA1] )
             endif
          endif
       endif
    else
       if aCliente[ID_IVA1] <> 0.00
          if ASCAN( aIvas, aCliente[ID_IVA1] ) == 0
             AAdd( aIvas, aCliente[ID_IVA1] )
          endif
       endif
    endif

    if !( lTotalex )
      nTmp:= oLbx2:aArrayData[ oLbx2:nArrayAt,xneto ]
      if oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ] <> 0.00
         x:= ROUND( (oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ]*100)/nTmp, 2 )
         nTmp-= oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ]
         if w_totiva <> 0
             w_totiva-= ROUND( (w_totiva*x)/100, 2 )
          endif
      else
           FOR x:= xdto1 TO xdto4
              if oLbx2:aArrayData[ oLbx2:nArrayAt,x ] # 0.00
                 nTmp-= ROUND( (nTmp*oLbx2:aArrayData[ oLbx2:nArrayAt,x ])/100, 2 )
                  if w_totiva # 0
                     w_totiva-= ROUND( (w_totiva*oLbx2:aArrayData[ oLbx2:nArrayAt,x ])/100, 2 )
                  endif
             endif
         NEXT
      endif
      oLbx2:aArrayData[ oLbx2:nArrayAt,xsubtot ]:= nTmp

       if aCliente[ ID_CLACOM ] == "A" .and. LEN(aIvas)>0
          oLbx2:aArrayData[ oLbx2:nArrayAt,xiva1 ]:= w_totiva
       endif

  elseif xvar == xneto
        nTmp:= oLbx2:aArrayData[ oLbx2:nArrayAt,xneto ]
          if oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ] <> 0.00
             x:= ROUND( (oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ]*100)/nTmp, 2 )
             nTmp-= oLbx2:aArrayData[ oLbx2:nArrayAt,xdto5 ]
             if w_totiva <> 0
                w_totiva-= ROUND( (w_totiva*x)/100, 2 )
             endif
         else
            FOR x:= xdto1 TO xdto4
                 if oLbx2:aArrayData[ oLbx2:nArrayAt,x ] <> 0.00
                    nTmp-= ROUND( (nTmp*oLbx2:aArrayData[ oLbx2:nArrayAt,x ])/100, 2 )
                    if w_totiva <> 0
                       w_totiva-= ROUND( (w_totiva*oLbx2:aArrayData[ oLbx2:nArrayAt,x ])/100, 2 )
                    endif
                 endif
            NEXT
         endif
           oLbx2:aArrayData[ oLbx2:nArrayAt,xsubtot ]:= nTmp
  endif
  
  oLbx2:aArrayData[ oLbx2:nArrayAt,xtotal ]:= 0.00
  FOR x:= xsubtot TO xtotal-1
      oLbx2:aArrayData[ oLbx2:nArrayAt,xtotal ]+= oLbx2:aArrayData[ oLbx2:nArrayAt,x ]
  NEXT

  oLbx2:Gotop()
  oLbx2:Refresh()

RETURN ( .t. )

*------------------------------------------------------------------------------------------

STATIC FUNCTION Valida( oGet, oCol, nId, oBrw, aCliente, cPathRs, nIdx, oLbx )
  local oDbf, oTmp
  local lRet:= .F., lSek:= .f., lNext:= .f., lFiltroRubro:= .t.
  local cQuery, c3:= "", c2:= "", c4:= "", cMsg:= "", cQry, cScp
  local uCod:= oGet:value()
  local nIrA:= 0, n2, nX, xTmp, n3, n4, nPrecom, nCotiza:= 0.00
  local aTmp[5]

   if nId == 1
      aCliente[ ID_ITEM ]:= {}
      if !EMPTY( uCod )

         // Busco el articulo por codigo ingresado
                  
         if (lRet:= LoadQX( oBrw, oLbx, "t1.codart = "+ClipValue2SQL(uCod)+" LIMIT 1", aCliente ))
            uCod:= oBrw:aArrayData[ oBrw:nArrayAt, ID_CODART ]
            lNext:= .T.
         endif
      endif

  elseif nId == 2
         If ( uCod $ "13CcUu" )
             if uCod == "1"
                uCod := "U"
             elseif uCod == "3"
                    uCod:= "C"
             else
                uCod:= UPPER(uCod)
             endif
              lRet:= .t.
         else
              MsgStop("Debe especificar la unidad de venta.","Error." )
         EndIf

  elseif nId == 3        // Bonificaciones.

      if uCod >= 0.00
           AFill( aTmp, 0.00 )
           FOR nX:= 1 TO LEN( aTmp )
              aTmp[ nX ]:= oBrw:aArrayData[ oBrw:nArrayAt, nX+(ID_BONIF1-1) ]
           NEXT
           aTmp[ nIdx ]:= uCod
           n2:= oBrw:aArrayData[ oBrw:nArrayAt, ID_COSART ]
           FOR nX:= 1 TO LEN(aTmp)
               if aTmp[nX] <> 0.00
                   n3:= ROUND( ( 100-aTmp[nX] ) / 100, 4 )
                   n2:= ROUND( n2*n3, 2 )
               endif
           NEXT
           oBrw:aArrayData[ oBrw:nArrayAt, ID_PREART ]:= n2
           oBrw:aArrayData[ oBrw:nArrayAt, ID_IMPART ]:= ROUND(oBrw:aArrayData[ oBrw:nArrayAt, ID_CANART ]*oBrw:aArrayData[ oBrw:nArrayAt, ID_PREART ],2 )
           lRet:= .t.
      endif

  elseif nId == 4      // Precio.

      if uCod >= 0.00
        AFill( aTmp, 0.00 )
        FOR nX:= 1 TO LEN( aTmp )
           aTmp[ nX ]:= oBrw:aArrayData[ oBrw:nArrayAt, nX+(ID_BONIF1-1) ]
        NEXT
        n2:=  uCod
        FOR nX:= 1 TO LEN(aTmp)
            if aTmp[nX] <> 0.00
               n3:= ROUND( ( 100-aTmp[nX] ) / 100, 4 )
               n2:= ROUND( n2*n3, 2 )
            endif
        NEXT
        oBrw:aArrayData[ oBrw:nArrayAt, ID_PREART ]:= n2
        oBrw:aArrayData[ oBrw:nArrayAt, ID_IMPART ]:= ROUND(oBrw:aArrayData[ oBrw:nArrayAt, ID_CANART ]*n2,2 )
        lRet:= .t.
      endif
  endif
    if ( lRet )
            oGet:VarPut( uCod )
        oCol:PostEdit()
        if ( lNext )
                 oBrw:SelectCol(04)
        else
                if nIdx <> NIL .and. uCod == 0.00
                   if LEN(oBrw:aArrayData) == oBrw:nArrayAt
                        NewReg(oBrw, aCliente, .t. )
                        oBrw:GoBottom()
                        oBrw:SelectCol(02)
                   endif
                endif
        endif
        oBrw:Refresh()
    endif

return lRet

Este mismo codigo SIN TOCAR nada, recompilando con fwh 18.04, no presenta este error.

Gracias.

Posted: **Thu Feb 14, 2019 12:13 pm**

If you are not getting any error with 1804, then it is ok.

Posted: **Thu Feb 14, 2019 3:07 pm**

Mr. Rao,
pero no puedo utilizar fwh 19.01 porque me sale ese error en cualquier xbrowse. hay alguna solucion ?

Posted: **Thu Feb 14, 2019 3:44 pm**

Por partes:

????

Code: Select all

   REDEFINE GET aDatax["93"] VAR aCliente[ ID_SOCIO ];

   REDEFINE GET aDatax["107"] VAR aCliente[ ID_CLACOM ]  ;

   REDEFINE GET aDatax["108"] VAR aCliente[ ID_CODVTA ]  ;

   REDEFINE GET aDatax["62"] VAR aCliente[ ID_NROCOM ]  ;

   REDEFINE GET aDatax["4001"] VAR aCliente[ ID_NROPED ]  ;

   REDEFINE GET aDatax["90"] VAR aCliente[ ID_FECHA ];

   REDEFINE GET aDatax["53"] VAR aCliente[ ID_FECVTO ];

   REDEFINE GET aDatax["4004"] VAR aCliente[ ID_FECHAE ];

Saludos.

Posted: **Thu Feb 14, 2019 5:18 pm**

Por partes:

Code: Select all

   ACTIVATE DIALOG oDlg NOWAIT      ;
      ON INIT ( oDlg:move( 0, 0 ) ) ;
      VALID( .NOT. GETKEYSTATE( 27 ) )

Posted: **Fri Feb 15, 2019 2:46 am**

Karina,
no entiendo el punto que me planteas porque el error es en el xbrowse cuando está en edicion que tiene que ver con el cierre del DIALGG ?

Posted: **Fri Feb 15, 2019 2:55 am**

Ariel wrote:Mr. Rao,
pero no puedo utilizar fwh 19.01 porque me sale ese error en cualquier xbrowse. hay alguna solucion ?

Understand.
We would be extremely thankful if you can provide a sample that we can build at our end and find the cause of the error. Because we could not reproduce such an error at our end till now.

A few points to be kept in mind always:
1) bEditWhen and bEditValid should avoid any screen i/o including browse refreshes. Only purpose is to return a logical value. In particular, please avoid calling PostEdit() again from inside this codeblock.

2) Recommended to avoid bOnPostEdit. If defined, may limit to assign data and any consequent actions may be incorporated inside bOnChange

We await your help in providing a sample that we can build at our end and investigate the matter.

Posted: **Sat Feb 16, 2019 10:22 am**

Mr. Rao,

como le dije al principio es imposible extraer el xbrowse para armar un ejemplo aislado, pero voy a revisar lo que me recomienda, a lo cual no me queda muy claro sus conceptos, en bEditValid NO debo mostrar por ejemplo msginfo o msgerror ? si esto es asi como le digo al usuario que esta mal el dato ingresado?

Saludos.

FiveTech Software tech support forums

ERROR __OBJDERIVEDFROM

ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM

Re: ERROR __OBJDERIVEDFROM