João Paulo F. Bellucci

Acabei de baixar os fontes e esta dando erro ao compilar o pacote do SPED. D:\Fontes\Componentes\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDECF\ACBrECFBloco_K.pas(91) Error: E2004 Identifier redeclared: 'IND_VL_SLD_FIN' ACBr_SPED.dpk(113) Fatal: F2063 Could not compile used unit 'ACBrECFBloco_K.pas'

Acabei de baixar os fontes e esta dando este erro ao Instalar. D:\Fontes\Componentes\ACBr\Fontes\ACBrDFe\ACBrDFeOpenSSL.pas(608) Error: E2003 Undeclared identifier: 'X509GetExt' D:\Fontes\Componentes\ACBr\Fontes\ACBrDFe\ACBrDFeSSL.pas(2089) Fatal: F2063 Could not compile used unit 'ACBrDFeOpenSSL.pas' Compilation failure

Valeu Daniel, vou ver aqui, quando sobrar um tempo se mudo as chamadas das DLLs para dinâmico.

Ao gerar o arquivo remessa 400 do SICOOB BANCOOB não esta indo os valores de data do desconto e valor do desconto. Fiz a correção no meu fonte vou deixar em anexo aqui a correção. Qualquer dúvida estou a disposição. ACBrBancoBancoob.zip

Estou tendo problemas para embutir as DLLs do OpenSLL no EXE pois elas estão declaradas estaticamente no projeto fazendo a exigência da instalação das DLLs antes da execução do programa. Está previsto alteração no modo da leitura dessas DLLs para dinâmico?

Acabei de atualizar o trunk2 e esta dando erro ao compilar o SPED. D:\Fontes\Componentes\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBloco_0_Class.pas(712) Error: E2250 There is no overloaded version of 'IfThen' that can be called with these arguments ACBr_SPED.dpk(67) Fatal: F2063 Could not compile used unit 'ACBrEPCBloco_0_Class.pas' Compilation failure

Ok, vou dar uma olhada no demo. Muito Obrigado.

Boa Tarde, na versão anterior Trunk da NFe exista a possibilidade de selecionar o certificado pela chamada "NFe.Configuracoes.Certificados.SelecionarCertificado" notei que agora no Trunk2 essa função não exite mais. Existe alguma outra maneira de chamar essa função?

De acordo com o Guia nada Prático EFD-PIS/COFINS - Versão 1.20 agora o registro C870 deve conter o campo VL_DESC fiz uma alteração no fonte do ACBr para aceitar este campo. Segue em anexo os fontes com a alteração. Qualquer dúvida estou a disposição. Abraços. PisCofins.zip

Modifica arquivo remessa CNAB400 para preencher os campos de informações de desconto que não estavam sendo informados. Segue o código modificado: { Data do Primeiro Desconto} if ( DataDesconto <> 0 ) then strDataDesconto := FormatDateTime('ddmmyy', DataDesconto) else strDataDesconto := IntToStrZero(0, 6); { Valor do Primeiro Desconto} if ( ValorDesconto <> 0 ) then strValorDesconto := IntToStrZero( Round( ValorDesconto * 100 ), 13) else strValorDesconto := IntToStrZero(0, 13); with ACBrBoleto do begin MensagemCedente:= ''; for I:= 0 to Mensagem.count-1 do MensagemCedente:= MensagemCedente + trim(Mensagem); if length(MensagemCedente) > 40 then MensagemCedente:= copy(MensagemCedente,1,40); wLinha:= '1' + // ID Registro TipoCedente + // Identificação do Tipo de Inscrição do Sacado 01 - CPF 02 - CNPJ padR(onlyNumber(Cedente.CNPJCPF),14,'0') + // Número de Inscrição do Cedente padR(OnlyNumber(Cedente.Agencia), 4, '0') + // Agência padR( Cedente.AgenciaDigito, 1, '0') + // Agência digito padR( OnlyNumber(Cedente.Conta) + // Conta Corrente Cedente.ContaDigito, 9, '0') + // Dígito Conta Corrente padR( '0', 6, '0') + // Número do Convênio de Cobrança do Cedente fixo zeros: "000000" Space(25) + // Brancos padR( NossoNumero + DigitoNossoNumero, 12, '0') + // Nosso Número + //nosso numero com digito IntToStrZero(ifthen(Parcela > 0, Parcela,1),2) + // Número da Parcela: "01" se parcela única '00' + // Grupo de Valor: "00" Space(3) + // Brancos Space(1) + // Indicativo de Mensagem ou Sacador/Avalista: Space(3) + // Brancos IntToStrZero( 0, 3) + // Variação da Carteira: "000" IntToStrZero( 0, 1) + // Conta Caução: "0" IntToStrZero( 0, 5) + // Código de responsabilidade: "00000" IntToStrZero( 0, 1) + // DV do código de responsabilidade: "0" IntToStrZero( 0, 6) + // Numero do borderô: “000000” Space(4) + // Brancos wRespEntrega + // Tipo de Emissão 1-Cooperativa - 2-Cliente padR( trim(Cedente.Modalidade), 2, '0') + // Carteira/Modalidade Ocorrencia + // Ocorrencia (remessa) padL(trim(NumeroDocumento), 10) + // Número do Documento FormatDateTime( 'ddmmyy', Vencimento) + // Data de Vencimento do Título IntToStrZero( Round( ValorDocumento * 100 ), 13) + // Valor do Título IntToStrZero( Banco.Numero, 3) + // Número Banco: "756" padR(OnlyNumber(Cedente.Agencia), 4, '0') + // Prefixo da Agência Cobradora: “0000” padR( Cedente.AgenciaDigito, 1, ' ') + // Dígito Verificador do Prefixo da Agência Cobradora: Brancos padL(aEspecie,2) + // Espécie do Título ATipoAceite + // Identificação FormatDateTime( 'ddmmyy', DataDocumento ) + // 32 Data de Emissão padR(AInstrucao1, 2, '0') + // 33 Primeira instrução (SEQ 34) = 00 e segunda (SEQ 35) = 00, não imprime nada. padR(AInstrucao2, 2, '0') + // 34 Primeira instrução (SEQ 34) = 00 e segunda (SEQ 35) = 00, não imprime nada. IntToStrZero( Round( (ValorMoraJuros * 30) *10000 ), 6) + // Taxa de mora mês IntToStrZero( Round( PercentualMulta * 10000 ), 6) + // Taxa de multa wRespEntrega + // Responsabilidade Distribuição strDataDesconto + // Data do Primeiro Desconto, Preencher com zeros quando não for concedido nenhum desconto. strValorDesconto + // Valor do Primeiro Desconto, Preencher com zeros quando não for concedido nenhum desconto. IntToStrZero( 9 , 1) + // MOEDA 9 BRASIL IntToStrZero( 0, 12) + // Valor IOF / Quantidade Monetária: "0000000000000" IntToStrZero( 0, 13) + // Valor Abatimento TipoSacado + // Tipo de Inscrição do Sacado: 01 - CPF 02 - CNPJ padR(onlyNumber(Sacado.CNPJCPF),14,'0') + // Número de Inscrição do Sacado padL( Sacado.NomeSacado, 40, ' ') + // Nome do Sacado padL( Sacado.Logradouro +' '+ Sacado.Numero,37,' ') + // Endereço Completo padL( Sacado.Bairro,15,' ') + // Endereço Bairro padL( Sacado.CEP,8,' ') + // Endereço CEP padL( Sacado.Cidade,15,' ') + // Endereço cidade padL( Sacado.UF,2,' ') + // Endereço uf padL( trim(MensagemCedente) ,40,' ') + // Observações/Mensagem ou Sacador/Avalista: DiasProtesto + // Número de Dias Para Protesto Space(1) + // Brancos IntToStrZero( aRemessa.Count + 1, 6 ); // Contador de Registros; aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); end; end; ACBrBancoBancoob.zip

Só testei com SAT da DIMEP ainda e não tive problemas. Assim que chegar o kit desenvolvimento Sweda aqui essa semana vou testar.

Ok, qualquer novidade informe aqui neste tópico.

De acordo com o manual do SAT não saiu nenhuma regra diferente para a exibição dos tributos para ele ainda. Estou fazendo o CFe de acordo com a norma do SAT seguindo o modelo. Mas não tenho conhecimento ainda se será alterado para a Lei de "Olho no Imposto".

Erro ao validar o campo CNPJ_CPF quando o mesmo estiver preenchido com CPF. A rotina esta sempre preenchendo com 14 dígitos para resolver tive que altera a função. Antes da correção: Add( LFill('C800') + LFill( COD_MOD,2 ) + LFill( strCOD_SIT ) + LFill( NUM_CFE,6 ) + LFill( DT_DOC, 'ddmmyyyy', booNFCancelada ) + LFill( VL_CFE,0,2, booNFCancelada ) + LFill( VL_PIS,0,2, booNFCancelada ) + LFill( VL_COFINS,0,2, booNFCancelada ) + LFill( CNPJ_CPF, 14, True ) + LFill( NR_SAT,9 ) + LFill( CHV_CFE ) + LFill( VL_DESC,0,2, booNFCancelada ) + LFill( VL_MERC,0,2, booNFCancelada ) + LFill( VL_OUT_DA,0,2, booNFCancelada ) + LFill( VL_ICMS,0,2, booNFCancelada ) + LFill( VL_PIS_ST,0,2, booNFCancelada ) + LFill( VL_COFINS_ST,0,2, booNFCancelada ) ) ; Depois da correção: Add( LFill('C800') + LFill( COD_MOD,2 ) + LFill( strCOD_SIT ) + LFill( NUM_CFE,6 ) + LFill( DT_DOC, 'ddmmyyyy', booNFCancelada ) + LFill( VL_CFE,0,2, booNFCancelada ) + LFill( VL_PIS,0,2, booNFCancelada ) + LFill( VL_COFINS,0,2, booNFCancelada ) + LFill( CNPJ_CPF, 0, True ) + LFill( NR_SAT,9 ) + LFill( CHV_CFE ) + LFill( VL_DESC,0,2, booNFCancelada ) + LFill( VL_MERC,0,2, booNFCancelada ) + LFill( VL_OUT_DA,0,2, booNFCancelada ) + LFill( VL_ICMS,0,2, booNFCancelada ) + LFill( VL_PIS_ST,0,2, booNFCancelada ) + LFill( VL_COFINS_ST,0,2, booNFCancelada ) ) ;

Tive o mesmo problema hoje e constatei que essa função não existe no ACBr é um erro mesmo. Fontes\PCN2\pcnGerador.pas(893) Error: E2003 Undeclared identifier: 'PadLeft'

Acredito eu que você terá que falar om o Marlus da Dimep ele já deve ter passado por esse problema. Infelizmente não sei mais o que pode ser. Assim que você conseguir resolver o problema poste aqui para ficar registrado. []s

Você esta fazendo a associação pelo software da Dimep ou pelo seu? Já tentou enviar novamente a chave publica do seu certificado para a Sefaz?

Está correto o tamanho. Sim gerei pelo exemplo da Sefaz.

Utilizo o certificado A3. Quantos bytes a sua assinatura esta retornando?

Provavelmente a assinatura está sendo gerada errada. Aqui consegui sem problemas. O Certificado enviado para o Sefaz é o mesmo utilizado para gerar a assinatura?

Blz. []s

Oi Daniel, Os comandos que não funcionaram foram: Alinhar a direita e os comandos para código de barras 39,128, CODABAR e MSI. As configurações para páginas de código funcionaram sim tudo Ok. []s

Fiz os teste segue as fotos das impressões em anexo. A única que deu problema foi a Bematech TM-4000 TH. Se você olhar os fontes que mandei ela tem tratamento especial para alguns código. Obs: A TM-4000 TH não imprime qrCode então é normal que não funcionou. function TACBrESCPOS.GetCodeBar(CodeBar: TACBrCmdESCPPOSCodeBar; Dados: String): AnsiString; var CmdCodBar:AnsiString; nTam:Integer; begin Case CodeBar of cbEAN8 : CmdCodBar := FCmd.FCodeBarEAN8; cbEAN13 : CmdCodBar := FCmd.FCodeBarEAN13; cbSTD25 : CmdCodBar := FCmd.FCodeBarSTD25; cbINTER25 : CmdCodBar := FCmd.FCodeBarINTER25; cbCODE11 : CmdCodBar := FCmd.FCodeBarCODE11; cbCODE39 : CmdCodBar := FCmd.FCodeBarCODE39; cbCODE93 : CmdCodBar := FCmd.FCodeBarCODE93; cbCODE128 : CmdCodBar := FCmd.FCodeBarCODE128; cbUPCA : CmdCodBar := FCmd.FCodeBarUPCA; cbCODABAR : CmdCodBar := FCmd.FCodeBarCODABAR; cbMSI : CmdCodBar := FCmd.FCodeBarMSI; End; if ( FMarcaImpressora = iDaruma ) then begin Result := CmdCodBar + AnsiString(Dados) + FCmd.FCodeBarFim; end else if ( FMarcaImpressora = iBematech ) then begin if CodeBar in [cbCODE128,cbCODE93] then begin nTam := Length(Dados); Result := CmdCodBar + AnsiChar(Chr(nTam)) + AnsiString(Dados); end else begin Result := CmdCodBar + AnsiString(Dados) + FCmd.FCodeBarFim; end; end else if ( FMarcaImpressora = iEpson ) then begin nTam := Length(Dados)+2; Result := CmdCodBar + AnsiChar(Chr(nTam)) + #123 + #66 + AnsiString(Dados); end; end; []s

Blz, vou baixar e fazer os teste. []s

Perfeito isso irá resolver o problema. []s