"Movimento por ECF". Todos os campos são necessários?

[Andre Rosa]

Olá,

Seguindo os exemplos do ACBr, para o "Movimento por ECF", fiz esta rotina:

          with ACBrPAF.PAF_R  do

          begin

            RegistroR01.NUM_FAB     := FieldByName('NUM_ECF').AsString;

            RegistroR01.MF_ADICIONAL:= FieldByName('MF_ADICIONAL').AsString;

            RegistroR01.TIPO_ECF    := FieldByName('TIPO_ECF').AsString;

            RegistroR01.MARCA_ECF   := FieldByName('MARCA').AsString;

            RegistroR01.MODELO_ECF  := FieldByName('MODELO').AsString;

            RegistroR01.VERSAO_SB   := FieldByName('VERSAO_SB').AsString;

            RegistroR01.DT_INST_SB  := FieldByName('DATAHORA_INSTAL_SB').AsDate;

            RegistroR01.HR_INST_SB  := StrToTime(FormatDateTime('hh:mm', FieldByName('HR_INSTAL_SB').AsDateTime));

            RegistroR01.NUM_SEQ_ECF := StrToInt(FieldByName('NUM_SEQ_ECF').AsString);

            RegistroR01.CNPJ        := RegEmpresa.CGC;

            RegistroR01.IE          := RegEmpresa.InscEstadual ;

            RegistroR01.DT_INI      := edtDe.Date;

            RegistroR01.DT_FIN      := edtAte.Date;

            RegistroR01.NOME_SH     := RegEmpresa.Nm_Empresa;


            with RegistroR02.New do

            begin

              NUM_USU  := StrToInt(FieldByName('USUARIO_ATUAL').AsString);

              CRZ      := StrToInt(FieldByName('CRZ').AsString);

              COO      := StrToInt(FieldByName('COO').AsString);

              CRO      := StrToInt(FieldByName('CRO').AsString);

              DT_MOV   := FieldByName('ECF_DT_MOV').AsDate;

              DT_EMI   := FieldByName('DATAHORA_INI_EMI').AsDate;

              HR_EMI   := StrToTime(FormatDateTime('hh:mm', FieldByName('DATAHORA_INI_EMI').AsDateTime));

              VL_VBD   := StrToCurr(FieldByName('VENDA_BRUTA').AsString);

            end;


            with RegistroR04.New do

            begin

              NUM_USU   := StrToInt(FieldByName('USUARIO_ATUAL').AsString);

              NUM_CONT  := StrToInt(FieldByName('NUM_ECF').AsString);

              COO       := StrToInt(FieldByName('COO').AsString);

              DT_INI    := edtDe.Date;

              SUB_DOCTO := edtAte.Date;

              if FieldByName('ACRES_DESC_TIPO').AsString = '$' then

                TP_DESCTO := 'V'                                                    //todo VERIFICAR

              else

                TP_DESCTO := 'F';

              SUB_ACRES := StrToInt(FieldByName('ECF_SUB_ACRES').AsString);

              if FieldByName('ACRES_DESC_TIPO').AsString = '$' then

                TP_DESCTO := 'V'

              else

                TP_DESCTO := 'F';

              VL_TOT    := StrToInt(FieldByName('TOTALPAGO').AsString);

              CANC      := FieldByName('CANCELADO').AsString;

              VL_CA     := StrToInt(FieldByName('CANC_VALOR').AsString);

              ORDEM_DA  := FieldByName('ECF_ORDEM_DA').AsString;

              NOME_CLI  := FieldByName('NM_CLIENTE').AsString;

              CNPJ_CPF  := FieldByName('CPF').AsString;

            end;


            with RegistroR06.New do

            begin

              NUM_USU:= StrToInt(FieldByName('USUARIO_ATUAL').AsString);

              COO    := StrToInt(FieldByName('COO').AsString);

              GNF    := StrToInt(FieldByName('GNF').AsString);

              GRG    := StrToInt(FieldByName('GRG').AsString);

              CDC    := StrToInt(FieldByName('CDC').AsString);

              DENOM  := FieldByName('DENOMINACAO').AsString;

              DT_FIN := edtAte.Date;

              HR_FIN := StrToTime(FormatDateTime('hh:mm', FieldByName('DATAHORA_FIN_EMI').AsDateTime));

            end;

          end;

Bem, todos os campos realmente são necessários? Pra que serve os campos: ORDEM_DA e DT_MOV? Devo preenche-los com o que?

Obrigado!

[Juliomar Marchetti]

Boa tarde

você chegou a ler o ato cotepe antes de começar a construção dos registros

neste link possui o mesmo http://www.fazenda.gov.br/confaz/confaz ... 025_11.htm

por exemplo o campo citado ORDEM_DA :

"Ordem de aplicação de Desconto e Acréscimo

Indicador de ordem de aplicação de desconto/acréscimo em Subtotal. ‘D’ ou ‘A’ caso tenha ocorrido primeiro desconto ou acréscimo, respectivamente"

então o bom mesmo é ler atentamente todo o ato cotepe

[Andre Rosa]

Boa tarde

você chegou a ler o ato cotepe antes de começar a construção dos registros

neste link possui o mesmo http://www.fazenda.gov.br/confaz/confaz ... 025_11.htm

por exemplo o campo citado ORDEM_DA :

"Ordem de aplicação de Desconto e Acréscimo

Indicador de ordem de aplicação de desconto/acréscimo em Subtotal. ‘D’ ou ‘A’ caso tenha ocorrido primeiro desconto ou acréscimo, respectivamente"

então o bom mesmo é ler atentamente todo o ato cotepe

Eu estava apenas consultando, Juliomar. Obrigado pela dica e pelo link.