Ir para conteúdo
  • Cadastre-se

dev botao

Ajuste Registro 0000 e C380


  • Este tópico foi criado há 4040 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde amigos,

No registro 0000 o campo 12 - Suframa não é obrigatório e não necessita ser exportado quando não há valor. Atualmente ele gera "000000000" quando vazio.

No arquivo ACBrEPCBloco_0_Class.pas, na linha 376, ao invés de "LFill( SUFRAMA, 9 ) +", "LFill( SUFRAMA ) +".

No registro C380 os campos 05 - Num_Doc_Ini e 06 - Num_Doc_Fin a exportação do registro não é obrigatório e ele pode ser exportado nulo.

No arquivo ACBrEPCBloco_C_Class.pas, na linha 1590, ao invés de "LFill(NUM_DOC_INI,6) +", "LFill(NUM_DOC_INI,6,True) +", na linha 1591 ao invés "LFill(NUM_DOC_FIN,6) +", "LFill(NUM_DOC_FIN,6,True) +".

Muito obrigado pela atenção.

Abraços.

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...
  • Consultores

Boa tarde amigos,

No registro 0000 o campo 12 - Suframa não é obrigatório e não necessita ser exportado quando não há valor. Atualmente ele gera "000000000" quando vazio.

No arquivo ACBrEPCBloco_0_Class.pas, na linha 376, ao invés de "LFill( SUFRAMA, 9 ) +", "LFill( SUFRAMA ) +".

 

Vou precisar analisar isso com calma. O problema é que se tirar o parâmetro 9, então se alguém passar como código do Suframa um número com menos de 9 dígitos, o componente não vai completar com zeros. Isso geraria um erro no arquivo.

 

No registro C380 os campos 05 - Num_Doc_Ini e 06 - Num_Doc_Fin a exportação do registro não é obrigatório e ele pode ser exportado nulo.

No arquivo ACBrEPCBloco_C_Class.pas, na linha 1590, ao invés de "LFill(NUM_DOC_INI,6) +", "LFill(NUM_DOC_INI,6,True) +", na linha 1591 ao invés "LFill(NUM_DOC_FIN,6) +", "LFill(NUM_DOC_FIN,6,True) +".

Isso daí eu subi na revisão 4917. Favor testar.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores

Conforme o código abaixo, eu fiz uma pequena correção, acredito que vá resolver. Revisão 4918

       Add( LFill( '0000' ) +
            LFill( CodVerToStr(COD_VER) ) +
            LFill( strTIPO_ESCRIT ) +
            LFill( strIND_SIT_ESP ) +
            LFill( strNUM_REC_ANTERIOR) +
            LFill( DT_INI ) +
            LFill( DT_FIN ) +
            LFill( NOME ) +
            LFill( CNPJ ) +
            LFill( UF ) +
            LFill( COD_MUN, 7 ) +
            IfThen(SUFRAMA = '', LFill( SUFRAMA) , LFill( SUFRAMA, 9 ) ) + // Preencher Suframa apenas se tiver algum número
            LFill( strIND_NAT_PJ ) +
            LFill( strIND_ATIV ) );

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 4040 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.

The popup will be closed in 10 segundos...