Renato Rubinho

Boa tarde, @Juliomar Marchetti, segue o fonte sem os IFDefs e incorporado no projeto de exemplo o controle dos parâmetros via .ini "clonado" do Demo de NFe @Leivio Fontenele, consegue fazer uma teste para validar ? Não sei se é meu ambiente, mas na geração do XML o valor de "URI" da tag "Reference" fica em branco conforme exemplo que estou enviando (E_Reinf_Soap-15045_111.xml). É a única diferença perante o seu exemplo (E_Reinf_Soap-175429_9.xml) que indicou que funcionou. ACBrReinfD7.rar

Ok @Juliomar Marchetti Utilizo D7 ainda, fiz com os ifdefs para não atropelar o original do @Leivio Fontenele, mas está bem simples para tirar.

Boa tarde @Leivio Fontenele e @Juliomar Marchetti, Compatibilizei o fonte com o Delphi 7 para iniciar o desenvolvimento e testes aqui no sistema. Falta testar a transmissão porque estou sem certificado no momento. 1. Mantidos os códigos originais utilizando {$IFDEF COMPILER14_UP}; 2. Criadas classes com TObjectList, no padrão do ACBr, para suprir as situações das listas com Generics; 3. No ACBrReinfWebServices, não encontrei alternativa ainda para o ISO8601ToDate. Para o UTF8ToString, utilizei o UTF8ToAnsi; Abraççç, ACBrReinfD7UP.rar

Bom dia, Efetuados os testes nos fontes e estão OK. Obrigado, Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho

Bom dia, Seguem mais dois ajustes (Um deles é no ECD): 1. ECF Y640, mesma situação dos itens do post anterior procedure TBloco_Y.WriteRegistroY640; LFill(COND_DECL, 1) 2. ECD K001 O validador acusa que o registro K001 é inválido para o tipo de escrituração quando Registro0000.IND_ESC_CONS = "N". Adicionado tratamento para gerá-lo apenas quando Registro0000.IND_ESC_CONS também estiver preenchido com "S". Abraççç, Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho ACBr002.rar

Boa tarde, Na geração do arquivo do ECF, alguns campos inteiros estão entrando no LFill de Data, gerando a informação errada. Verifiquei neste post LFill Integer x Data que isso já ocorreu em alguns situações. Para corrigir, passei o tamanho do campo no segundo parâmetro do LFill e garantiu a utilização da função correta nos itens a seguir: 1. 0020 procedure TBloco_0.WriteRegistro0020; LFill(IND_QTE_SCP, 3) 2. Y620 procedure TBloco_Y.WriteRegistroY620; LFill(IND_RELAC, 1) LFill(PAIS, 3) 3. M010 procedure TBloco_M.WriteRegistroM010(RegM001: TRegistroM001); LFill(COD_LAN_ORIG, 6) 4. L100 procedure TBloco_L.WriteRegistroL100(RegL030: TRegistroL030); LFill(NIVEL, 3) 5. L300 procedure TBloco_L.WriteRegistroL300(RegL030: TRegistroL030); LFill(NIVEL, 3) Seguem os fontes em ACBr.rar. Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho ACBr.rar

Boa tarde, Seguem ajustes no ECF. 1. ACBrECFBloco_C.pas 1.1. TRegistroC040 - NIRE: alterado para Int64, para aceitar códigos acima de 2147483647 - Create/Destroy: Criados e destruídos registros filhos C100, C150 e C350 2. ACBrECFBloco_0_Class 2.1. WriteRegistro0010; - COD_QUALIF_PJ: Formatado com LFill( , 2) 3. ACBrECFBloco_Y_Class 3.1. WriteRegistroY672 - IND_REG_APUR: Removido na versão 3 4. ACBrECFBloco_K_Class 3.1. WriteRegistroK355 - REG: gerava "k355", com a letra em minúscula Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho ACBrECFBloco_K_Class.pas ACBrECFBloco_Y_Class.pas ACBrECFBloco_0_Class.pas ACBrECFBloco_C.pas

Bom dia, Testado. OK. Obrigado, Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho

Boa tarde, Corrigido Registro 0005, pois sobrescrevia NOMERESP fixo como "TESTE". Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho ACBrLFDBloco_0_Class.pas

Boa tarde, Desenvolvido Bloco_K. Obs: Atenção, pois nos manuais da v5 disponibilizados até 05/2017, os Registros K200 e K210 estão com o nível hierárquico errado. CERTO - VALIDADOR ------------------- 1:K001 2: K030 3: K100 4: K110 5: K115 3: K200 -- NIVEL 3 CERTO 4: K210 -- NIVEL 4 CERTO 3: K300 4: K310 5: K315 1:K990 ERRADO - MANUAL ---------------- 1:K001 2: K030 3: K100 4: K110 5: K115 2: K200 -- NIVEL 2 ERRADO 3: K210 -- NIVEL 3 ERRADO 3: K300 4: K310 5: K315 K990 Renato Rubinho Analista de Sistemas http://linkedin.com.br/in/renatorubinho ACBrSpedContabil.pas ACBrECDBloco_K_Class.pas ACBrECDBloco_K.pas

Boa tarde, Desenvolvida geração dos Registros A025, B440, B450 e B490. Corrigido B430. ACBrLFDBloco_B_Class.pas ACBrLFDBloco_A.pas ACBrLFDBloco_A_Class.pas ACBrLFD.pas