mudar botao do item em Foco no TXBrowse

marcioe · July 8, 2021

       oDB_tcompraS:aCols[03]:AddResource( "#8458" ) ou AddResource( "#8459" ) se Zerado o Código
       oDB_tcompraS:aCols[03]:nEditType     := EDIT_BUTTON
oDB_tcompraS:aCols[03]:bEditBlock    := {|nRow, nCol, oCol| DESASSOCIAR_ITENS_COMPRA((aArray_produtos_entrada[oDB_tcompraS:nArrayAt,02]), T_CODIGO_FORNECED, (aArray_produtos_entrada[oDB_tcompraS:nArrayAt,03]) ) }
       oDB_tcompraS:aCols[03]:nBtnBmp     := 1
        oDB_tcompraS:aCols[03]:lBtnTransparent   := .F.
       oDB_tcompraS:aCols[03]:lBmpStretch       := .T.

		* Terceira Orelha do Folder
		*-------------------------------------------------------------------------                                                                                          
		oDB_tcompraS 									:= TXBrowse():New( oFld_NE_ENTRADA:aDialogs[ 3 ] )
      oDB_tcompraS									: CreateFromResource(4016)
		oDB_tcompraS:bKeyDown  						:={|nKey|  if(nkey=13,( T_ID_ITEN_TEMPO_COMPRA:=IF(len(aArray_produtos_entrada)>0,(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,01]),0),  oDB_tcompraS:Refresh()) ,)}
		oDB_tcompraS:bChange   						:={|| 						T_ID_ITEN_TEMPO_COMPRA:=IF(len(aArray_produtos_entrada)>0,(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,01]),0),  oDB_tcompraS:Refresh() 												}
		oDB_tcompraS:bLDblClick						:={|| 						T_ID_ITEN_TEMPO_COMPRA:=IF(len(aArray_produtos_entrada)>0,(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,01]),0),  oDB_tcompraS:Refresh(), ATUALIZA_PRODUTO_IMPORTANDO_XML() 	}
		oDB_tcompraS:									SetArray( aArray_produtos_entrada, .t., 1, { 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 } ) 	
		*-------------------------------------------------------------------------	
		oDB_tcompraS:lColDividerComplete 		:= .F.
		oDB_tcompraS:lFooter             		:= .T.
		oDB_tcompraS:lRecordSelector     		:= .T.  
		oDB_tcompraS:nHeaderLines        		:= 1
		oDB_tcompraS:nDataLines          		:= 1.5
		oDB_tcompraS:bClrStd 						:= {|| { COR_LETRAS_GRID, IIF((oDB_tcompraS:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd   ) } }		
		oDB_tcompraS:bClrSelFocus 		  			:= {|| { M->COR_1_bClrSelFocus, M->COR_2_bClrSelFocus  } }         
		oDB_tcompraS:bClrRowFocus 		  			:= {|| { M->COR_1_bClrRowFocus, M->COR_2_bClrRowFocus   } }
		oDB_tcompraS:nColDividerStyle    		:= 4
		oDB_tcompraS:nRowDividerStyle    		:= 4
		oDB_tcompraS:nMarqueeStyle       		:= 4
		oDB_tcompraS:nFooterLines     			:= 1
		oDB_tcompraS:lAllowColSwapping   		:= .T.                                 //  Click no header (.f.)Trava
		oDB_tcompraS:lAllowRowSizing     		:= .T.                                 //  Nao move as Linhas (nao sei)	
		oDB_tcompraS:l2007 							:= M->ESTILO_l2007 
		oDB_tcompraS:lAllowRowSizing     		:= .T. 
   	oDB_tcompraS:nFreeze							:= 3 		
		*-------------------------------------------------------------------------		
		oDB_tcompraS:aCols[01]:bstrData     	:= {|| iif(len(aArray_produtos_entrada)>0,strzero(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,01],03,0),nil) }
	   oDB_tcompraS:aCols[01]:nWidth       	:= 060
	   oDB_tcompraS:aCols[01]:cHeader      	:= "ID"
		oDB_tcompraS:aCols[01]:nDataStrAlign	:= AL_LEFT
		oDB_tcompraS:aCols[01]:nHeadStrAlign	:= AL_LEFT        
		oDB_tcompraS:aCols[01]:cToolTip     	:= {"Id Numero do Lançamento","Ajuda","", } 
  		oDB_tcompraS:aCols[01]:AddResource( "#8107" )
   	oDB_tcompraS:aCols[01]:bLClickHeader	:= {|r,c,f,o|   LANCAMENTO_ITENS_ENTRADA()     }   
	   oDB_tcompraS:aCols[01]:nHeadBmpNo   	:= 1 
    	oDB_tcompraS:aCols[01]:nDataBmpAlign   := AL_LEFT
  		oDB_tcompraS:aCols[01]:AddResource( "#8017" )
		oDB_tcompraS:aCols[01]:nEditType    	:= EDIT_BUTTON
      oDB_tcompraS:aCols[01]:bEditBlock   	:= {|nRow, nCol, oCol|  INSERE_ITENS_COMPRA("E")  }
		oDB_tcompraS:aCols[01]:nBtnBmp      	:= 2
 		oDB_tcompraS:aCols[01]:lBtnTransparent	:= .F.
		oDB_tcompraS:aCols[01]:lBmpStretch		:= .T.
		*----------------------------------------------------------------------------	
		oDB_tcompraS:aCols[02]:bstrData     	:= {|| iif(len(aArray_produtos_entrada)>0,(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,02]),nil) }
	   oDB_tcompraS:aCols[02]:nWidth       	:= 060
	   oDB_tcompraS:aCols[02]:cHeader      	:= "Cód."
		oDB_tcompraS:aCols[02]:nDataStrAlign	:= AL_LEFT
		oDB_tcompraS:aCols[02]:nHeadStrAlign	:= AL_CENTER        
		oDB_tcompraS:aCols[02]:cToolTip     	:= {"Código do Produto ou Mercadoria","Ajuda","", } 
		oDB_tcompraS:aCols[02]:bFooter      	:= { || alltrim(STR(T_TOTAL_XBR_NUMERO_ITEM,10,0)) +" Itens" }
		oDB_tcompraS:aCols[02]:bClrStd 			:= {|| {  IF( (aArray_produtos_entrada[oDB_tcompraS:nArrayAt,02]) <= 0 ,CLR_VERMELHO,'')  , IIF((oDB_tcompraS:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd   ) } }
		*----------------------------------------------------------------------------  	
		oDB_tcompraS:aCols[03]:bstrData     	:= {|| iif(len(aArray_produtos_entrada)>0,(aArray_produtos_entrada[oDB_tcompraS:nArrayAt,03]),nil) }
	   oDB_tcompraS:aCols[03]:nWidth       	:= 350
	   oDB_tcompraS:aCols[03]:cHeader      	:= "Descrição"
		oDB_tcompraS:aCols[03]:nDataStrAlign	:= AL_LEFT
		oDB_tcompraS:aCols[03]:nHeadStrAlign	:= AL_CENTER        
		oDB_tcompraS:aCols[03]:cToolTip     	:= {"Nome do Produto ou Mercadoria","Ajuda","", } 
		oDB_tcompraS:aCols[03]:bFooter      	:= { || "Clique Duas Vezes para Associar         Totais =>" }
  		oDB_tcompraS:aCols[03]:AddResource( "#8458" )
		oDB_tcompraS:aCols[03]:nEditType    	:= EDIT_BUTTON
      oDB_tcompraS:aCols[03]:bEditBlock   	:= {|nRow, nCol, oCol|  DESASSOCIAR_ITENS_COMPRA((aArray_produtos_entrada[oDB_tcompraS:nArrayAt,02]), T_CODIGO_FORNECED, (aArray_produtos_entrada[oDB_tcompraS:nArrayAt,03])  )  }
		oDB_tcompraS:aCols[03]:nBtnBmp      	:= 1
 		oDB_tcompraS:aCols[03]:lBtnTransparent	:= .F.
		oDB_tcompraS:aCols[03]:lBmpStretch		:= .T.