[Como instanciar um Array (para atender às definições em JSon) ?]

minha dúvida para os mestres de plantão: no código abaixo

// como INSTANCIAR esse Array ?
  vEmpresaProcesso.operacao.cedente.duplicatas.
  
  

// definicoes criadas pelo Importador WSDL:

  ArrayOfDuplicataProcesso = class(TRemotable)
  private
    Fduplicata: duplicata;
  public
    constructor Create; override;
    destructor Destroy; override;
    function   GetDuplicataProcessoArray(Index: Integer): DuplicataProcesso;
    function   GetDuplicataProcessoArrayLength: Integer;
    property   DuplicataProcessoArray[Index: Integer]: DuplicataProcesso read GetDuplicataProcessoArray; default;
    property   Len: Integer read GetDuplicataProcessoArrayLength;
  published
    property duplicata: duplicata read Fduplicata write Fduplicata;
  end;

constructor ArrayOfDuplicataProcesso.Create;
begin
  inherited Create;
  FSerializationOptions := [xoInlineArrays];
end;

  CedenteProcesso = class(Empresa)
  private
    Fduplicatas: ArrayOfDuplicataProcesso;
    Fparticipantes: ArrayOfParticipante;
    FsacadorAvalista: SacadorAvalista;
  public
    destructor Destroy; override;
  published
    property duplicatas: ArrayOfDuplicataProcesso read Fduplicatas write Fduplicatas;
    property participantes: ArrayOfParticipante read Fparticipantes write Fparticipantes;
    property sacadorAvalista: SacadorAvalista read FsacadorAvalista write FsacadorAvalista;
  end;

...

// trecho do codigo:
  ObjetoSoap:=HTTPRIO1 as ProcessoAssinaturaSoap;

  vMensagemRetornoProcesso := MensagemRetornoProcesso.create;
  vEmpresaProcesso         := EmpresaProcesso.Create;

  vEmpresaProcesso.cnpj := 'bla';
  vEmpresaProcesso.token := 'b l';
  vEmpresaProcesso.versao := '';
  vEmpresaProcesso.operador := 'bla ';

  vEmpresaProcesso.operacao := OperacaoProcesso.create;
  vEmpresaProcesso.operacao.numero := 1;
  vEmpresaProcesso.operacao.titulo := 'OPERAÇÃO DE CESSÃO DE CRÉDITO';

  vEmpresaProcesso.operacao.cedente := CedenteProcesso.Create;
  vEmpresaProcesso.operacao.cedente.endereco := 'RUA DO CEDENTE';

// como INSTANCIAR esse Array ?
  vEmpresaProcesso.operacao.cedente.duplicatas.  ???
   
  
  
//  trecho da definicao em json:
        "operacao": {
            "numero": 0,
            "titulo": "string",
            "descricao": "string",
            "observacoes": "string",
            "data": "string",
...
            "cedente": {
                "cnpj": "string",
                "razaoSocial": "string",
                "nomeFantasia": "string",
                "email": "string",
                "telefone": "string",
                "endereco": "string",
...
                "duplicatas": [
                    {
                        "idDocumento": 0,
                        "numero": "string",
                        "tipodoc": 0,
                        "dataEmissao": "string",
                        "dataVencimento": "string",
                        "valorBruto": "string",
                        "valorLiquido": "string",
                        "numeroNfe": "string",
                        "serieNfe": "string",
                        "chaveNfe": "string",
                        "sacado": {
                            "cnpjCpf": "string",
                            "nome": "string",
                            "email": "string",
                            "telefone": "string",
                            "endereco": "string",
                            "bairro": "string",
                            "cidade": "string",
                            "uf": "string",
                            "cep": "string",
                            "inscricaoEstadual": "string",
                            "inscricaoMunicipal": "string"
                        },
                        "arquivo": {
                            "nome": "string",
                            "conteudo": "string"
                        }
                    }
                ]
            },
 

[NFSe Campinas - Erro 87]

Bom dia Italo,

Deu certo agora. Deixei os campos de host e proxy em branco e a consulta foi feita corretamente.

Obrigado.

[NFSe Campinas - Erro 87]

Boa tarde Italo,

Testei com o valor  LT_TLSv1_2 para SSLType e obtive o mesmo erro. O webService esta configurado da seguinte forma:

 

[NFSe Campinas - Erro 87]

Não estou conseguindo identificar o problema, utilizo ela para outras aplicações normalmente, acredito que seja algum problema na configuração. Estou utilizando a biblioteca LibWinCrypt, você saberia qual a recomendada para o provedor ISS Digital de Campinas?

 

[NFSe Campinas - Erro 87]

Prezados,

 

Estou tentando realizar uma consulta de NFSe por período utilizando o programa exemplo de NFSe. Fiz toda a configuração referente ao certificado, que é utilizado inclusive em outra aplicação para a mesma função. Porém, sempre apresenta o seguinte erro:

Erro interno: 87

Erro HTTP: 0

URL: https://issdigital.campinas.sp.gov.br/WsNFe2/LoteRps.jws?wsdl

Erro: 87-.

Não estou conseguindo identificar a fonte do erro. Estou utilizando Provedor de Campinas.

 

[ACBrDANFe]

bom dia. o AbcrDanfe.exe que uso é anterior a versao 4. Existe alguma versao atualizada desse .exe ?

[Consulta Serasa]

Em 06/08/2018 at 16:51, Daniel Simoes disse:

Prezado mestre Daniel: funcionou PERFEITAMENTE com a sua orientação: Indy 10.6.2 + OpenSSL 1.0 atualizado  na pasta do .exe. NAO mudei 1 linha de código. Obrigado mesmo!

 

 

[Consulta Serasa]

Bom dia. Sobre esse tema da conexao String de dados Serasa, alguem conseguiu a solucao para funcionar em TLS 1.2 ? uso Indy 10.6.2

O código abaixo se comunica via TLS 1.1 e sha.

Preciso mudar a criptografia de SHA para SHA256 e o protocolo de TLSV1 para TLSV1.2

Tenho as cifras fornecidas pelo Serasa, certificados, etc

Algum tem código atualizado que funcione ?

Desde já agradeço...

var
lParams :TStringList;
...
 lParams := TStringList.Create;
 lResponse := TStringStream.Create('');

 // st com os parametros foi preenchido acima
  lParams.Add('p=' + st);

  Try
    { valores NAO defaults: }
    IdHTTP_Serasa.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
    IdSSLIOHandlerSocketOpenSSL_Serasa.port := 443; // Indy 10
    IdHTTP_Serasa.AllowCookies := false;
    IdHTTP_Serasa.HandleRedirects := TRUE;

    IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.Method := sslvTLSv1_2;
    IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.SSLVersions := [sslvTLSv1_2];
    IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.Mode := sslmUnassigned;

    IdHTTP_Serasa.IoHandler := IdSSLIOHandlerSocketOpenSSL_Serasa;
    IdHTTP_Serasa.ReadTimeOut := 15000; // bug em win8

    AuxP.text := URL + '?p=' + st;

    IdHTTP_Serasa.Post(URL, lParams, lResponse);