Ir para conteúdo
  • Cadastre-se

raosistemas

Membros
  • Total de ítens

    417
  • Registro em

  • Última visita

Tudo que raosistemas postou

  1. j := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; for i := 0 to j do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; if acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sChave := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.chdFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.CNPJCPF; sNome := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.xNome; sIEst := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.IE; case acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU; sEmissao := DateToStr(acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.dhEmi); Valor := acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.vNF; case acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resdFe.cSitdFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelado: Impresso := 'C'; end; end; memoresp.lines.Add('Chave.........: '+schave+chr(13)+ 'Numero........: '+snumero+chr(13)+ 'CNPJ..........: '+scnpj+chr(13)+ 'Razão.........: '+snome+chr(13)+ 'Insc.Est......: '+siest+chr(13)+ 'E/S...........: '+stiponfe+chr(13)+ 'NSU...........: '+snsu+chr(13)+ 'Emissão.......: '+semissao+chr(13)+ 'Valor.........: R$ '+formatfloat('###,###,##0.00',valor)+chr(13)+ 'Status........: '+impresso+chr(13) ) Estou realizando essa consulta por enquanto... estou colocando nsu = 0 pra fazer um teste ok? e está retornando essa lista, porém alguns registros estão vindo em branco... dessa forma, não entendi o pq. Nesse caso os NSUs, 2041,2042,2043,2044,2045 e 2046 retornaram em branco, voltando a preencher no 2047. Chave.........: 35200102369933000186550010001652441367536740 Numero........: 000165244 CNPJ..........: 02369933000186 Razão.........: ACP COMERCIO ATACADISTA DE COMPONENTES ELETRONICOS LTDA Insc.Est......: 115416004118 E/S...........: S NSU...........: 000000000002039 Emissão.......: 16/01/2020 Valor.........: R$ 729,75 Status........: A Chave.........: 35200102658605000108550010001143971277121267 Numero........: 000114397 CNPJ..........: 02658605000108 Razão.........: DISPLAY MAX ELETRONICA LTDA Insc.Est......: 115199680115 E/S...........: S NSU...........: 000000000002040 Emissão.......: 16/01/2020 Valor.........: R$ 1.216,97 Status........: A Chave.........: 35200102658605000108550010001143971277121267 Numero........: CNPJ..........: Razão.........: Insc.Est......: E/S...........: NSU...........: Emissão.......: Valor.........: R$ 0,00 Status........: Chave.........: 35200102658605000108550010001143971277121267 Numero........: CNPJ..........: Razão.........: Insc.Est......: E/S...........: NSU...........: Emissão.......: Valor.........: R$ 0,00 Status........:
  2. Alguém com problemas de impressão em impressoras LaserJet Mxxx? ja é o segundo cliente que pego que não imprime. Alguém já passou por isso? manda o trabalho de impressão, o trabalho some rapidinho e não imprime nada.
  3. apaguei a pasta acbr, criei novamente, identifiquei novamente o reposítório, desativei o bitdefender... e nada!!! Alguém conseguiu resolver o problema? como?
  4. aparentemente acha um virus no bitdefender... alguém passou por isso?
  5. Favor entre em contato comigo por mensagem aqui no forum!
  6. Aparentemente teremos que vincular a nota de entrada com a nota de venda, já que esses valores vem dessa nota. A questão é, o cliente, de posse de desses valores, fazendo uma conta invertida terá o custo da empresa que está efetuando a venda... cruel. Alguém já está preenchendo essas informações? ou só estão mandando com as tags zeradas???
  7. Bom dia, desenvolvi uma solução, inclusive com criação de kits usando os componentes http do proprio delphi.
  8. Meu campo Data é do tipo DATE, não DATETIME, pode ser esse o problema? Meu campo DATAEMISS é do tipo DATE, não DATETIME... pode ser esse o problema?
  9. Com a data do meu campo DataEmiss... mas mesmo assim ele sempre gera com a data da máquina...
  10. Bom dia, em algumas situações, preciso gerar meu xml novamente para consultar (cliente perdeu o arquivo)... sempre quando gero ele gera com a data atual, tem uma forma de gerar com a data do meu campo no banco de dados? quando faço essa rotina, altero a data do computador, gero o xml e volto a data do sistema para a data correta.
  11. Bom dia galera, segundo a contadora, ela quer que meus clientes só enviem o bloco K pra ela. Isso é possível? Não trabalho com fabricantes... apenas revenda... alguém já fez algo nesse sentido?
  12. Bom dia, meus clientes recebem arquivos txt de despachantes aduaneiros... nesse formato sebrae... resumindo eles me mandam esse txt eu faço as adaptações na unha e importo! pensei em criar uma propriedade no componente... formato de importação: webenefix (atual) e sebrae (txt enviados pelos aduaneiros)... vou dar uma olhada nisso!
  13. ocopagador.value := ACBrBoleto1.ListadeBoletos.Objects.Sacado.NomeSacado; estou usando assim... está errado? isso ao ler o retorno...
  14. funcionava normalmente agora está dando erro... alguém sabe quais dlls devo registrar...
  15. Também estou com problemas nas fontes... muito grande no windows 10... o tamanho da fonte está em 100% e mesmo assim mostra errado! Tentei mudar o tipo da fonte para arial mas também não resolveu o problema, ele continua "puxando" times new roman!
  16. Boa noite, enviei uma remessa para o banco do Brasil com 9 títulos, notei que 2 deles não foram registrados. justamente os dois onde a cidade estava como "São Paulo"... com acento... os outros 7 títulos foram registrados, onde estava como "Sao Paulo"
  17. http://blog.oobj.com.br/nfe-4-0-txt-sp/ Me parece que o Estado de São Paulo criou um padrão.
  18. Um Exemplo, venda de um item superfluo (camera fotografica), com destaque de substituicao tributaria de SP para RJ, imaginando que no RJ a fcp seja 4% e que em SP esse item não tenha fcp (apenas bebidas alcoolicas e cigarro)... qual o procedimento? pfcp=0 vazio e pfcpst =4?
  19. Ainda com algumas duvidas referentes ao FCP. Acabei de ver que o FCP ST tem que somar no total da nota, a aliquota de fcp é a mesma para o pfcp e pfcpst?
  20. Recebi hoje uma mensagem estranha dos schemas... vtottribfed, vtottribest nao informados... nao achei essas tags.
  21. Aproveitando a deixa Italo, os valores de Retencao... vBCFCPSTRet... e os demais, tem preenchimento obrigatório? e para importadores? quando devem destacar o ICMS ST dentro do Estado?
  22. Bom dia Juliana, a minha dúvida tem sim, total referência ao tópico, que é a propriedade filtro do componente ACBRboleto, mas mesmo assim obrigado. Se alguém tiver o mesmo problema, a solução foi a seguinte. Na propriedade filtro do acbrboleto, não vi que estava setada como PDF em modo design... quando deixei em nenhum... funcionou tudo certo, o acbrboleto.imprimir... imprimiu... e o acbrboleto.gerarpdf... gerou o pdf. Grande abraço e desculpe qualquer inconveniente. PS: estou utilizando a ultima versão.
  23. aproveitando o tópico, quando deixo em nenhum e dou o comando acbrboleto.imprimir, imprime normalmente porém não gera o pdf quando dou o comando acbrboleto.gerarpdf; quando deixo o filtro em PDF e dou o comando acbrboleto.imprimir... não imprime mas gera o pdf. Quando mudo o filtro do componente em tempo de execução nada acontece.
×
×
  • 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.