Como carrego em uma lista os layouts disponíveis de remessa, retorno, tipos de documentos de cobrança, boletos e ações de cobrança?

---

Para carregar em uma ComboBox os layouts disponíveis dos arquivos de remessa, siga o exemplo abaixo:

cboLayoutRemessa.Clear;
For i := 0 to CobreBemX.LayoutsArquivoRemessa.Count -1 do
cboLayoutRemessa.Items.Add(CobreBemX.LayoutsArquivoRemessa.Item[i]);

CobreBemX.PadroesBoleto.PadroesBoletoImpresso.LayoutBoleto := cboLayoutRemessa.Text;

Para carregar em uma ComboBox os layouts disponíveis dos arquivos de retorno, siga o exemplo abaixo:

cboLayoutRetorno.Clear;
for i := 0 to CobreBemX.LayoutsArquivoRetorno.Count - 1 do
cboLayoutRetorno.Items.Add(CobreBemX.LayoutsArquivoRetorno.Item[i]);

CobreBemX.ArquivoRetorno.Layout := cboLayoutRetorno.Text;

Para carregar em uma ComboBox os tipos de documentos de cobrança disponíveis, siga o exemplo abaixo:

cboTipoDocumentoCobranca.Clear;
For i := 0 to CobreBemX.TiposDocumentosCobranca.Count - 1 do
cboTipoDocumentoCobranca.Items.Add(CobreBemX.TiposDocumentosCobranca.Item[i].Codigo + ' - ' + CobreBemX.TiposDocumentosCobranca.Item[i].Nome);

if Copy(frmdadosboleto.cboTipoDocumentoCobranca.Text, 3, 1) = ' ' then
Boleto.TipoDocumentoCobranca := Copy(frmdadosboleto.cbotipoDocumentoCobranca.Text, 1, 2)
else if Copy(frmdadosboleto.cboTipoDocumentoCobranca.Text, 1, 6) = 'Outros' then
Boleto.TipoDocumentoCobranca := Copy(frmdadosboleto.cboTipoDocumentoCobranca.Text, 1, 6)
else
Boleto.TipoDocumentoCobranca := Copy(frmdadosboleto.cboTipoDocumentoCobranca.Text, 1, 3);

Para carregar em uma ComboBox os layouts disponíveis dos boletos, siga o exemplo abaixo:

cboLayoutBoleto.Clear;
For i := 0 to CobreBemX.LayoutsBoleto.Count - 1 do
cboLayoutBoleto.Items.Add(CobreBemX.LayoutsBoleto.Item[i]);

CobreBemX.PadroesBoleto.PadroesBoletoImpresso.LayoutBoleto = cboLayoutBoleto.Text;

Para carregar em uma ComboBox as ações de cobrança disponíveis, siga o exemplo abaixo:

cboAcaoCobrancaRemessa.Clear;
For i := 0 to CobreBemX.AcoesCobrancaRemessa.Count - 1 do
cboAcaoCobrancaRemessa.Items.Add(CobreBemX.AcoesCobrancaRemessa.Item[i].Codigo + ' - ' + CobreBemX.AcoesCobrancaRemessa.Item[i].Descricao);

Boleto.AcaoCobrancaRemessa := Copy(frmdadosboleto.cboAcaoCobrancaRemessa.Text, 1, 2);