-
Posts
315 -
Joined
-
Last visited
-
Days Won
1
Souza last won the day on April 4
Souza had the most liked content!
About Souza

Contact Methods
-
Website URL
www.erasoft.com.br
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
Souza's Achievements
-
Perfeito, mas como o prazo para entrada em produção é mês 05/22 se fez necessário esse ajustes, para não parar o processo de faturamento. Mas relamente é necessário informar na ficha do produto a informação correta do código da Anvisa.
-
Bom dia. basta informar ao componente as tags. Medicamento := Prod.med.Add; Medicamento.cProdANVISA := 'ISENTO'; Medicamento.vPMC := 0;
-
Souza changed their profile photo
-
Boa tarde amigo. tenho algo parecido. Vc define os parametros fiscais para calcular de origem do NCM ou da CFOP e ou misto das 2.
-
Não tive sucesso. Implementei o componente do Thullio TWebChart, ele não tem todos os recuros do GMLib, mas consigo exibir o mapa, os marcadores..
-
mesmo problema. o seu esta funcionando normal ?
-
Sim, erro de Script..
-
Não foi possível concluir a operação. Erro: 80020101 Bom dia senhores, estou tendo esse erro na minha aplicação, alguem sabe dizer o que pode ser?
-
Boa tarde, ainda continuo com o mesmo problema. Enviando pelo portal da gnreonline, vai normalmente. testei com um sistema web, e a guia foi emitidada. mais alguem com esse problema, par ao estado do MS ? Att: Souza.
-
Boa tarde, desde o mês 10 estou com esse problema para o estado do MS Mais alguem vem passando por isso. versão 2.0, segue em anexo arquivos xml de comunicação. 20211110155951-env-lot.xml 20211110155951-rec.xml 2137978975-ped-rec.xml 2137978975-pro-rec.xml
-
Boa tarde Senhores. Obtive uma rejeição no arquivo de remessa 240 posições., segue print da resposta do banco e manual. Encontrei a linha em que a unit ACBrBancoSicred 1979 a 1990 if Mensagem.Count > 0 then begin Result := Result + PadRight(Copy(Mensagem[0],1,40),40); // 100-139 Menssagem livre if Mensagem.Count > 1 then Result := Result + PadRight(Copy(Mensagem[1],1,40),40) // 140-179 Menssagem livre else Result := Result + Space(40); end else Result := Result + Space(80); Segundo o manual, essas posições deveram ser vazias. MANUAL CNAB 240.pdf
-
Boa tarde senhores, me deparei com a seguinte situação. Temos um cliente que usa a impressão dos documentos da empresa no modo DUPLEX (Frente e Verso), mas nos documentos fiscais DANFE, NFCe, etcc. somente frente , acontece que a impressão do ACBr respeita a configuração DUPLEX da impressora. Existe algum método via ACBr ou proprio Delphi, para contornar esse problema ? PS: não existe a possibilidade de usar outra impressora, tendo em vista que o sistema anterior do meu cliente, não tinha esse problema. Utilizo FORTES e ou FAST para impressão dos documentos.. ATT Souza
-
Boleto Banco do Brasil (dias recebimento apos vencimento)
Souza replied to Paulo Cezar Guimarães's topic in ACBrBoleto
Boa tarde José, baixei as modificações. No tipo de ocorrência 01-Registro, teste efetuado com sucesso, sem ressalvas. No tipo de ocorrência 39-Prazo Limite para Recebimento de Título Vencido, não esta enviando o prazo limite informado. sempre é enviado "zeros", fiz uma alteração no código, gostaria que fosse revisado. d) Quando o campo “Comando” (21.7) for igual “38” ou “39”: Posição Conteúdo 174 a 176 Prazo Limite para Recebimento de Título Vencido - Código/Comando de Remessa for igual “38”, informar zeros; - Código/Comando de Remessa for igual “39”, informar a quantidade de dias após o vencimento do título a ser observado pelo Banco para recebimento dos boletos de cobrança vencidos. Após o período determinado, o boleto somenteACBrBancoBrasil.pas poderá ser liquidado junto a própria empresa. 177 a 192 Preencher com Zeros sDiasBaixa :='000000'; sDiasBaixa := ' '; if ((ATipoOcorrencia = '01') or (ATipoOcorrencia = '39')) and (Max(DataBaixa, DataLimitePagto) > Vencimento ) then sDiasBaixa := IntToStrZero(DaysBetween(Vencimento, Max(DataBaixa, DataLimitePagto)), 3); if ATipoOcorrencia = '39' then begin Instrucao1:= '00'; Instrucao2:= '00'; AInstrucao:= '0000'; aDataDesconto:= sDiasBaixa; end; -
Boleto Banco do Brasil (dias recebimento apos vencimento)
Souza replied to Paulo Cezar Guimarães's topic in ACBrBoleto
Bom dia, fiz alterações na unit ACBrBancoBrasil.pas Método GerarRegistroTransacao400 1085. wDiasPagto := 0; 1086. if (ATipoOcorrencia = '01') and ( DataLimitePagto > Vencimento ) then 1087. begin 1088. wDiasPagto:= DaysBetween(Vencimento, DataLimitePagto); 1089. aDiasPagto:= IntToStrZero(wDiasPagto ,3); 1090. end 1091. else 1092. aDiasPagto:= Space(3); 1175. aDiasPagto + //Qtd dias Recebimento após vencimento ACBrBancoBrasil.pasMétodo GerarRegistroTransacao240 678. nDiasBaixa := 0; 679. if (ATipoOcorrencia = '01') and ( DataLimitePagto > Vencimento ) then 680. begin 681. nDiasBaixa := DaysBetween(Vencimento, DataLimitePagto); 682. aDiasBaixa := IntToStrZero(nDiasBaixa,3) ; 683. end 684. else 685. aDiasBaixa := Space(3); 738. aDiasBaixa + // 225 a 227 - Campo não tratado pelo BB [ Alterado conforme instruções da CSO Brasília ] {27-07-09} Segue anexo da unit alterada.