Classe Boleto.Config.Cedente x .Ini

[Mario -]

       Dim Boleto As New ACBrLib.Boleto.ACBrBoleto

        With Boleto.Config.Cedente
            .AgenciaDigito = 1
            .ContaDigito = 1
        End With

ao pedir as propriedades ele mostra .AgenciaDigito e .ContaDigito

 

Só que no cedente.ini esta ao contrario

[Conta]

Conta=99999

DigitoConta=9

Agencia=9999

DigitoAgencia=9
 

Se eu ler as propriedade em um for each properties para montar a string de cedente, ao imprimir o boleto a Classe diz que falta DigitoConta...

Existe algum 'alias' para estas propriedades que não batem com o cedente.ini ou isso deve ser tratado no código 'dedo puro'?

Grato.

 

[Mario -]

Resolvido...favor fechar...

 

           Dim ListBoleto As New List(Of String) From {"[Cedente]", "LayOutBol=" & drBancoConta("Cedente.LayOutBol").ToString}
            
            Dim StrConta As String = DrObjectString(drBancoConta, Boleto.Config.Cedente, "Conta.")
            

            'Abaixo fiz a troca das propriedades em não conformidade de nomes entre Classe e Cedente.ini, o que poderia ser evitado.
            ListBoleto.Add(StrConta.Replace("AgenciaDigito", "DigitoAgencia").Replace("ContaDigito", "DigitoConta"))

 

'Aqui um trecho da function que trata Classe Cedende e o datarow(que todas as colunas tem a Property.name

       Private Shared Function DrObjectString(dr As DataRow, sender As Object, Optional ByVal Prefixo As String = "", Optional ByVal UseCol As Boolean = False) As String
            'Ler properties da Classes - Obtem valor Datarow - Converte Tipo - Atribui a StringBuild
            'DataRow.Columns.name = Property.name
            Dim T As Type = sender.GetType()
            Dim Props As PropertyInfo() = T.GetProperties()
            Dim value As Object, Col As String
            Dim StrRet As New System.Text.StringBuilder("", 60)

            For Each P As PropertyInfo In Props
                ...Trata P x datarow and datacolumn
            Next

            StrRet.Append(IIf(UseCol, Col, P.Name) & "=" & value.ToString)

 

PS-: Se deixarem compatíveis Classe.Property.Name x File.ini seria uma baita ajuda para criação de function de produtividade.

Grato.
 

          

 

 

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.