Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Ajuste Registro 0000 e C380


_asseinfo
  • Este tópico foi criado há 3369 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 to comment
Share on other sites

  • 3 months later...
  • 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 to comment
Share on other 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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.