Dúvida envio BLOCO X

[Intelliware]

Boa tarde pessoal,

Estamos em Minas Gerais, mas já estamos deixando o nosso sistema compatível com a ER 02.03. Implementamos o envio do BLOCO X normalmente, segundo as instruções no fórum. A dúvida que ficou, foi a seguinte:

Podemos transmitir os dados do estoque e redução Z para o webservice setado no componente para fazer teste em ambiente de desenvolvimento? Esse endereço já é para homologação mesmo?

Não ficou muito claro esta parte durante a leitura das informações postadas pelos outros colaboradores.

Desde já agradeço.

[Juliomar Marchetti]

Aguarde senão for homologar logo pois está para sair nesses dias o novo E.R.!

e com certeza vem com mudanças!

[Intelliware]

Entendi Juliomar. No caso a nossa versão está prevista para daqui 12 dias e vamos ter que, pelo menos, por enquanto, manter na 02.03. O bloco X que ficou pendente a parte de transmissão, que embora a gente gere os arquivos, ainda não efetuamos nenhum teste após a implementação. Agradeço a resposta.

[Juliomar Marchetti]

Conforme diversos colegas relataram eles pediram pra somente pegar o xml e validar junto ao sefaz de SC !

não cobraram o envio por falta dos webservices!

[Intelliware]

Show. Agradeço o esclarecimento Juliomar.

[Juliomar Marchetti]

Mas veja na pasta projetos que  sr. André subiu um projeto usando o componente para envio!

[Intelliware]

Boa tarde Juliomar,

    Já criamos a interface para validar as pendências e transmissão, gravação em banco de dados, tratamento de exceção e etc... utilizando o source, que se não me engano, foi sua contribuição. Segue:

1) ecf.ACBrBlocoX.WebServices.ValidarBlocoX

2)
with ACBrBlocoX.WebServices.EnviarBlocoX do
begin
	XML := XMLaTransmitir;
    Executar;
    ReciboFiscoReducaoZ := RetWS;
end;

3)
with ACBrBlocoX.WebServices.EnviarBlocoX do
begin
	XML := XMLaTransmitir;
    Executar;
    ReciboFiscoEstoque := RetWS;
end;

4)
with ACBrBlocoX.WebServices do
begin
	ConsultarBlocoX.Recibo := Recibo;
    ConsultarBlocoX.Executar;
    Result := ConsultarBlocoX.RetWS;
end;

     Teoricamente temos tudo pronto no projeto, mas não efetuamos nenhum teste ainda em ambiente de desenvolvimento pois não sabemos se pode ser efetuado a transmissão utilizando o webservice do componente.  

[Juliomar Marchetti]

Sim pode!

conforme falei na pasta de projetos do svn existe um código feito pelo André e que pode ser usado para entender e aplicar para testar!

[Intelliware]

Exato, é o projeto feito em Lazarus ACBrBlocoXSign, que utilizamos como base. Agradeço.

[Mario Inacio]

Boa tarde.

Como posso setar a propriedade "WebServices.Ambiente" em runtime?

Não abre as opções disponíveis no componente (taHomologacao ou taProducao).

Está faltando declarar algo no Uses ?

[giulianon]

Sim.

 

Uses pcnConversao;

ACBrBlocoX.Configuracoes.WebServices.Ambiente := taHomologacao; 

[Mario Inacio]

Certo. 

Era isso que faltava mesmo.

Sabem como gerar uma Reducao sem movimento?

 

[giulianon]

Em 29/03/2018 at 12:46, Mario Inacio disse:

Certo. 

Era isso que faltava mesmo.

Sabem como gerar uma Reducao sem movimento?

 

Sem movimento seria uma redução de um dia não trabalhado.

Acredito que você esteja querendo testar o envio da redução várias vezes, então sugiro que utilize um simulador de ecf ou que faça todo processo de coleta das informações do z mas não emita (envie o comando de impressão) o z.

Att.

[Mario Inacio]

Já consegui resolver Giuliano.

Me refiro a sem movimento, um ecf que possui apenas outras impressões, que não cupom fiscal.

Consegui implementar e validar:

                                    with TotalizadoresParciais.Add do begin
                                       Identificacao := 'T0000';
                                       Valor         := 0 ;
                                    end;