Histórico da Página

 #include "protheus.ch"

User function EICDI500()

   Local cParam := if(Type("ParamIxb") = "A", ParamIxb[1], if(Type("ParamIxb") = "C", ParamIxb, ""))

   Do Case

      Case cParam == "STRU_WORKS"

         aadd(aSemSX3SW7,{"W7_DTPRVE","D",8,0})

      Case cParam == "BROWSE_SELECIONA"

         aadd(aCamposItem,{"W7_DTPRVE",,"DT Prev Entrega",""})
         aadd(aCamposItem,{"W7_DTENTRG",,"DT Entrega",""})

         //AAdd(aBotaoItem, {"" ,{|| MsgInfo("Teste")}, "Botão de teste"})
         //AAdd(aCamposItem, {"WKCAMPO" , , "Titulo" , "substituir por picture"})

      Case cParam == "GRV_WORK_ITEM"

         WORK->W7_DTENTRG  := SW3->W3_DT_ENTR
         WORK->W7_DTPRVE   := SW3->W3_DT_ENTR - 5
         
      Case  ParamIXB == "ANT_VALID_SW6"

         If cNomeCampo =   'TFOBUNIT'

            MsgInfo("Entrou no ponto de entrada para validação dos campos no item do embarque.")

         EndIf

      Case PARAMIXB == "MANUT_SW9"

         lSair := .T.

      Case PARAMIXB == "ANTES_TELA"

         MsgInfo("Entrou no ponto de entrada para manipulação de campos customizados.")

      Case cParam == "TELA_DESP" 

         //Inclui uma opção no botão Outras Ações
        If If AScan(aBotoesDesp, {|x| x[1] == "TESTE1"}) == 0

            AAdd(aBotoesDesp, {"TESTE1", {|| MsgInfo("Teste")}, "Teste aBotoesDesp", "Teste aBotoesDesp"}) 

         EndIf

         //Exclui a Caseopção cParamIncluir == "BROWSE_WORK_SW9"

  do botão Outras Ações       AAdd(aBotoes, {"TESTE aBotoes", {|| MsgInfo("Teste aBotoes")}, "Teste aBotoes", "Teste aBotoes"})

         AAdd(aTB_CposSW9, {"TESTE aTB_CposSW9", {|| MsgInfo("Teste aBotoes")}, "Teste aTB_CposSW9", "Teste aTB_CposSW9"})

 
         nPos := AScan(aBotoesDesp, {|x| x[3] == "Incluir"}) 
         Caseif cParamnPos == "RATEIO_ACRESCIMOS"

> 0
          cCodRatPeso := "10/13"

 ADEL(aBotoesDesp,nPos)
         Case cParam == "DESVIA_REL"

 ASIZE(aBotoesDesp,LEN(aBotoesDesp)-1)
         EndIf     lDesvio := .T.

      
      Case cParam == "ANTES_INFOTELA_COMPLDESP"

         nLin2lAltDesp := .f. 20

        Case Case cParam == "IMPBROWSE_WORK_COMPLESW9"

         cMemo := "Teste"

      Case cParam == "FINAL_IMPR_ADI"

         nLin2 := 20AAdd(aBotoes, {"TESTE aBotoes", {|| MsgInfo("Teste aBotoes")}, "Teste aBotoes", "Teste aBotoes"})

         AAdd(aTB_CposSW9, {"TESTE aTB_CposSW9", {|| MsgInfo("Teste aBotoes")}, "Teste aTB_CposSW9", "Teste aTB_CposSW9"})

      Case cParam == "MANUTRATEIO_W9_INCACRESCIMOS"

         MsgInfo("Ponto de entrada com o parâmetro MANUT_W9_INC")cCodRatPeso := "10/13"

      Case cParam == "DESVIA_REL"

         //M->W9_FRETEINlDesvio := 145.T.00

      Case cParam == "ANTES_INICIAINFO_SW6_SW9COMPL"

         //MsgInfo("Ponto de entrada com o parâmetro ANTES_INICIA_SW6_SW9")nLin2 := 20

      Case cParam  cCpoNaoInicia +== "IMP_COMPLE"

         cMemo := "Teste"

      Case cParam == "W2_AAAA; W2_BBBB"FINAL_IMPR_ADI"

         nLin2 := 20

      Case cParam == "INICIAMANUT_SW6W9_SW9INC"

         MsgInfo("Ponto de entrada com o parâmetro INICIAMANUT_SW6W9_SW9INC")

         //M->W9_ABCDFRETEIN:= SW2→W2_ABCD145.00

      Case cParam == "AROTINAANTES_INICIA_SW6_SW9"

         Aadd(aRotina, {"Nova Rotina", "DI500Rotina", 0, 2})
		
		 // Exemplo do FILTRA_BROWSE
//MsgInfo("Ponto de entrada com o parâmetro ANTES_INICIA_SW6_SW9")

         cCpoNaoInicia += "W2_AAAA; W2_BBBB"

 If (nPos := AScan(aRotina,{|x| x[1] == "Legendas"})) > 0
 Case cParam == "INICIA_SW6_SW9"

         MsgInfo("Ponto de entrada com o  aDel(aRotina, nPosparâmetro INICIA_SW6_SW9")

         //M->W9_ABCD:= SW2→W2_ABCD

   aSize(aRotina, Len(aRotina) - 1)
Case cParam == "AROTINA"

          aAddAadd(aRotina, {"LegendasNova Rotina", "u_LegendaDI500Rotina", 0, 2})
		
		 // EssaExemplo User Function está disponível no final deste exemplo.
do FILTRA_BROWSE
         If (nPos := AScan(aRotina,{|x| x[1]  EndIf    
    
== "Legendas"})) > 0
        Case cParam == "ALTERA_WHEN"

  aDel(aRotina, nPos)
      lWhenDesp := .F.    //Desabilita o campo Despesa

 aSize(aRotina, Len(aRotina) - 1)
         lWhenAdian := .F.   //Adianta/o

         lWhenPgPor := .F.  //Pago Por
aAdd(aRotina, {"Legendas", "u_Legenda", 0, 2}) // Essa User Function está disponível no final deste exemplo.
         lWhenGrFinEndIf :=  .F. 
 //Gera Financ.

   
      Case PARAMIXBcParam == "GERATXTALTERA_MERCODI_ALTWHEN"

         If !lMERCODI

 lWhenDesp := .F.    //Desabilita o campo Despesa

    Aadd(aLoadTxt,{ 86 ," ", "C" ,lWhenAdian 1 , 0 ,1141 ,1141}):= .F.   //Adianta/o

         Elseif Ascan(aLoadTxt, {|x|x[1] == 86}) # 0lWhenPgPor := .F.  //Pago Por

         lWhenGrFin := .F.  //Gera Financ.

      Case PARAMIXB == "GERATXT_MERCODI_ALT"

         If !lMERCODI

            Aadd(aLoadTxt,{ 86 ," ", "C" , 1 , 0 ,1141 ,1141})

         EndIf

      Case Elseif Ascan(aLoadTxt, {|x|x[1] == 86}) # 0

            Aadd(aLoadTxt,{ 86 ," ", "C" , 1 , 0 ,1141 ,1141})

         EndIf

      Case ParamIXB == "DI500LOTEVAL_VALLOTE" .AND. cValCampo == "LOTE"
         MsgInfo("DI500LOTEVAL_VALLOTE")
		
 	  Case ParamIXB == "DESPESA"
         
         IF !lSair
             msginfo("Abrindo a tela de despesas")
         ELSE
             msginfo("Não é possível abrir a tela de despesas")
		 Endif
  
	   Case cParam == "ANTES_TELA_DESP_MANUT"
          lSair:=.T.
          aAdd(aEncAltera, "WD_PRDSIS")
		  msginfo("Entrou no Ponto de Entrada WD_PRDSIS")
      
       Case cParam == "DESP_ALTERA1"
        
         If lSair
             msginfo("Permitida a alteração na tela de despesas")
         ELSE
             msginfo("Não é possível abrir a tela de alteração de despesa")
		 Endif
                
       Case cParam == "DESP_EXCLUI1"
            
	     If lSair
             msginfo("Permitida a exclusão na tela de despesas")
         ELSE
             msginfo("Não é possível abrir a tela de exclusão de despesa")
         Endif

      Case ParamIXB == "INCLUI_DESP"

         MsgInfo("Ponto de entrada antes de salvar a inclusão da despesa")

      Case ParamIXB == "ALTERA_DESP"

         MsgInfo("Ponto de entrada antes de salvar a alteração da despesa")

      Case ParamIXB == "DELETA_DESP "

         MsgInfo("Ponto de entrada antes de excluir a despesa")
	
	  Case cParam == "ADD_TB_CAMPOS" //Adiciona campos a serem exibidos nos itens nas opções de Menu "Visualização" e "Estorno"
                       /*{Nome_Campo ,,Tamanho              , Decimais             }*/
    	 AADD(aTB_Campos,{"NOVOCAMPO",,AVSX3("W3_QTSEGUM",5),AVSX3("W3_QTSEGUM" ,6)}) 

	  Case cParam == "ALTERA_AEMBARQUE" //Adiciona campos a serem exibidos na manutenção do Embarque/Desembaraço
	     If aScan(aEmbarques,{|x| x == "W6_ARMADOR"}) == 0
	        AADD(aEmbarques,"W6_ARMADOR")
    	 EndIf
      Case cParam == "FILTRA_BROWSE"
		 // aCores legado - {Filtro, Cor}
	     // AAdd(aCores, {"!Empty(SW6->W6_DT_ENCE)", "BR_VERDE"})
         // Caso utilize o legado, o menu de legendas ficará sem descrição das legendas quando utilizado, então recomenda-se ou atualizar para o novo padrão, ou alterar o aRotina para adicionar 
         // um menu de legendas customizado. Um exemplo estará disponível no case AROTINA.
		
	     // aCores novo padrão - {Filtro, Cor, Nome da legenda}
         AAdd(aCores, {"!Empty(SW6->W6_DT_ENCE)", "BR_VERDE", "Título 1"})
         AAdd(aCores, {"!Empty(SW6->W6_CHEG) .and. Empty(SW6->W6_DTREG_D)", "BR_VERMELHO", "Título 2"})

	     // aFilters - Filtros para substituirem os padrões - {Nome do filtro, Filtro}
         aAdd(aFilters, {"Nome do Filtro", "!Empty(SW6->W6_DT_ETD)"})
         aAdd(aFilters, {"Nome do Filtro 2", "!Empty(SW6->W6_CHEG) .and. Empty(SW6->W6_DTREG_D)"})

		 // aVisions - Visões do Browse
         oDSView := FWDSView():New()
         oDSView:SetName("Nome da visão")
         oDSView:SetPublic(.T.)
         oDSView:SetCollumns(AvGetCpBrw("SW6"))
         oDSView:SetOrder(1)
         oDSView:AddFilter("Nome do filtro", "!Empty(SW6->W6_CHEG) .and. Empty(SW6->W6_DTREG_D)")
         oDSView:SetID("1")
         oDsView:SetLegend(.T.)
         aAdd(aVisions, oDSView)

	Case cParam == "VISUAL_CAMPOS"
 		//Ponto de entrada executado ao clicar em "Visualizar"
	 	AADD(aSemSX3,{"NOVO_CAMPO","C",15,0})
        MsgInfo("Entrou no Ponto de entrada VISUAL_CAMPOS")

 	Case cParam == "INICIO_OPCAO"
		//Ponto de entrada executado ao clicar em "Visualizar", "Alterar" e "Incluir"
        msginfo("Entrou no PE INICIO_OPCAO")  

     Case cParam == "ESTORNO"
        MsgInfo('Estorno não permitido')
        lSair :=.t.

	 Case cParam == "COLUNAS_BOTOES_LOTES"
        AADD(aBotaoLote,{"NOVO_BOTAO",{|| Msginfo("ENTROU NO PONTO DE ENTRADA COLUNAS_BOTOES_LOTES "),oMarkItens:oBrowse:Refresh() }, "","teste"}) 
	
	Case cParam == "RET_VALID_CAMB"
     
EndCase         

Return


User Function Legenda()
Local aLegenda := {} lRetValCamb:=.T.
	Case cParam == "ALTERA_PESO"
   aadd(aLegenda, {"BR_BRANCO", "Titulo 1"})
   aadd(aLegenda, {"BR_VERMELHO", "Titulo 2"})
 lAlteraNcm:=.F.
     BrwLegenda("Customizado", "Legenda", aLegenda)
Return 

      nPesLiqTot:=1234
	Case cParam == "ANTES_DELETA_INV"
            MSGINFO("Validando exclusão da Invoice...")
            lDelInvoice:=.F.//NÃO PERMITE DELETAR A INVOICE

	Case cParam == "DI500LOTES_ALT_CPOSENC"
            Aadd(aCposGet,"WV_FILIAL")
            AaDD(aCposGet,"WV_LOTE")"

	Case cParam == "DESPESA_OK"
            M->WD_VALOR_R:=1000
	
	Case cParam == "DI500SW8TWVGRV_GRV_WORKTWV"
            WORK_TWV->WV_QTDE := WORK_SW8->WKQTDE
	
	Case cParam == "DI500GRVLOTE_ATU_WORKSWV"
            WORK_SWV->WV_OBS := "ESCREVER AQUI A OBSERVAÇÃO ou INFORMAÇÃO DO CAMPO"

	Case cParam == "GRAVA_FINAL"
                  SW6->(RecLock("SW6",.F.))
                  SW6->W6_PESOL := 2217
                  SW6->(MSUNLOCK())

    Case cParam == "FINAL_OPCAO"
            if nOPC_mBrw == 3
                MbrChgLoop( .F. )
            endif
    Case cParam == "ANT_GRAVA_TUDO"
           lSair := .t.   
    Case cParam == "BROWSE_SELECIONA"
           AADD(aBotaoItem,{"Teste"      ,{|| nOpcaoItem:=0,If( SuaFuncao(),oDlgItens:End(),)},'Teste'})
    Case cParam == "ANTES_CONF_CAPA"
          lSair := .t.
EndIf   
 EndCase         

Return


User Function Legenda()
Local aLegenda := {}
   aadd(aLegenda, {"BR_BRANCO", "Titulo 1"})
   aadd(aLegenda, {"BR_VERMELHO", "Titulo 2"})
   BrwLegenda("Customizado", "Legenda", aLegenda)
Return