-1

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
1
  • A menos que queira tirar partido de alguma funcionalidade especifica que só exista em C#, o mais facil é migrar de VBa para VB.net. Depois é mais simples passar para C# porque existem varios conversores online. Commented 13/07/2018 às 14:10

1 Resposta 1

1

O código será algo deste género:

public override void TeclaPressionada(int KeyCode, int Shift, ExtensibilityEventArgs e)
{
    base.TeclaPressionada(KeyCode, Shift, e);

    int i = this.DocumentoVenda.Linhas.NumItens;
    StdBE100.StdBECampos CaractsArtigoPT = null;
    VndBE100.VndBELinhaDocumentoVenda objLinha = null;

    try
    {
        if (KeyCode == (int)Keys.Y && Shift == 2)
        {
            CaractsArtigoPT = BSO.Base.ArtigosIdiomas.DaValorAtributos(this.DocumentoVenda.Linhas.GetEdita(i).Artigo, "PT", "Caracteristicas");

            if (CaractsArtigoPT?.NumItens > 0)
            {
                this.DocumentoVenda.Linhas.Insere
                (
                    objLinha = new VndBE100.VndBELinhaDocumentoVenda()
                    {
                        TipoLinha = "60",
                        Descricao = PSO.Utils.FStr(CaractsArtigoPT["Caracteristicas"].Valor)
                    }
                );
            }

            CaractsArtigoPT = null;
        }
    }
    catch (System.Exception ex)
    {
        PSO.Dialogos.MostraErro(ex.Message, StdPlatBS100.StdBSTipos.IconId.PRI_Exclama);
    }
}

Precisa ainda de adicionar as referências IBasBS100.dll e System.Windows.Forms.dll.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .