sostenescg

entrei agora no "https://desenvolvedores.caixa.gov.br", e ainda está do mesmo jeito, como vocês conseguiram?

Consegui agora, pela dica do ricardo_casc! Funcionou Direitinho!

Também só não estou conseguindo pegar o pesoB pelo componente ACBrNFe1.NotasFiscais. Poderiam me ajudar! *Parte do Código do XML da que contem o peso NF-e: <total> <ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>3726.73</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>3726.73</vNF> <vTotTrib>0.00</vTotTrib> </ICMSTot> </total> <transp> <modFrete>1</modFrete> <transporta> <CNPJ></CNPJ> <xNome></xNome> <IE></IE> <xEnder></xEnder> <xMun></xMun> <UF></UF> </transporta> <vol> <qVol>3</qVol> <esp>CAIXA</esp> <marca>ESTRELA</marca> <pesoL>14.000</pesoL> <pesoB>15.000</pesoB> </vol> </transp>

Obá!!! Deu Certo!!! Olá Ítalo, Obrigado desde já pela ajuda!!! Eu olhei agora e está visualizar := FALSE, alterei pra TRUE pra ver o que acontecia... Ele estava mostrando a mensagem do Status, dos dois modos da configuração do Componente... Procurei se estava sendo setado via código, e achei assim: ACBrMDFe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked; removi esta linha e deu certo!!! Muito Obrigado Ítalo!!!

Eu gostaria de que essa mensagem não aparecesse ao solicitar o status, alguém sabe como? Vou citar a procedure do botão, do código exemplo do AcBr_MDF-e, vejam abaixo: procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject); begin ACBrMDFe1.WebServices.StatusServico.Executar; MemoResp.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS); memoRespWS.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS); LoadXML(MemoResp, WBResposta); PageControl2.ActivePageIndex := 5; MemoDados.Lines.Add(''); MemoDados.Lines.Add('Status Serviço'); MemoDados.Lines.Add('tpAmb: ' +TpAmbToStr(ACBrMDFe1.WebServices.StatusServico.tpAmb)); MemoDados.Lines.Add('verAplic: ' +ACBrMDFe1.WebServices.StatusServico.verAplic); MemoDados.Lines.Add('cStat: ' +IntToStr(ACBrMDFe1.WebServices.StatusServico.cStat)); MemoDados.Lines.Add('xMotivo: ' +ACBrMDFe1.WebServices.StatusServico.xMotivo); MemoDados.Lines.Add('cUF: ' +IntToStr(ACBrMDFe1.WebServices.StatusServico.cUF)); MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRecbto)); MemoDados.Lines.Add('tMed: ' +IntToStr(ACBrMDFe1.WebServices.StatusServico.TMed)); MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRetorno)); MemoDados.Lines.Add('xObs: ' +ACBrMDFe1.WebServices.StatusServico.xObs); end; -------------------------------------------------------------------------------------------------------------------- Se eu deixar a procedure da forma abaixo, ela também continua aparecendo: procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject); begin ACBrMDFe1.WebServices.StatusServico.Executar; end; -------------------------------------------------------------------------------------------------------------------- Alguém sabe?

Olá, esse tópico foi finalizado? Hoje alguém já encontrou uma solução?