Jefferson Lupinacci

A sim André, então achei só estranho pois aparentemente a rotina de regras de negócio ao meu ver está correta o erro é no XSD que não distingue modelo 55 de 65 e está como obrigando o campo, até mesmo o comentário no XSD informa que é para o NFC-e

Olá, estava testando aqui a validação da regra de negócio da v4.0 e está solicitando a tag PAG será que está com erro no xsd? No componente está dando Rejeição 768 Falha na validação dos dados da nota: 999999999 Element '{http://www.portalfiscal.inf.br/nfe}pag' cannot be empty according to the DTD/Schema. Não validou no XSD e gerou Erro em function NotaFiscal.ValidarRegrasdeNegocios: Boolean; GravaLog('Validar: 768-NFe com formas de pagamento'); if NFe.pag.Count > 0 then AdicionaErro('768-Rejeição: NF-e não deve possuir o grupo de Formas de Pagamento'); Alteração GravaLog('Validar: 768-NFe com formas de pagamento'); if (NFe.pag.Count > 0) and (NFe.infNFe.Versao < 4) then AdicionaErro('768-Rejeição: NF-e não deve possuir o grupo de Formas de Pagamento'); Estou testando modelo 55 não 65

NF-e - SCHEMAS VERSÃO 4.0 http://www.spedbrasil.net/forum/topics/nf-e-schemas-versao-4-0 Pessoal, Foram publicados os SCHEMAS da VERSÃO 4.0. Lembrando que esta versão, 4.0, está com os seguintes prazos: 1.3. Sobre o Prazo de Implantação O prazo previsto para a implementação das mudanças é: - Ambiente de Homologação (ambiente de teste das empresas): 01/06/2017; - Ambiente de Produção: 01/08/17. - Desativação da versão anterior: 02/04/18. https://goo.gl/bFkExh

Desculpe a postagem errada, estava alterando e vc já respondeu Juliomar parabéns por sua eficiência e retorno em tempo hábil, mais rápido que a minha edição

Um cliente me fez uma nova solicitação na impressão do DAV e gostaria de saber se é possível incluir no SVN O Cliente gostaria de exibir um Total Geral no final da impressão dos Valores procedure DAV_Fechar(const AObservacao: String; AVlrDesconto : Double; AVlrAcrescimo: Double); Alterado a string "Valor Total:" para 'Sub Total: ' pois é referente ao valor do somatorio dos itens - Linha 7260 TextoRel.Add(DescrItem + PadLeft('Sub Total: ' + Format('R$ %11.2f', [FDAVTotal]), 36, ' ')); Incluido o valor total com acrescimo e desconto na linha 7268 TextoRel.Add(DescrItem + PadLeft('Valor Total: ' + Format('R$ %11.2f', [FDAVTotal + AVlrAcrescimo - AVlrDesconto ]), 48, ' ')); procedure TACBrECF.DAV_Fechar(const AObservacao: String; AVlrDesconto : Double; AVlrAcrescimo: Double); var DescrItem: String; TextoRel: TStringList; begin if Self.Estado <> estRelatorio then raise EACBrECFErro.Create('Efetue a abertura do DAV antes de continuar.'); TextoRel := TStringList.Create; try if Trim(AObservacao) <> EmptyStr then begin TextoRel.Add(''); TextoRel.Add(AObservacao); end; if FDAVItemCount > 1 then DescrItem := PadRight(IntToStr(FDAVItemCount) + ' itens', 12, ' ') else DescrItem := PadRight(IntToStr(FDAVItemCount) + ' item', 12, ' '); TextoRel.Add('</linha_simples>'); TextoRel.Add(DescrItem + PadLeft('Sub Total: ' + Format('R$ %11.2f', [FDAVTotal]), 36, ' ')); if AVlrDesconto > 0 then TextoRel.Add(PadLeft('Total Desc.: ' + Format('R$ %11.2f', [AVlrDesconto]), 48, ' ')); if AVlrAcrescimo > 0 then TextoRel.Add(PadLeft('Total Acre.: ' + Format('R$ %11.2f', [AVlrAcrescimo]), 48, ' ')); TextoRel.Add(PadLeft('Valor Total: ' + Format('R$ %11.2f', [FDAVTotal + AVlrAcrescimo - AVlrDesconto]), 48, ' ')); TextoRel.Add(''); TextoRel.Add(''); TextoRel.Add('</linha_dupla>'); TextoRel.Add('<ce>É VEDADA A AUTENTICAÇÃO DESTE DOCUMENTO</ce>'); TextoRel.Add('</linha_dupla>'); TextoRel.Add(''); TextoRel.Add(''); LinhaRelatorioGerencial( ACBrStr(TextoRel.Text) ); finally TextoRel.Free; end; FechaRelatorio; FDAVItemCount := 0; FDAVTotal := 0.00; end; Postagem foi editada pois estava errado ACBrECF.pas

Vc ja tentou utilizar o FastMM4 para maximizar a alocação de memória de sua aplicação? Sempre quando tenho estes gargalos de memória apelo para ele

Boa Tarde pessoal, estou com um problema no tef após o usuário Pressionar o ESC na tela de Seleção de Bandeira, exibe um erro de Arquivo não encontrado C:\TEF_DIAL\resp\intpos.001, alguém tem uma luz ? -- 17/11 17:17:51:377 - TEF_DIAL Inicializado -- 17/11 17:17:51:377 - TEF_DIAL CancelarTransacoesPendentesClass -- 17/11 17:17:51:377 - TEF_DIAL IniciarRequisicao: ATV -- 17/11 17:18:02:891 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 17/11 17:18:02:926 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 17/11 17:18:02:927 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:03:177 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 17/11 17:18:03:178 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:05:924 - InfoECF: ineEstadoECF -- 17/11 17:18:05:945 - Ret: P -- 17/11 17:18:05:945 - InfoECF: ineSubTotal -- 17/11 17:18:05:947 - Ret: 9,9 -- 17/11 17:18:05:948 - InfoECF: ineTotalAPagar -- 17/11 17:18:05:950 - Ret: 0 Primeira Tentativa -- 17/11 17:18:05:950 - TEF_DIAL IniciarRequisicao: CRT -- 17/11 17:18:05:950 - ConfirmarTransacoesAnteriores -- 17/11 17:18:05:950 - TEF_DIAL IniciarRequisicao: ATV -- 17/11 17:18:05:953 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 17/11 17:18:05:985 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 17/11 17:18:05:986 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:06:236 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 17/11 17:18:06:237 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:06:240 - TEF_DIAL FinalizarRequisicao: CRT, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 17/11 17:18:06:426 - TEF_DIAL FinalizarRequisicao: CRT, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 17/11 17:18:06:427 - TEF_DIAL FinalizarRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:06:677 - TEF_DIAL FinalizarRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 17/11 17:18:06:678 - TEF_DIAL FinalizarRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:06:681 - TEF_DIAL LerRespostaRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.001 -- 17/11 17:18:22:818 - TEF_DIAL LerRespostaRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.001 Recebido -- 17/11 17:18:22:818 - TEF_DIAL LerRespostaRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.001 -- 17/11 17:18:22:819 - TEF_DIAL ProcessarRespostaPagamento: CRT - 62270 Indice: 2 Valor:9,90 -- 17/11 17:18:22:820 - TEF_DIAL ProcessarResposta: CRT -- 17/11 17:18:22:820 - TEF_DIAL DoExibeMsg: Oper: opmOK Mensagem: OPERACAO CANCELADA! -- 17/11 17:18:24:280 - TEF_DIAL FinalizarResposta: CRT -- 17/11 17:18:42:361 - InfoECF: ineEstadoECF -- 17/11 17:18:42:383 - Ret: P -- 17/11 17:18:42:383 - InfoECF: ineSubTotal -- 17/11 17:18:42:385 - Ret: 9,9 -- 17/11 17:18:42:385 - InfoECF: ineTotalAPagar -- 17/11 17:18:42:388 - Ret: 0 Nova Tentativa -- 17/11 17:18:42:388 - TEF_DIAL IniciarRequisicao: CRT -- 17/11 17:18:42:388 - ConfirmarTransacoesAnteriores -- 17/11 17:18:42:388 - TEF_DIAL IniciarRequisicao: ATV -- 17/11 17:18:42:391 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 17/11 17:18:42:417 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 17/11 17:18:42:418 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:42:669 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 17/11 17:18:42:670 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:42:675 - TEF_DIAL FinalizarRequisicao: CRT, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 17/11 17:18:42:698 - TEF_DIAL FinalizarRequisicao: CRT, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 17/11 17:18:42:699 - TEF_DIAL FinalizarRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:42:949 - TEF_DIAL FinalizarRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 17/11 17:18:42:950 - TEF_DIAL FinalizarRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 17/11 17:18:42:952 - TEF_DIAL LerRespostaRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.001 -- 17/11 17:18:43:202 - TEF_DIAL LerRespostaRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.001 Não recebido -- 17/11 17:18:43:202 - TEF_DIAL LerRespostaRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.001 A partir deste ponto o TEF fica todo problemático sendo necessário fechar

Bom dia Srs, estou utilizando o AcbrBoleto, estou gerando um boleto pela CEF utilizando Ag:2099 e Contrato:818596-4. O problema é que está saindo um digito 2 inesperado nos dados do cedente. Campo Agência / Código Beneficiário Conteúdo Atual: 2099/818596-4-2 Conteúdo Esperado: 2099/818596-4 Peço a ajuda de vocês, pois não estou encontrando nada que possa estar fazendo isso. Desde já agradeço.

Desculpe a Demora pra Responder mas esta aqui o Seu Retorno. "Vou tirar ferias no fim do mês - AUMENTO DE CARGA DE TRABALHO" Primeiramente vc precisa acessar a página principal do site utilizando o protocolo HTTP 1.1 pois o site usa Cookies e precisamos dele para ser passado para o url seguinte. quando um site usa o captcha pegamos o cookie no captcha neste caso vou pegar diretamente na solicitação de 'GO' Ficando Assim o Procedimento procedure Consulta_GO(); begin HttpSend.ProxyHost := 'localhost'; // Interceptando por Dentro do PROXY do Feedler para o Delphi ser identificado como um Browser HTTPSend.ProxyPort := '8888'; { Protocolo do Canal HTTP Versão 1.1 } HTTPSend.KeepAlive := true; HTTPSend.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1'; HTTPSend.Headers.Add('Accept-Language: pt-BR,pt;q=0.8,en-US;q=0.5,en;q=0.3'); HTTPSend.Clear; HTTPSend.Protocol := '1.1'; HTTPSend.Cookies.Clear; HTTPGet('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp'); Post.WriteString('rTipoDoc=2&'); Post.WriteString('tDoc='+ OnlyNumber(ACNPJ)+'&'); Post.WriteString('tCCE=&'); Post.WriteString('tCNPJ='+ OnlyNumber(ACNPJ)+'&'); Post.WriteString('tCPF=&'); Post.WriteString('btCGC=Consulta=&'); Post.WriteString('zion.SystemAction=consultaSintegra()&'); Post.WriteString('zion.OnSubmited&'); Post.WriteString('zion.FormElementPosted=zionFormID_1&'); Post.WriteString('zionPostMethod=&'); Post.WriteString('zionRichValidator=true&'); Post.Position:= 0; HttpSend.Clear; HttpSend.Document.Position:= 0; HttpSend.Document.CopyFrom(Post, Post.Size); HTTPSend.MimeType := 'application/x-www-form-urlencoded'; HTTPPost('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp'); Erro := VerificarErros(RespHTTP.Text, AUF); if Erro = '' then begin Result:= True; Resposta := TStringList.Create; try Resposta.Text := StripHTML(RespHTTP.Text); RemoveEmptyLines( Resposta ); Resposta.Text := StringReplace(Resposta.Text, '&nbsp;', '', [rfReplaceAll]); FCNPJ := LerCampo(Resposta,'CNPJ:'); FInscricaoEstadual := LerCampo(Resposta,'Inscrição Estadual - CCE :'); FRazaoSocial := LerCampo(Resposta,'Nome Empresarial:'); FEndereco := LerCampo(Resposta,'LOGRADOURO:'); FNumero := LerCampo(Resposta,'Número:'); FComplemento := LerCampo(Resposta,'Complemento:'); FBairro := LerCampo(Resposta,'Bairro:'); FCidade := LerCampo(Resposta,'Município:'); FUF := LerCampo(Resposta,'UF:'); FCEP := OnlyNumber( LerCampo(Resposta,'CEP:') ) ; if FCEP <> '' then FCEP := copy(FCEP,1,5)+'-'+copy(FCEP,6,3) ; FTelefone := LerCampo(Resposta, 'Telefone:'); FAtividadeEconomica := LerCampo(Resposta, 'Atividade Econômica:'); FDataInicioAtividade := StringToDateTimeDef(LerCampo(Resposta,'Data de Inicio de Atividade:'),0); FSituacao := LerCampo(Resposta, 'Situação Cadastral Vigente:'); FDataSituacao := StringToDateTimeDef(LerCampo(Resposta,'Data desta Situação Cadastral:'),0); FRegimeApuracao := LerCampo(Resposta, 'Regime de Apura&ccedil;&atilde;o:'); FDataEmitenteNFe := StringToDateTimeDef(LerCampo(Resposta,'Emitente de NFe desde:'),0); finally Resposta.Free; end ; end else begin Result:= False; raise EACBrConsultaSintegra.Create(Erro); end; end; a.html

Posta a Unit alterada que vejo pra você amanha cedo quando chegar no escritório

Primeiras Considerações: teremos que analisar o metodo de comunicação que esta sendo empregado entre o cliente e o servidor, e como isso é feito utlizando um analizador de trafego http eu uso o Telerik Fiddler Acessando o Site da Sefaz de Goias Postando os dados e vendo o seu comportamento Acessando o Site Postando o Formulário e Analisando o comportamento Para onde a solicitação foi encaminhada O Que queremos para o ACBr Passo a Passo: Abra o Fiddler, e o Browser de sua preferencia no Fiddler Aperte Ctrl+X para limpar todo o log de histórico e acesse o url sua tela deverá ser similar a tela acima Na Aba TextView estão os parametros que foram passados de um url para o outro, repare que vc deverá alterar o &CNPJ= para o cnpj que vc quer postar e o &Doc= Tambem Cada Post.WriteString() equivale a um parametro que gostariamos de postar ao servidor

Anexado ao Post o Exemplo ACBRConsultaSintegra.zip

Claro Sidnei_alves1 me passe a sua dúvida que lhe ajudo a resolver

Fiquei ausente o fim de semana por isso não dei continuidade no post O Fonte agora se encontra disponível para a comunidade se alguém se dispor a alterá-lo e gerar as interfaces ficarei muito grato, vendo que tenho que terminar este cadastro em 15 dias e os 5 estados que me foram pedidos estão prontos. Agora se alguém precisar de alguma ajuda para decifrar os captchas do google estarei a disposição para o auxilio da tarefa.

não necessito de herança de classes veja que a consulta é muito simples o fonte atual esta anexado