[Links dos Manuais quebrado]

Boa tarde

nao estou conseguindo acessar osl inks do manual online

https://acbr.sourceforge.io/ACBrMonitor/ComousaroACBrMonitor.html
https://acbr.sourceforge.io/ACBrLib/ACBrLib.html

foi mudado de lugar ?

Joao Carlos
VinheSOFT

[ACBrPixCD32.dll]

Ok !

ficaremos no aguardo...

Obrigado!!

[ACBrPixCD32.dll]

ACBrPixCd32.dll ja está disponível para download ?

Att

João Carlos
VinheSOFT

[ACBrBoleto]

//   ACBrLibBoleto - Versao: 0.2.0.80

03/12/21 09:36:50:858 - Boleto_TamNossoNumero
03/12/21 09:36:50:858 - Travar
03/12/21 09:36:50:858 -    SetRetorno(0, 10) 
03/12/21 09:36:50:858 - Destravar

// ACBrLibBoleto - Versao: 0.2.0.128

03/12/21 09:38:58:817 - Boleto_TamNossoNumero
03/12/21 09:38:58:817 - Travar
03/12/21 09:38:58:817 -    SetRetorno(10, )
03/12/21 09:38:58:817 - Destravar

veja o SetRetorno  da nova DLL veio SetRetorno(10,) e antes vinha SetRetorno(0,10)

Att

Joao Carlos
VinheSOFT

 

 

[ACBrBoleto]

metodo: TamNossoNumero

esta retornando branco

verifiquei os fontes e o retorno voltou 1 parametros em SetRetorno

    try
      Result := SetRetorno(BoletoDM.ACBrBoleto1.Banco.CalcularTamMaximoNossoNumero(Carteira, NossoNumero, Convenio));
    finally
      BoletoDM.Destravar;
    end;

 

deveria vir assim, com ErrOK

   try
      Result := SetRetorno(ErrOk,BoletoDM.ACBrBoleto1.Banco.CalcularTamMaximoNossoNumero(Carteira, NossoNumero, Convenio));
    finally
      BoletoDM.Destravar;
    end;

 

segue anexo, correcao...

Att

Joao Carlos
VinheSOFT

ACBrLibBoletoBase.pas

[Boleto]

Boa Tarde

Antonio Carlos/BigWings

Obrigado pelas respostas!!

att

Joao Carlos
Vinhesoft

[Boleto]

Boa Tarde

Antonio Carlos

estou usando, ACBrBoleto32.dll

entao tenho que ir adicionando na lista a quantidade de boletos que quero imprimir.

se quero 3 copias por exemplo, entao adiciono 3 vezes na lista ! correto ?

Att

 

Joao Carlos
Vinhesoft

[Boleto]

Boa Tarde,

Metodos: 

Boleto_Imprimir([eNomeImpressora])
Boleto_ImprimirBoleto(eIndice, [eNomeImpressora])

não tem parâmetro quantidade de impressões !

eh isso mesmo ? 

att

Joao Carlos
Vinhesoft

[Faltou Tag "descANP"]

Boa Tarde

faltou tag "descANP", segue arquivo:

linha: 2359

INIRec.WriteString( sSecao,'descANP',descANP ) ;  

Att

Joao Carlos
VinheSoft

DoACBrNFeUnit.pas

[Componente nao respeita conteudo "DataMoraJuros" acrescenta +1 dia]

José

obrigado pela resposta !! 

vou rever minha rotina aqui...

Att

Joao Carlos
Vinhesoft

 

[Componente nao respeita conteudo "DataMoraJuros" acrescenta +1 dia]

boa tarde

José

em uma situacao, assim:

data de vencimento: 19/12/2017
data de mora: 19/12/2017

hoje o componente, calcula a  data de mora: 20/12/2017

como eu faço para calcular a data de mora ser a mesma do vencimento ???

pois com a data de mora com 1 dia a mais, o cliente sempre pagara um dia depois, pois os juros, correcao partir da data de mora!!

att

Joao Carlos
Vinhesoft

 

[Componente nao respeita conteudo "DataMoraJuros" acrescenta +1 dia]

Bom Dia

componente não respeita o conteúdo do campo "DataMoraJuros", somando +1 dia na data deste campo, segue correção:

antes:

AStringList.Add(ACBrStr('Cobrar juros de '                        +
                            ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%',
                                   FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia de atraso para pagamento a partir de ' +
                             FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
                                                                IncDay(DataMoraJuros,1),DataMoraJuros))))

correção:

AStringList.Add(ACBrStr('Cobrar juros de '                        +
                            ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%',
                                   FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia de atraso para pagamento a partir de ' +
                             FormatDateTime('dd/mm/yyyy',DataMoraJuros)))

segue arquivo alterado

Att

Joao Carlos
VinheSoft

ACBrBoleto.pas

[DoBoletoUnit: campo DataMulta faltou]

Bom Dia

Faltou o campo "DataMulta" no modulo: DoBoletoUnit.pas

segue arquivo com correção: linha 357
...
DataMulta           := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMulta','')),0);
...

Att

Joao Carlos
VinheSoft

 

DoBoletoUnit.pas

[Alteração objeto EMail no ACBrMonitorPlus]

Boa Noite

segue alteração de metodos do objeto Email, na unit DoEmailUnit.pas

Linha: 169
else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail}
       Body.Text := Cmd.Params(0)

alteração:
else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail}
       Body.Add( Cmd.Params(0) )

 

Linha: 172
else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail}
       AltBody.Text := Cmd.Params(0)

alteração:
else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail}
       AltBody.Add( Cmd.Params(0) )

Com esta alteração podemos enviar vários comandos, e o monitor vai montando o corpo do email.
Do jeito que esta, ele so considera o ultimo envio com corpo do email, também tentei enviar o corpo de uma vez
incluindo o comando de Final de linha, porem o monitor sempre separa o comando e não executando corretamente.

Att

VinheSoft
Joao Carlos 

 

DoEmailUnit.pas

[ERRO: Certificado Digital não encontrado!]

era isso mesmo... 

 

obrigado.

 

Joao Carlos
VinheSoft

[ERRO: Certificado Digital não encontrado!]

Boa Tarde
ao executar:

NFE.CertificadoDataVencimento()
NFE.CnpjCertificado()

da o erro:Certificado Digital não encontrado!

segue sequencia dos comandos enviados ao ACbrMonitorPlus:

NFE.Ativo("")
OK: Ativo
NFE.SetVersaoDF(3.10)
OK: 
NFE.SetModeloDF(55)
OK: 
NFE.SetCertificado(19965524BFD37E1D111376A7DA2DB222                  )
OK: 
NFE.SetAmbiente(2)
OK: 
NFE.SetFormaEmissao(1)
OK: 
NFE.CertificadoDataVencimento("")
ERRO: Certificado Digital não encontrado!
NFE.CnpjCertificado()
ERRO: Certificado Digital não encontrado!

 

Att

Joao Carlos
VinheSoft

 

[BemaSAT32.DLL vs AcbrMonitor Plus]

Bom Dia

Deu certo..

Obrigado

p/s: EU havia criado uma pasta em: c:\AcbrMonitorPlus\SAT\Bematech

coloquei a dll dentro e acertei o caminho no monitor... imaginei que seria o mesma coisa com as demais DLLs

 

Att

Joao Carlos

VinheSoft

[BemaSAT32.DLL vs AcbrMonitor Plus]

Bom Dia

Ao Tentar consultar Status via Monitor acontece o erro:

List index (2) out of bounds

Ao Tenta consultar Status via SATTeste acontece o erro:

ACBrSAT.Inicializado
-- 10:32:26:115 - numeroSessao: 905603 - Comando: ConsultarSAT
NumeroSessao: 905603 - Resposta:Erro|Erro na abertura da porta de comunicacao com o S@T

O componente ACBrSAT/Monitor sao compativeis com a DLL da Bematech: BemaSAT32.DLL ?

Att

Joao Carlos
VinheSoft

 

 

[Erro não catalogado SEFAZ SP , Derrepende]

No site a sefaz/SP consta isso:

 

Prezado contribuinte, Informamos que no momento o sistema da NFE está indisponível devido à problemas técnicos, informamos que a previsão de normalização do ambiente é às 13 horas e 00 minutos.O contribuinte pode utilizar qualquer alternativa de contingência prevista na legislação, inclusive o SCAN que já está ativo junto

ao Ambiente Nacional da Receita Federal.

[ACBrNFeMonitor-Cancelamento por evento/Impressão de Eventos]

uma sugestao:

 

Seria interessante ao comando NFE.ImprimirEvento, internamente ja acatar o Rave CB visto que so funciona hoje em Rave CB e quando for implementado em Rave

imprimir de acordo com a selecao do monitor

 

Joao Carlos

[ACBrNFeMonitor Alteração DPEC]

Boa noite,

Pois, do jeito que esta o ACBrNFeMonitor, tbm nao consegui.

Ai eu alterei. Mandei estas alteracoes tbm para o MANTIS.

Agora é so esperar o responsavel em liberar novas versoes do Monitor.

Att,

João Carlos dos Santos Paula

VinheSoft

[ACBrNFeMonitor Alteração DPEC]

Bom Dia,

ACBrNFeMonitor versao 0.6.2a

Fiz 2 alteracoes: (DoAcbrNfeUnit.PAS)

metodo:

NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias])

alterei para:

NFe.ImprimirDANFE(cArqXML,[NomeImpressora],[nCopias],[cProtocoloNFe])

segue abaixo:

...

else if Cmd.Metodo = 'imprimirdanfe' then

begin

if ACBrNFeDANFERave1.MostrarPreview then

begin

Restaurar1.Click;

Application.BringToFront;

end;

ACBrNFe1.NotasFiscais.Clear;

if FileExists(Cmd.Params(0)) or FileExists(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0)) then

begin

if FileExists(Cmd.Params(0)) then

ACBrNFe1.NotasFiscais.LoadFromFile(Cmd.Params(0))

else

ACBrNFe1.NotasFiscais.LoadFromFile(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+Cmd.Params(0));

end

else

raise Exception.Create('Arquivo '+Cmd.Params(0)+' não encontrado.');

if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then

ACBrNFe1.DANFE.Impressora := Cmd.Params(1)

else

ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

if NotaUtil.NaoEstaVazio(Cmd.Params(2)) then

ACBrNFe1.DANFE.NumCopias := StrToIntDef(Cmd.Params(2),1)

else

ACBrNFe1.DANFE.NumCopias := StrToIntDef(edtNumCopia.Text,1);

// VinheSoft

if NotaUtil.NaoEstaVazio(Cmd.Params(3)) then

ACBrNFe1.DANFE.ProtocoloNFe := Cmd.Params(3)

else

ACBrNFe1.DANFE.ProtocoloNFe := '';

ACBrNFe1.NotasFiscais.Imprimir;

Cmd.Resposta := 'Danfe Impresso com sucesso';

if ACBrNFeDANFERave1.MostrarPreview then

Ocultar1.Click;

end

...

Inluido: metodo SetUFf(cUF) -> Altera UF do WebService

segue abaixo:

...

// VinheSoft

else if Cmd.Metodo = 'setuf' then

begin

if (Cmd.Params(0)<>'') then

begin

cbUF.Text := Cmd.Params(0);

ACBrNFe1.Configuracoes.WebServices.UF := Cmd.Params(0);

end

else

raise Exception.Create('UF: '+Cmd.Params(0)+' Inválida.');

end

...

Com estas alteracões consegui reimprimir um DANFE com DPEC e mudar a UF do Webservice.

Att,

Joao Carlos dos Santos Paula

VINHESOFT

[DPEC com ACBrNFeMonitor]

Bom Dia,

Estou usando ACBrNFeMonitor 0.6.1c

1) Crio o XML com NFe.AdicionarNFeSefaz(cArqTXT,nLote)

ele cria o XML na pasta ACBRNFE\LOTES\LoteX onde X é o nLote

tudo OK

2) Envio o DPEC com NFe.EnviarDPECNFe(nLote,nImprimeDANFE)

Ele envia e retorna o DPEC. OK !

se eu mandar o parametro nImprimeDANFE='1', ele imprime a DANFE normal, porem somente 1 copia

3) Perguntas:

a) Como eu imprimo mais de uma copia da DANFE, após a 1a. impressao no passo (2)

Como eu coloquo na propriedade da DANFE protocolo que recebo do DPEC (via ACBrNFeMonitor)

Joao Carlos

VinheSoft

[Dúvida de Homologação (debito+saque)]

Obrigado.

Joao Carlos

VinheSoft

[Dúvida de Homologação (debito+saque)]

ok !

Outra pergunta:

Como eu pego o valor de retorno (via ACBrTEFD) da transação ?

ou seja, quando eu faço a requisicao eu passo 1 valor, e quando volta a transacao

ele vem com este valor mais o valor do saque.

Obrigado.

Joao Carlos

VinheSoft