Ir para conteúdo
  • Cadastre-se

intelmib

Membros
  • Total de ítens

    154
  • Registro em

  • Última visita

Tudo que intelmib postou

  1. Estou tentando a mesma coisa só que no campo QUANTIDADE.
  2. Olá Preciso realizar autenticação na API do woocomerce, já fiz o DEMO só falta corrigir detalhes Quem tiver interessado pago pelo JOB. Obrigado Uses REST.Consts ,REST.Types ,REST.BindSource ,REST.HttpClient ,REST.Utils ,REST.Json.Types ,REST.Json.Interceptors ,REST.JsonReflect ,REST.Json ,REST.Client; procedure TForm1.btnTeste02Click(Sender: TObject); begin WOO_OAuth1Authenticator1.ConsumerKey := ''; WOO_OAuth1Authenticator1.ConsumerSecret := ''; WOO_OAuth1Authenticator1.SigningClassName := 'TOAuth1SignatureMethod_HMAC_SHA1'; WOO_OAuth1Authenticator1.CallbackEndpoint := ''; //oauth1.Authenticate(RESTRequest1); WOO_RESTClient1.Authenticator := WOO_OAuth1Authenticator1; WOO_RESTClient1.BaseURL := 'http://SITE.com.br/wc-api/v3'; WOO_RESTRequest1.Client := WOO_RESTClient1; WOO_RESTRequest1.Resource := 'products'; WOO_RESTRequest1.Method := TRESTRequestMethod.rmPOST; WOO_RESTRequest1.Params.AddItem('title', 'produto teste', TRESTRequestParameterKind.pkGETorPOST); WOO_RESTRequest1.Execute; if assigned(WOO_RESTResponse1.JSONValue) then begin Memo1.Lines.Text := TJson.Format(WOO_RESTResponse1.JSONValue) end else begin Memo1.Lines.Add(WOO_RESTResponse1.Content); end; end;
  3. Olá Alguém já conseguiu comunicar um SAT, acessando uma nuvem via RDP (Remote Desktop)? Nas impressoras fiscais eu sempre fiz isso, apenas habilitando a porta COM Mas no SAT mesmo habilitando a porta COM a nuvem nao reconhece, ja testei nuvem com win SERVER, win xp, win7, mas nenhuma foi. Tambem liguei nas Bematech,Daruma,Tanca e eles nao sabem informar. Ja testei as seguintes marcas BEMATECH,ELGIN (sweeda sei que é igual a elgin), e nenhum funcionou.
  4. Resolvido Segue abaixo resposta do Sicoob. Não localizei esta nota no site da FEBRABAN, sera que isso serve para os demais bancos? Cobrança sem Registro: Em atendimento à determinação da FEBRABAN, a partir de 01/06/2015 os novos clientes do produto cobrança não terão disponível a modalidade simples sem registro para emissão de boleto. Os clientes que atualmente já possuem o convênio/contrato com a Cooperativa ainda terão esta opção de modalidade disponível até 01/06/2016. Contudo, recomendamos a utilização da modalidade simples com registro, por se tratar de uma modalidade que permite o maior controle por parte da empresa, além de oferecer uma maior flexibilidade para alterar e gerar instruções sobre os boletos emitidos.
  5. Olá Hoje pela manha o sicoob CEDENTE atualizou em varios clientes para versao 2.0.7.0 E nesta versão a remessa não é enviada ocorre o erro. Ocorreu um problema no tratamento das informações. Por favor entre em contato com o administrador do sistema Identificação do erro no arquivo de log = 1432904528887-42 Alguem mais está passando por isso? Até o momento estou efetuando ligações na central sicoob.
  6. intelmib

    Novo Banco Credsan 089

    Olá Tudo bem O componente não possui o banco Credsan - 089 Eu pensei em Criar esta unit Homologar Seguir o padrão acbr E postar para supervisão e posterior atualização no SVN Posso dar inicio? Obrigado.
  7. intelmib

    Captcha Cnpj

    Pelo visto todos estão sem esta opção de consulta no momento. O erro é no site da receita!
  8. intelmib

    Captcha Cnpj

    Olá "CAPTCHA DO CNPJ" http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp Vi muitos topicos dos moderadores informando a todos que o projeto não dá suporte a rotina Recuperar XML. Porém minha dúvida é referente ao componente que consulta os dados do cliente através do CNPJ. A Receita não mostra o captcha para mim mesmo em modo navegador. Gostaria de saber se isso tambem ocorre com mais alguém. Obrigado Titulo correto "Captcha do CNPJ" (desculpe o erro ao digitar o titulo)
  9. Perfeito Juntando estas respostas de nossos profissionais deste forum: A resposta acima de Designerba A resposta no post de Régys Silveira NN - Não tributado, FF - Substituicao tributária, II - Isento SN - Serviço não tributado, SF - Serviço Substituição Tributária, SI - Serviço Isento Tributados e Serviço com alíquota - Por Valor da aliquota, Ex: '18', '12,00' '2,56' - Por Valor da Aliquota especificando o Tipo como sufixo (T = ICMS, ou S = ISS), Ex: '18T', '2,5S' - Por Indice, adicione o prefixo 'T', Ex: 'T01', 'T03', 'TA', 'TT01' ( o indice deve ser no mesmo formato retornado pela propriedade "Aliquotas[n].Indice" (que varia para cada modelo de ECF) ) A resposta no post de Juliomar Marchetti Nada de CST, lá você vai informar as aliquotas da mercadoria pois é venda no balcão então só tem uma forma de tributar Venda consumidor final então será informado para a ecf o indice ou as opções disponiveis por exemplo T17 ou 17T ou S4 ou 4S ou F, N, I ​A resposta de André Ferreira de Moraes Citando o exemplo de SP http://www.pfe.fazenda.sp.gov.br/guia_procedimentos_ecf_09.shtm#2 Sendo assim, em São Paulo, o ECF deverá ser programado com as alíquotas normais dos produtos comercializados pelo estabelecimento (7%, 12%, 18% ou 25%) ou "F", no caso de mercadoria sujeita à Substituição Tributária, "I", no caso de mercadoria Isenta, ou "N", no caso de mercadoria não tributada. Contudo, não será considerado o imposto calculado pelo ECF. O imposto será apurado pela sistemática do Simples Nacional. A Resposta de Elton em Citando as tabelas de relações entre CST x CSON na emisao do Cupom http://www.spedbrasil.net/forum/topics/correla-o-cst-x-csosn-tabela-origem-nova-2013 http://www.contabeis.com.br/forum/arquivos/TABELA%20CORRELACAO%20CFOP%20X%20CST-PIS%20COFINS%20x%20CST%20ICMS.xls A Pergunta de Daniel Paixao citando um exemplo feito em delphi no mesmo post de Elton if (TDesktop.EmpresaTrabalho.SimplesNacional) then begin case StrToInt(CSOSN) of 101,102:SituacaoTributaria := ttTributado; 201,202,203,500:SituacaoTributaria := ttSubstituicao; 300:SituacaoTributaria := ttIsento; 400:SituacaoTributaria := ttNaoIncidencia; end; end else case StrToInt(CST) of 00:SituacaoTributaria := ttTributado; 40:SituacaoTributaria := ttIsento; 41:SituacaoTributaria := ttNaoIncidencia; 60:SituacaoTributaria := ttSubstituicao; else SituacaoTributaria := ttNaoIncidencia; end; Ficou claro que, produtos com Substituição Tributária é diferente de produtos tributados Obrigado
  10. intelmib

    Aliquotas Do Produto

    Olá Tudo bem ! Conforme explica no manual: http://acbr.sourceforge.net/ACBrMonitor/ACBrMonitor.html?VendeItem.html - Existem alíquotas internas do ECF para tratar produtos Isentos: "FF" para Substituição Tributária "NN" para Não incidência "II" para Isento Quando deve-se informar FF, e quando informar % ? Exemplo Informando % if Substituição Tributária then "6,5" if Não incidência then "FF" if Isento then "II" Agora Exemplo informando FF if Substituição Tributária then "FF" if Não incidência then "FF" if Isento then "II" Existem muitos tópicos aqui sobre o assunto, tratando e resolvendo, mas deste modo colocado acima ser o único Obrigado.
  11. Entendi Juliomar você tem razão. Obrigado André, realmente o correto é "ACBrMail" Muito Obrigado.
  12. Olá Obrigado pela feedback Juliomar No meu caso eu utilizo a rotina ACBrNFe1.NotasFiscais.Items[0].EnviarEmail para enviar e-mails dentro de meu software, mesmo quando se trata de algo diferente da NFe. O Motivo de eu utilizar está, ao invés de outra: é que ela é melhor do que todas que já vi na Internet. Obrigado.
  13. Olá Tudo bem Enviando e-mail através do método ACBrNFe1.NotasFiscais.Items[0].EnviarEmail() Todos sabemos que para não enviar anexos junto basta informar "nil" na propriedade "Anexos". No meu caso eu envio alguns arquivos diferentes do XML e PDF, estes arquivos são informados na propriedade "Anexos". Quando informamos algum arquivo nesta propriedade "Anexos", a rotina Automaticamente envia junto o XML, mesmo ele não estando relacionado na lista de anexos. Existe alguma forma de não enviar o XML na memoria do componente, porém, enviar anexos? Para solucionar isso fiz a uma simples modificação. Obrigado. ACBrNFe.pas ACBrNFeNotasFiscais.pas
  14. Ótima solução, me parece que isso corre, por que existem métodos diferentes de se fazer um evento de Cancelamento e CCe. Resolvou perfeito. fica ai a dica do amigo Warquia [Eventos."xJust"] // para cancelamento [Eventos."xCorrecao"] // para correção
  15. No TEXTO_EVENTO, o rodimilson não citou qual o Datafiel. Eu coloquei xJust Segue anexo modificação realizada no arquivo EVENTOS.fr3 EVENTOS.zip
  16. Cleber, você tem razão, ouve mesmo está modificação Sou muito grato por sua dica, estarei a disposição para ajudar tambem. Obrigado. Juliomar Obrigado pela atenção. Estarei seguindo sua orientação. Muito grato.
  17. Rafael você solucionou este item?
  18. Em março de 2014 o Sicoob anunciou uma modificação no arquivos CNAB 400 Para Geração de Remessa / Boletos do Sicoob eu utilizo a unit "unit ACBrBancoob" A modificação foi a seuinte Na linha 337 onde está : Space(5) + // 5 espaco em branco O Correto seria: Space(4)+'2' + // 4 espacos e a quinta posição é prenchida com 1 ou 2 (a modificação ocorre na posição 106 onde 1= emissão pela coperativa e 2= emissao pelo cliente) Anexei o novo padrão que peguei hoje cedo com a central. Abaixo coloquei tambem o email que recebi da gerencia. Obs: hoje pela manha ao enviar a remessa só consegui apos realizar está modificação, o sistema me barrava alertando o seguinte "Tipo de emissão deve ser informado" Gostaria de saber se essa modificação é só comigo ou com os demais colegas tambem, caso seja geral seria interssante atualizarmos os fontes no SVN?
  19. Olá Elton, grande prazer em ver sua interação. Idéia: Manter os clientes com sua pasta atualizada, exemplo pasta Schemas da Nfe, entre outros arquivos como relatorios fr3 Método Utilizado: Coloco os arquivos em um servidor online, o sistema no cliente automaticamente baixa os arquivos. Pós: Não precisa fica baixando arquivos no cliente, o app faz isso automaticamente através do AcbrDownload Contra: Seria interesante passar somente o caminho da web ".com.br/suapasta" (bastaria aprender a listar arquivos online via http)
  20. Será que alguém consegue Listar os arquivos de um diretorio online via http assim : www.seusite.com.br/schemas
  21. Contribuição ACBRDownload = SVN (Neste exemplo o ACBR está operando tipo um SVN) "OBS: não use http://, troque por www., caso seja ip coloque o ip direto." Veja abaixo como atualizar a pasta Schemas automaticamente em tempo de execução. Chamada procedure Tform1.Button1Click(Sender: TObject); begin svn([ ,'www.seusite.com.br/Schemas/cancNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/CCe_v1.00.xsd' ,'www.seusite.com.br/Schemas/confRecebto_v1.00.xsd' ,'www.seusite.com.br/Schemas/consCad_v2.00.xsd' ,'www.seusite.com.br/Schemas/consDPEC_v1.01.xsd' ,'www.seusite.com.br/Schemas/consNFeDest_v1.01.xsd' ,'www.seusite.com.br/Schemas/consReciNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/consReciNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/consSitNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/consSitNFe_v2.01.xsd' ,'www.seusite.com.br/Schemas/consSitNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/consStatServ_v2.00.xsd' ,'www.seusite.com.br/Schemas/consStatServ_v3.00.xsd' ,'www.seusite.com.br/Schemas/downloadNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/e110110_v1.00.xsd' ,'www.seusite.com.br/Schemas/e110111_v1.00.xsd' ,'www.seusite.com.br/Schemas/e210200_v1.00.xsd' ,'www.seusite.com.br/Schemas/e210210_v1.00.xsd' ,'www.seusite.com.br/Schemas/e210220_v1.00.xsd' ,'www.seusite.com.br/Schemas/e210240_v1.00.xsd' ,'www.seusite.com.br/Schemas/envCCe_v1.00.xsd' ,'www.seusite.com.br/Schemas/envConfRecebto_v1.00.xsd' ,'www.seusite.com.br/Schemas/envDPEC_v1.01.xsd' ,'www.seusite.com.br/Schemas/envEventoCancNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/envEvento_v1.00.xsd' ,'www.seusite.com.br/Schemas/enviNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/enviNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/eventoCancNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/inutNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/inutNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteCancNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteCancNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteCCe_v1.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConfRecebto_v1.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConsNFeDest_v1.01.xsd' ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v2.01.xsd' ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConsStatServ_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConsStatServ_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteConsultaCadastro_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteDownloadNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/leiauteDPEC_v1.01.xsd' ,'www.seusite.com.br/Schemas/leiauteEventoCancNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/leiauteInutNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteInutNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/leiauteNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/leiauteSRE_v1.00.xsd' ,'www.seusite.com.br/Schemas/nfe_v2.00.xsd' ,'www.seusite.com.br/Schemas/nfe_v3.00.xsd' ,'www.seusite.com.br/Schemas/procCancNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/procCancNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/procCCeNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/procConfRecebtoNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/procEventoCancNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/procEventoNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/procInutNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/procInutNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/procNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/procNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/retCancNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/retCancNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/retConsCad_v2.00.xsd' ,'www.seusite.com.br/Schemas/retConsDPEC_v1.01.xsd' ,'www.seusite.com.br/Schemas/retconsNFeDest_v1.01.xsd' ,'www.seusite.com.br/Schemas/retConsReciNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/retConsReciNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/retConsSitNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/retConsSitNFe_v2.01.xsd' ,'www.seusite.com.br/Schemas/retConsSitNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/retConsStatServ_v2.00.xsd' ,'www.seusite.com.br/Schemas/retConsStatServ_v3.00.xsd' ,'www.seusite.com.br/Schemas/retDownloadNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/retDPEC_v1.01.xsd' ,'www.seusite.com.br/Schemas/retEnvCCe_v1.00.xsd' ,'www.seusite.com.br/Schemas/retEnvConfRecebto_v1.00.xsd' ,'www.seusite.com.br/Schemas/retEnvEventoCancNFe_v1.00.xsd' ,'www.seusite.com.br/Schemas/retEnvEvento_v1.00.xsd' ,'www.seusite.com.br/Schemas/retEnviNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/retEnviNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/retInutNFe_v2.00.xsd' ,'www.seusite.com.br/Schemas/retInutNFe_v3.00.xsd' ,'www.seusite.com.br/Schemas/tiposBasico_v1.03.xsd' ,'www.seusite.com.br/Schemas/tiposBasico_v1.03_OPENSSL.xsd' ,'www.seusite.com.br/Schemas/tiposBasico_v3.00.xsd' ,'www.seusite.com.br/Schemas/V200/PL_006s.zip' ,'www.seusite.com.br/Schemas/V200/PL_006t.ZIP' ,'www.seusite.com.br/Schemas/V300/PL_007b_NFCe.zip' ,'www.seusite.com.br/Schemas/V310/PL_008a.zip' ,'www.seusite.com.br/Schemas/V310/PL_008b.zip' ,'www.seusite.com.br/Schemas/V310/PL_008c.ZIP' ,'www.seusite.com.br/Schemas/xmldsig-core-schema_v1.01.xsd' ] ,'www.seusite.com.br/Schemas/' ,'c:\Schemas'); end; Procedure procedure svn(Arquivos_Online: array of string; PastaOnline , Diretorio_local:string); var lop:Integer; lista:TStringList; NIVEL_PASTA:Integer; procedure Inicia_Processo(Origem:string); var Lop_Pastas:Integer; DIRETORIO_DESTINO:string; Begin Try if (Copy(Diretorio_local, Length(Diretorio_local),1) <> '\') then Diretorio_local:= Diretorio_local+'\'; DIRETORIO_DESTINO := ExtractFilePath(Diretorio_local); if not DirectoryExists(DIRETORIO_DESTINO) then ForceDirectories(DIRETORIO_DESTINO); Origem := StringReplace(Origem, 'http://', '', [rfReplaceAll]); lista := TStringList.Create; ExtractStrings(['/'], ['/'], PChar(Origem), lista); if (lista.Count - 1) > NIVEL_PASTA then Begin for Lop_Pastas := 0 to lista.Count - 1 do Begin if (Lop_Pastas + 1) > NIVEL_PASTA then Begin if (Lop_Pastas <> (lista.Count - 1)) then DIRETORIO_DESTINO := DIRETORIO_DESTINO + lista[Lop_Pastas]+'\'; End; End; End; if not DirectoryExists(DIRETORIO_DESTINO) then ForceDirectories(DIRETORIO_DESTINO); F_Principal.ACBrDownload1.DownloadDest := DIRETORIO_DESTINO; F_Principal.ACBrDownload1.DownloadNomeArq := lista[lista.Count-1]; F_Principal.ACBrDownload1.DownloadUrl := Origem; F_Principal.ACBrDownload1.StartDownload; lista.Free; Except Result := False; F_Principal.MSG_AGUARDE('',''); End; End; Begin lista := TStringList.Create; ExtractStrings(['/'], ['/'], PChar(PastaOnline), lista); NIVEL_PASTA := lista.Count; lista.Free; for lop := 0 to High(Arquivos_Online) do Inicia_Processo(Arquivos_Online[lop]); End;
  22. Tambem estou com erro parecido no XE5 . rtl190.bpl (ao adicionar um componente na form) Serial possivel reistalar rtl190.bpl ?
  23. RESOLVIDO: Agradeço ao Elton pela atenção, irei posta abaixo o metodo utilizado para caso alguem necessite tambem. Modelo: MP-4000 TH FI (Bematech) 1º Instalar o programa winmfd2 2º Clicar Comunicação > Download > Memoria Fiscal 2.1. o Sistema irá gerar um arquivo com estenção MF 3º No programa Winmfd2 clique em arquivo > Relatório da Memoria Fiscal 4º Na tela que se abre, é só importar o arquivo MF gerado e escolher as opções de filtro.
  24. Valores dos Cupons emitidos. Exemplo do dia 15 ao dia 25 total de R$ em cupons emitidos. Se eu copiar a memoria fiscal, lá tem as informações da impressora correto? Más, como ler os arquivos mf / mfd copiados da impressora? Obrigado pelo feedback!
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.