wpereira

Juliana, bom dia. Em anexo a unit alterada na linha 1131 Wanderson ACBrBancoBrasil.pas

Bom dia. Verificando o arquivo remessa (GerarRegistroTransacao400) no comando toRemessaAlterarPrazoLimiteRecebimento está gerando o registro com 397 caracteres. No manual: A unit está ignorando as posições 177 a 192. Fiz a alteração aqui na linha 1131: if ATipoOcorrencia = '39' then begin Instrucao1:= '00'; Instrucao2:= '00'; AInstrucao:= '0000'; aDataDesconto:= sDiasBaixa + '000'; <------- end; Funcionou. Confirme aí. Wanderson

Vlw Edimar... Não tinha prestado atenção. Wanderson

Edmar, Boa tarde Estou procurando há tempo esse JEDI VCS para Delphi Rio, mas no link que vc passou (ftp) está pedindo senha. O http já é antigo e sem atualizações. Qual caminho a seguir? Wanderson

Eduardo, Passe por isso ontem, ao fazer uma nota que não tem pagamento. A versão anterior funcionava normal. De repente passou a dar erro de validação. Essa sua solução achei boa. Vamos ver se o pessoal coloca no SVN Vou fazer mais uns testes. Wanderson

Daniel, Bom dia No post de Alexandre Faustinoni do dia 03 (acima) ele fala de um ajuste q fez. Senti a mesma necessidade dele. Fiz uma nota, e informei o pagamento/fatura com data de hoje. Houve erro de validação, pois a data do pagamento é 20/09/18, e a comparação com data de emissão 20/09/18 12:32. Vai cair na excessão. Nas alterações dele, fiz um pouco diferente, em vez de usar o Trunc, usei DateOf (somente na data de emissão): if (nfe.Cobr.Dup.Items[I].dVenc < DateOf(NFe.Ide.dEmi)) then Acho q isso é válido para as duas situações. Citei apenas uma. Qquer coisa, estou a disposição. Wanderson

Juliomar/Ricardo, Obrigado pela atenção. Parabéns pelo trabalho. Wanderson

Ricardo, No LayOut (sefaz) tem a opção de imprimir o valor do frete junto aos totais. Por isso fiz esse ajuste. Estive olhando a impressão no formato de cupom. Esse está em outro formato de desenvolvimento. Acrescentar o frete nele não seria simples. Teria que ver quem está coordenando esses updates para falar na alteração. Achei interessante o formato do A4. Bem simples a implementação. Wanderson

Amigos, Fiz uma alteração no ACBrDANFCeFortesFrA4 para mostrar o valor do frete no 'final' da nota (acrescentando mais uma banda). Alterei também para somar o frete nos acréscimos, pois não aparecia nada. Em anexo as alterações. Se puderem subir para o SVN... Wanderson ACBrDANFCeFortesFrA4.lfm ACBrDANFCeFortesFrA4.pas ACBrDANFCeFortesFrA4.dfm

Pessoal, Vi alguns reclamando do fato de o DANFCeFortes não respeitar as margens informadas. Precisei ajustar para impressora que estava usando. Fiz uma pequena alteração no ACBrDANFCeFortesFr.pas (anexo) para poder ajustar as margens (linhas 451 a 455). Está funcionando. Wanderson ACBrCTeDACTe.zip PS. Não sei porque está aparecendo outros arquivos que enviei.... ACBrDANFCeFortesFr.zip

Italo, antes de tudo um excelente 2015 para todos. Fiz mais 2 alterações no DACTe: O memo das observações (rlmObs) quando possuía mais de 4 linhas ficava aparecendo junto com a linha do rlsQuadro08. Coloquei na linha 1940, final da procedure rlb_09_ObsBeforePrint as seguintes linhas: if (rlmObs.Lines.Count * 11 + 20) > rlsQuadro08.Height then rlsQuadro08.Height := rlmObs.Lines.Count * 11 + 20; No modal rodoviario, quando o tipo de carga é lotação, as informações do Conj. Transportador estavam aparecendo na segunda folha. ajustei a propriedade Height do rlb_07_HeaderItens para 80. Por enquanto é só. Em anexo as alterações. P.S. (off) Fiz uns ajustes no ACBrDANFCeFortesFr, qual o melhor tópico para postar? Wanderson ACBrCTeDACTeRLRetrato.zip

Juliomar, Italo e demais, parabéns pelo trabalho... Quanto ao DACTe para Fortes, fiz algumas correções. Vou listá-las e disponibilizar... ACBrCTEDacteRLRetrato: - No recibo (rodapé), estava cortando informações. Alterei o tamanho da banda. - Para aparecer a numeração de páginas troquei o RLPageNumber por RLSystemInfo. - No RLImage do logotipo, alterei a propriedade Scaled para True, para manter a proprocionalidade do logotipo. - O RLLFoneExpedidor estava mostrando um Label na impressão. - Número do Protocolo não aparecia. Ajustei o tamanho da banda. - Data e Hora da impressão não aparecia, Acrescentado um RLSystemInfo ACBrCTeDAEventoRL: Dava erro de propriedade não existente: LCCVersion Após a impressão do evento, ocorria uma excessão. O RLCTeEvento é destruído após o Finally, e também no FormDestroy. Fiz como no ACBrCteDACTeRLLClass. Teve tambem alguns ajustes por conta de caracteres acentuados (UTF-8) e outros que não me lembrei de anotar. Em anexo as alterações que fiz. Abraços e parabéns pelo trabalho. Wanderson. ACBrCTeDACTe.zip ACBrCTeDACTe.zip

Boa noite, Já faz um bom tempo que não acompanho o fórum, mas hj, preparando mais uma homologação, achei um erro nesta unit. No método GetDadosUltimaReducaoZ está trazendo somente as 8 primeiros totalizadores parciais. A impressora que estou usando está com 11. Pesquisando a unit, cheguei na linha 3259: for nAux := 0 to 7 do PElas observações do retorno (linha 3187 em diante) vi que são 16 alíquotas. Então alterei a linha 3259 para: for nAux := 0 to 15 do Com isso, resolveu o meu problema com os dados da última redução Z. Abraços, e parabéns pelo trabalho... Wanderson