Mariana Domingues

Bom dia! Eu tenho a mesma dúvida pois quando faço "With ACBreSocial.Eventos.Tabelas.S1010.Add Do" é criado um arquivo por rubrica e não consigo fazer sair mais de uma rubrica por arquivo de jeito nenhum... If (Not jvmm1010.IsEmpty) Then Begin jvmm1010.First; While (Not jvmm1010.Eof) Do Begin AtualizaDadosS1010Aux; With ACBreSocial.Eventos.Tabelas.S1010.Add Do Begin evtTabRubrica.Sequencial := RetornaSequencia('S1010'); If (rgTipoAmb.ItemIndex = 0) Then evtTabRubrica.IdeEvento.TpAmb := pcesConversaoeSocial.taProducao Else evtTabRubrica.IdeEvento.TpAmb := pcesConversaoeSocial.taProducaoRestrita; evtTabRubrica.IdeEvento.ProcEmi := TpProcEmi(0); evtTabRubrica.IdeEvento.VerProc := '1.0'; If (cbxS1010_tpInsc.ItemIndex = 0) Then evtTabRubrica.IdeEmpregador.TpInsc := tiCNPJ Else evtTabRubrica.IdeEmpregador.TpInsc := tiCPF; evtTabRubrica.IdeEmpregador.NrInsc := mskS1010_nrInsc.Text; Case rdgOperacao.ItemIndex Of 0 : evtTabRubrica.ModoLancamento := mlInclusao; 1 : evtTabRubrica.ModoLancamento := mlAlteracao; 2 : evtTabRubrica.ModoLancamento := mlExclusao; End; evtTabRubrica.infoRubrica.IdeRubrica.CodRubr := edtS1010_codRubr.Text; evtTabRubrica.infoRubrica.IdeRubrica.ideTabRubr := edtS1010_ideTabRubr.Text; evtTabRubrica.infoRubrica.IdeRubrica.IniValid := mskS1010_iniValid.Text; evtTabRubrica.infoRubrica.IdeRubrica.FimValid := mskS1010_fimValid.Text; evtTabRubrica.infoRubrica.DadosRubrica.dscRubr := edtS1010_dscRubr.Text; evtTabRubrica.infoRubrica.DadosRubrica.natRubr := StrToInt(trim(Copy(cbxS1010_natRubr.Text, 01, 04))); evtTabRubrica.infoRubrica.DadosRubrica.tpRubr := tpTpRubr(cbxS1010_tpRubr.ItemIndex +1); evtTabRubrica.infoRubrica.DadosRubrica.codIncCP := tpCodIncCP(cbxS1010_codIncCP.ItemIndex +1); evtTabRubrica.infoRubrica.DadosRubrica.codIncIRRF := tpCodIncIRRF(cbxS1010_codIncIRRF.ItemIndex +1); evtTabRubrica.infoRubrica.DadosRubrica.codIncFGTS := tpCodIncFGTS(cbxS1010_codIncFGTS.ItemIndex +1); evtTabRubrica.infoRubrica.DadosRubrica.codIncSIND := tpCodIncSIND(cbxS1010_codIncSIND.ItemIndex +1); evtTabRubrica.infoRubrica.DadosRubrica.observacao := edtS1010_observacao.Text; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoCP.Clear; If (Trim(edtS1010_ideProcessoCP_nrProc.Text) <> '') Then Begin with evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoCP.Add do begin tpProc := tpTpProc(cbxS1010_ideProcessoCP_tpProc.ItemIndex +1); nrProc := edtS1010_ideProcessoCP_nrProc.Text; ExtDecisao := tpExtDecisao(cbxS1010_ideProcessoCP_extDecisao.ItemIndex +1); codSusp := edtS1010_ideProcessoCP_codSusp.Text; end; End; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoIRRF.Clear; If (Trim(cbxS1010_IRRPF_nrProc.Text) <> '') Then Begin with evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoIRRF.Add do begin evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoIRRF.Add.nrProc := cbxS1010_IRRPF_nrProc.Text; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoIRRF.Add.codSusp := cbxS1010_IRRPF_codSusp.Text; end; End; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoFGTS.Clear; If (Trim(gbx1010_ideProcessoFGTS_nrProc.Text) <> '') Then Begin with evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoFGTS.Add do begin evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoFGTS.Add.nrProc := gbx1010_ideProcessoFGTS_nrProc.Text; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoFGTS.Add.codSusp := gbx1010_ideProcessoFGTS_codSusp.Text; end; End; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoSIND.Clear; If (Trim(gbx1010_ideProcessoSIND_nrProc.Text) <> '') Then Begin with evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoSIND.Add do begin nrProc := gbx1010_ideProcessoSIND_nrProc.Text; codSusp := gbx1010_ideProcessoSIND_codSusp.Text; end; End; if (evtTabRubrica.ModoLancamento = mlAlteracao) then begin evtTabRubrica.infoRubrica.NovaValidade.IniValid := mskS1010_iniValid.Text; evtTabRubrica.infoRubrica.NovaValidade.FimValid := mskS1010_fimValid.Text; end; end; jvmm1010.Next; End; End;

Mesmo com 1 me da o erro de numero de parcelas, tenho que ver onde estou errando :/ Nem vi que tinha isso ""CamposFatObrigatorios" não estou fazendo nada com ele

Esta validando desta forma ai

Atualizei o Trunk2, os schemas pelo site da receita e estou levando assim:

Se der erro no uTrib no schema de tipos basicos altere de "[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}" para "[!-ÿ]{1}[ -ÿ]*[!-ÿ]{1}|[!-ÿ]{1}" Ao tentar enviar meu xml da este erro, alguem sabe que tag é esta?

Atualizei o trunk2 e os schemas direto pelo site da fazenda e aqui esta validando certinho

Povo bonito, atualizem os schemas que fica tudo certo http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8=

É ridículo mas se colocar 0.01 passa na homologação

Boa tarde! Atualizei ontem e o problema persiste, na verdade, mesmo com os schemas locais no C:\ só que em outro diretório meu .exe de exemplo apresenta a mensagem de "Schema inválido", mas só de ter funcionado mesmo que nos diretórios do exemplo pra mim já foi um grande alivio pois estava ha dias quebrando a cabeça com isso ...

o único problema que tenho enfrentado é quanto a varias requisições de CNPJ feitas na receita, depois de 5 todos passam a vir em branco, mas estou analisando pra ver se encontro uma forma de contornar isto...

Edrian, muito obrigada! Você me salvou s2