Preencher Ind_Oper Utilizando Acbrnfe2

[Pablo Ricardo]

Estou utilizando o componente para importar xml pra dentro do meu sistema, tem alguns campos do BD que não consigo achar no componente como extrair. Estou populando essa estrutura abaixo.

    CHV_NFE        VARCHAR(44) NOT NULL,
    IND_OPER       VARCHAR(1),
    IND_EMIT       VARCHAR(1),
    COD_PART       VARCHAR(60),
    COD_MOD        VARCHAR(2),
    COD_SIT        VARCHAR(2),
    SER            VARCHAR(3),
    NUM_DOC        VARCHAR(9),
    DT_DOC         TIMESTAMP,
    DT_E_S         TIMESTAMP,
    VL_DOC         DOUBLE PRECISION DEFAULT 0,
    IND_PGTO       VARCHAR(1),
    VL_DESC        DOUBLE PRECISION DEFAULT 0,
    VL_ABAT_NT     DOUBLE PRECISION DEFAULT 0,
    VL_MERC        DOUBLE PRECISION DEFAULT 0,
    IND_FRT        VARCHAR(1),
    VL_FRT         DOUBLE PRECISION DEFAULT 0,
    VL_SEG         DOUBLE PRECISION DEFAULT 0,
    VL_OUT_DA      DOUBLE PRECISION DEFAULT 0,
    VL_BC_ICMS     DOUBLE PRECISION DEFAULT 0,
    VL_ICMS        DOUBLE PRECISION DEFAULT 0,
    VL_BC_ICMS_ST  DOUBLE PRECISION DEFAULT 0,
    VL_ICMS_ST     DOUBLE PRECISION DEFAULT 0,
    VL_IPI         DOUBLE PRECISION DEFAULT 0,
    VL_PIS         DOUBLE PRECISION DEFAULT 0,
    VL_COFINS      DOUBLE PRECISION DEFAULT 0,
    VL_PIS_ST      DOUBLE PRECISION DEFAULT 0,
    VL_COFINS_ST   DOUBLE PRECISION DEFAULT 0,
    XML            BLOB SUB_TYPE 0 SEGMENT SIZE 80

[Juliomar Marchetti]

Bom dia!

os nomes do componente corresponde ao manual e o xml!

quais os campos pois ali tem um lista grande!

[Pablo Ricardo]

Estou montando, esses é os que ainda não achei, por enquanto... Tô nos valores.

IND_OPER VARCHAR(1),
IND_EMIT VARCHAR(1),
IND_FRT VARCHAR(1),

[Pablo Ricardo]

Tenho a função:

procedure TdtmdlImportacao.SaveNFe(CnpjCpf, 
ChvNfe, 
IndOper, 
IndEmit, 
CodPart,
CodMod, 
CodSit, 
Ser, 
NumDoc: string; 
DtDoc, 
DtES: TDateTime; 
VlDoc: Double;
IndPgto: string; 
VlDesc, 
VlAbatNt, 
VlMerc: Double; 
IndFrt: string;
VlFrt, 
VlSeg, 
VlOutDa,
VlBcIcms, 
VlIcms, 
VlBsIcmsSt, 
VlIcmsSt, 
VlIpi, 
VlPis,
VlCofins, 
VlPisSt, 
VlCofinsSt: Double; 
XML: Variant);

Até agora só consegui:

          dtmdlImportacao.SaveNFe(Emit.CnpjCpf,
              procNFe.chNFe,
              IndOper??,
              IndEmit??,
              CodPart??,
              CodMod??,
              CodSit??,
              IntToStr(Ide.serie),
              IntToStr(Ide.nNF),
              Ide.dEmi,
              Ide.dEmi,
              VlDoc??,
              IndPgto??,
              Total.ICMSTot.vDesc,
              VlAbatNt??,
              VlMerc??,
              IndFrt??,
              Total.ICMSTot.vFrete,
              Total.ICMSTot.vSeg,
              Total.ICMSTot.vOutro,
              VlBcIcms??,
              Total.ICMSTot.vICMS,
              VlBsIcmsSt??,
              VlIcmsSt??,
              Total.ICMSTot.vIPI,
              Total.ICMSTot.vPIS,
              Total.ICMSTot.vCOFINS,
              VlPisSt,
              VlCofinsSt,
              dtmdlImportacao.acbrnfMain.NotasFiscais.Items[0].XML,
          );

Alguma luz?

Editado 18 Novembro, 2014 por Pablo Ricardo

[Juliomar Marchetti]

Boa tarde

Primeiro estou chutando pois seu código não me ajuda muito até mesmo por que falta pedaços dele

mas acredito que esteja dentro de um with seu código, apontando para o objeto NFe que descende do TNFe!

veja CodPart estou achando que quer o código do seu cliente, mas não tem campo no xml para guardar ele concorda? ou ele vem no nome do cliente ou terá que fazer um sql com o CNPJ ou CPF pra achar em sua base!

entre outros que seguem na mesma situação os outros campos é somente seguir a regra do xml

[Pablo Ricardo]

Esses que não tem como o participante tudo bem, faço a consulta. Mas o que realmente queria saber era se tem alguma tag dentro do XML ou vou ter que ver pelo natureza de operação pra definir o campo IND_OPER que define se é entrada ou saída. Antes de vir perguntar eu já pesquisei o eschema, os campos. Só preciso me certificar, pq vou ter que fzer mto código pra depois descobrir que tinha outro meio pela ACBr entendeu... vlw pela resposta amigo.

[Juliomar Marchetti]

Sim tem a informação que está querendo saber!

conforme falei é só olhar o fonte

 

NFe.Ide.tpNF   = tnEntrada, tnSaida

[Pablo Ricardo]

Sim tem a informação que está querendo saber!

conforme falei é só olhar o fonte

 

NFe.Ide.tpNF   = tnEntrada, tnSaida

 

Cara, já li o manual, so encontro essa informação nos itens, as que estão faltando.... to ficando doido já.

	dtmdlImportacao.SaveNFe(Emit.CnpjCpf,
		procNFe.chNFe,
		Ide.tpNF,
		IndEmit,
		CodPart,
		Ide.modelo,
		CodSit,
		IntToStr(Ide.serie),
		IntToStr(Ide.nNF),
		Ide.dEmi,
		Ide.dSaiEnt,
		VlDoc,
		Ide.indPag,
		Total.ICMSTot.vDesc,
		VlAbatNt,
		VlMerc,
		IndFrt,
		Total.ICMSTot.vFrete,
		Total.ICMSTot.vSeg,
		Total.ICMSTot.vOutro,
		Total.ICMSTot.vBC,
		Total.ICMSTot.vICMS,
		Total.ICMSTot.vBCST,
		Total.ICMSTot.vST,
		Total.ICMSTot.vIPI,
		Total.ICMSTot.vPIS,
		Total.ICMSTot.vCOFINS,
		VlPisSt,
		VlCofinsSt,
		dtmdlImportacao.acbrnfMain.NotasFiscais.Items[0].XML
	);

        IndEmit,

        CodPart,

        CodSit,

        VlDoc,

        VlAbatNt,

        VlMerc,

        IndFrt,

        VlPisSt,

        VlCofinsSt

 

O código do participante vou pegar comparando com cnpj/cpf. Já tenho no meu BD.

Editado 18 Novembro, 2014 por Pablo Ricardo

[Italo Giurizzato Junior]

Boa tarde Pablo,

 

VlDoc seria o valor total da nota, se sim Total.ICMSTot.vNF tem esse valor.

 

VlAbatNt seria o desconto na nota, se sim Total.ICMSTot.vDesc tem esse valor.

 

IndFrt se refere quem é o responsável pelo frete, se sim transp.modFrete tem essa informação.

 

Você não esta misturando informações sobre os itens e totais da nota?

[Pablo Ricardo]

Bem, estou encerrando essa do cabeçalho das nfe's pra importar os itens, porém já importo do sped nessa estrutura e o sped me fornece esses mesmos dados do cabeçalho.

 

Eu salvava nfe de xml em tabelas separadas das nfes do sped... por isso essa confusão. Vou finalizar esse cabeçalho, testar, caso funcione posto o code aqui pra ajudar quem queira. Muito obrigado novamente.

 

Edit.: http://www.tax-contabilidade.com.br/guias/guiasIndex.php?idGuia=22o molde que importo do sped.

 

23     VL_BC_ICMS_ST     Valor da BC do ICMS substituição tributária.     N     -     02     OC     OC
24     VL_ICMS_ST     Valor do ICMS retido por substituição tributária.     N     -     02     OC     OC
25     VL_IPI     Valor total do IPI.     N     -     02     OC     OC
26     VL_PIS     Valor total do PIS.     N     -     02     OC     OC
27     VL_COFINS     Valor total da COFINS.     N     -     02     OC     OC
28     VL_PIS_ST     Valor total do PIS retido por substituição tributária.     N     -     02     OC     OC
29     VL_COFINS_ST     Valor total da COFINS retido por substituição tributária.     N     -     02     OC     OC

Editado 18 Novembro, 2014 por Pablo Ricardo