Skip to main content
Pergunta fechada como "Não é adequada para este site" por Largato
tags editadas
Link
Largato
  • 92,9mil
  • 18
  • 190
  • 261
Fonte Link

Migração VBA para C# - V10 (TeclaPressionada)

Em VBA no evento TeclaPressionada seria desta forma. Agradecia a v/ ajuda para converte para C#.

Private Sub EditorVendas_TeclaPressionada(KeyCode As Integer, Shift As Integer)
Dim i As Long
Dim CaractsArtigoPT As StdBECampos
Dim objLinha As GcpBELinhaDocumentoVenda

i = Me.DocumentoVenda.Linhas.NumItens

If KeyCode = KeyCodeConstants.vbKeyY And Shift = 2 Then

Set CaractsArtigoPT = BSO.Comercial.ArtigosIdiomas.DaValorAtributos(Me.DocumentoVenda.Linhas(i).Artigo, "PT", "Caracteristicas")

    If Not CaractsArtigoPT Is Nothing Then

        If CaractsArtigoPT.NumItens > 0 Then

            Set objLinha = New GcpBELinhaDocumentoVenda
                objLinha.TipoLinha = 60
                    objLinha.Descricao = "" & CaractsArtigoPT("Caracteristicas")
                        Me.DocumentoVenda.Linhas.Insere objLinha
              
        End If

    End If
    
Set CaractsArtigoPT = Nothing

End If

End Sub