FiveTech Software tech support forums

Code: Select all

FUNCTION Main()

   LOCAL ARRITEM := { "ICMS 00 - Tributada Integralmente", ;
                      "ICMS 10 - Tributada com cobrança do ICMS por substituicao tributaria", ;
                      "ICMS 20 - Com reducao da base de calculo", ;
                      "ICMS 30 - Isenta ou nao tributada e com cobranca do ICMS por substituicao tributaria", ;
                      "ICMS 40 - Isenta", ;
                      "ICMS 41 - Não tributada", ;
                      "ICMS 50 - Suspensao", ;
                      "ICMS 51 - Diferimento", ;
                      "ICMS 60 - Cobrado anteriormente por substituicao tributaria", ;
                      "ICMS 70 - Com reducao da base de calculo e cobranca do ICMS por substituicao tributaria", ;
                      "ICMS 00 - Outras" }

   LOCAL ARRITEM3 := { "Margem Valor Agregado", ;
                       "Pauta (valor)", ;
                       "Preço Tabelado Max. (valor)", ;
                       "Valor da Operacao" }

   REDEFINE COMBOBOX MOSTRA01 VAR VARPROTB[1] ID 19 ITEMS ARRITEM OF oDlg ;
      WHEN ( OPCAO = "I" .OR. OPCAO = "A" )

   REDEFINE COMBOBOX MOSTRA03 VAR VARPROTB[3] ID 27 ITEMS ARRITEM3 OF oDlg ;
      WHEN ( ( OPCAO = "I" .OR. OPCAO = "A" ) .AND. ;
      ( VARPROTB[1] = ARRITEM[1] .OR. VARPROTB[1] = ARRITEM[2]  .OR. ;
        VARPROTB[1] = ARRITEM[3] .OR. VARPROTB[1] = ARRITEM[10] .OR. ;
        VARPROTB[1] = ARRITEM[11] ) )


   REDEFINE COMBOBOX oCombo1 VAR _Combo1 ITEMS cItemC1 ID 100 OF oDlg ;
      COLOR AZUL , FundoGet UPDATE

   oCombo1:bChange := {|| Valida_Combo1() }

   oTipoVenda:bKeyDown := {|nKey| iif( nKey = VK_RETURN, Valida_Combo1(), ) }

   REDEFINE COMBOBOX oCombo2 VAR _Combo2 ITEMS cItemC2 ID 100 OF oDlg ;
      COLOR AZUL , FundoGet UPDATE


RETURN NIL

STATIC FUNCTION Valida_Combo1()

   IF( codição )

      cItemC2 := { "jjj", "kkk" }

      OItemC2:Enable()

   ELSE

      cItemC2 := { '' }
      cItemC2 := Disable()

   ENDIF

   oCombo2:SetItems( cItemC2 )
   _Combo2 := cItemC2[1]

   oCombo2:Refresh()

RETURN( .T. )


STATIC FUNCTION Valida_Combo1()

   IF( codição )

      cStaC2 := { "xxx", "zzz" }

      OstaC2:Enable()

   ENDIF

   Ostarec:SetItems( cStaRec )
   _starec := cStaRec[1]

   oStaRec:Refresh()


RETURN( .T. )
 

Code: Select all

oCbxColores:bLostFocus := {||  Fnct_ChangeColores ()}