Luiz Carlos Pereira

Perfeito Juliomar, resolvido. Muito obrigrado.

Pois é, mas no consulta cadastro do ACBrLib tem (xRegApur=SIMPLES NACIONAL). Por isso perguntei se tem como usar LIB dentro da minha aplicação. Isso que preciso saber, se a empresa é do Simples.

Boa tarde Juliomar, Sim, ja testei para buscar a IE. Mas não consegui encontrar o retorno para o Regime de Apuração como tem no ACBrLib o RegApur. Documento := '05.017.780/0016-82'; ACBrNFe.Configuracoes.WebServices.Salvar := true; ACBrNFe.Configuracoes.WebServices.UF := 'MG'; //UF; ACBrNFe.WebServices.ConsultaCadastro.UF := 'MG'; //UF; ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento; ACBrNFe.WebServices.ConsultaCadastro.Executar; IE := ACBrNFe.WebServices.ConsultaCadastro.IE;

Boa tarde Lucimauro, primeiramente agradeço o retorno. Eu não uso o Monitor, será que consigo usar este componente na minha aplicacao delphi? Sabe onde posso pegar documentaçao para dar uma estudada? Grato

Bom dia, Estou precisando de um componente para buscar o Regime Fiscal e a IE de empresas na Sefaz ou em outro lugar. Alguem teria para vender. Grato Luiz

Aqui carregou > ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.IE Quanto a segunda questao para ver se a empresa é do simples, alguma sugestão?

Bom dia, Realmente Faltava, mas continua não carregando. Veja este CNPJ abaixo, consulta pelo portal da NFe traz as informações: Nome da Empresa: RIO BRANCO ALIMENTOS S/A UF: MG - 31 CNPJ: 05.017.780/0016-82 Inscrição Estadual (IE): 4811767451053 Situação IE: Habilitado Tipo IE: IE Normal CNAE Principal: 154700 Pelo Componente: Documento := '05.017.780/0016-82'; ACBrNFe.WebServices.ConsultaCadastro.UF := 'MG'; ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento; ACBrNFe.WebServices.ConsultaCadastro.Executar; IE := ACBrNFe.WebServices.ConsultaCadastro.IE; teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo; Retorno: IE='' xMotivo = 'Consulta cadastro com uma ocorrencia'

1 - Oi Diego, não retorna nada. Será que é necessário que o CNPJ tenha movimentação ou estou fazendo algo errado. 2 - Também parece que não tem a informação se é participante do Simples nesta Classe. Documento := '12026383000156'; ACBrNFe.WebServices.ConsultaCadastro.UF := 'SP'; ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento; IE := ACBrNFe.WebServices.ConsultaCadastro.IE; teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo; teste := ACBrNFe.WebServices.ConsultaCadastro.versao; Observação: passei toda a configuração para o componente igual ao envio da NFe e nada.

Boa tarde, Temos alguma ferramenta para consultar Insc. Estadual e se é optante do Simples, visto que o ACBrConsultaCNPJ nao nos traz.

Juliomar, Cheguei a apagar toda a pasta que contem o ACBr, e baixei tudo de novo, atualizando para apagar oa antigos. Diego, em execução normal realmente nao dá o erro. Pra mim está resolvido. Grato.

Boa tarde, Começou a dar uma mensagem "Atualize o Captcha" ao chamar o ACBrConsultaCNPJ1.Consulta(EditCNPJ.Text, EditCaptcha.Text), usando o Delphi. Atualizei o ACBr, agora está Dando ........'*******' is not a valid date and Time ao chamar o componente. Se voce optar em continuar, os dados são carregados. Debuguei e cheguei até esta linha : FDataSituacaoEspecial := StringToDateTimeDef(LerCampo(Resposta,ACBrStr('DATA DA SITUAÇÃO ESPECIAL')),0); da funçao > TACBrConsultaCNPJ.Consulta

Grato pessoal, apaguei os DCUs das aplicacoes e resolveu o problema.

F2051 Unit ACBrJSON was compiled with a different version of JsonDataObjects_ACBr.TJsonBaseObject.Parse Boa tarde, Após atualizar o ACBr começou a dar o erro acima ao compilar o delphi Xe6. Atualizei com opcao de remover arquivos antigos, tambem Apaguei toda a pasta e baixei tudo novamente mas continua o problema.

Consegui ajustar o modelo, obrigado.

Ainda não consegui corrigir o modelo, por isso estou tentando mandar direto para a impressora para ver se resolve as margens.

Oi Juliomar, 1 ) Como disse anteriormente uso o FastReport. 2) não entendi o que quiz dizer (configura o componente de impressão diretamente), já não estou passando a configuraçao conforme mostrei acima? 3) Passo o nome da impressora como faço para imprimir o CTe (ACBrCTeDacteFR.Impressora := vDrivePrinterCTe);

Boa tarde Rubinho, ACBrMDFe1.Manifestos.Assinar; ACBrMDFe1.Manifestos.Validar; ACBrMDFe1.Consultar; ACBrMDFe1.DAMDFE.MostraSetup := False; ACBrMDFe1.DAMDFE.Impressora := vDrivePrinterCTe; ACBrMDFe1.Manifestos.Imprimir; Estou fazendo Assim, mas continua mostrando na tela e nao enviando direto para a impressora.

Bom dia, Alguém pode me passar modelo de como passar os parâmetros para mandar direto para impressora, pois não consegui descobrir. Desde já agradeço pela ajuda.

FastReport. Tentei configurar mas tem umas linhas que não consigo movimentar. O problema é que não conheço muito o FastReport. Só me diga uma coisa, tem como passar parâmetro para mandar direto para impressora a impressora?

Boa tarde, O DAMDFe ao ser impresso pelo "ACBrMDFe1.Manifestos.Imprimir" visualiza na tela normal, mas ao ser impresso fica cortando no lado esquerdo em qualquer impressora. Isso faz tempo que acontece, mas só agora fui notificado na barreira. mdfe impressao cortada.pdf

Pedi para testarem todos os drives, o ppEscPosStar funcionou. Grato pela atencao

Não, o cliente é de outro estado. Eu não tenho desta impressora para testar. Mas meu sistema funciona a bastante tempo com a bematech e nunca tive problema.

sim, inclusive ja emitem BPe por outra sistema.

Estamos tentando imprimir o BPe em uma Elgin i7, i9, ja testamos vários drive e não da certo, principalmente não imprime QRCode . ppEscPosEpson: FPosPrinterClass := TACBrEscPosEpson.Create(Self); ppEscBematech: FPosPrinterClass := TACBrEscBematech.Create(Self); ppEscDaruma : FPosPrinterClass := TACBrEscDaruma.Create(Self); ppEscVox : FPosPrinterClass := TACBrEscElgin.Create(Self); ppEscDiebold : FPosPrinterClass := TACBrEscDiebold.Create(Self); ppEscEpsonP2 : FPosPrinterClass := TACBrEscEpsonP2.Create(self); ppCustomPos : FPosPrinterClass := TACBrEscCustomPos.Create(self); ppEscPosStar: FPosPrinterClass := TACBrEscPosStar.Create(Self); ppEscZJiang: FPosPrinterClass := TACBrEscZJiang.Create(Self); ppEscGPrinter: FPosPrinterClass := TACBrEscGPrinter.Create(Self); ppEscDatecs: FPosPrinterClass := TACBrEscDatecs.Create(Self); ppExterno: FPosPrinterClass := FModeloExterno; o único drive que tem algum relacionamente com a elgin é ppEscVox mas tb não emite correto.

Foi o que pedi para fazerem, mas disseram não foi resolvido. Vou insistir nisso. Grato pela atencao.