Painel de líderes

Boa tarde Jucimara, Eu pedi para você anexar o XML e não colar o seu conteúdo como parte do texto da postagem, pois desta forma fica prejudicado a analise do mesmo.

Boa noite, Coloque um ponto de parada no tratamento do retorno e veja se consegue identificar o motivo da propriedade não estar preenchida. ../trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/ISSGoiania.Provider.pas procedure TACBrNFSeProviderISSGoiania200.TratarRetornoEmitir( Response: TNFSeEmiteResponse); var Document: TACBrXmlDocument; AErro: TNFSeEventoCollectionItem; ANode, AuxNode: TACBrXmlNode; ANodeArray: TACBrXmlNodeArray; NumRps: String; ANota: TNotaFiscal; I: Integer; begin Document := TACBrXmlDocument.Create; . . . for I := Low(ANodeArray) to High(ANodeArray) do begin ANode := ANodeArray[I]; AuxNode := ANode.Childrens.FindAnyNs('Nfse'); if not Assigned(AuxNode) or (AuxNode = nil) then Exit; AuxNode := AuxNode.Childrens.FindAnyNs('InfNfse'); if not Assigned(AuxNode) or (AuxNode = nil) then Exit; with Response do begin NumeroNota := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); CodigoVerificacao := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); end; Teste também se o método ConsultaNFSeporRps retorna o código de verificação.

Boa noite, Utilize o método GerarToken. Veja no programa de exemplo, na aba Outros.

Boa tarde. Este tópico mostra orientações de como verificar se uma cidade é atendida pelo componente No caso da cidade de Ibiraçu/ES. Caso tenha as informações para esta cidade, você pode seguir a orientação deste tópico para alterar e testar.

Seguem as units e o patch do svn, caso alguém queira analisar, devido a falta de tempo, implementei somente os endpoints para atender a minha necessidade, as funcionalidade básicas estão implementadas, caso alguém queira incluir os outros endpoints, como alterar vencimento, desconto, etc, fique a vontade, caso contrario implementarei conforme sobrar um tempo aqui. Está funcionando o boleto híbrido inclusive, com o retorno do EMV. Tive que alterar a ACBrBoletoWS.Rest.pas para incluir o HttpResultCode 207 como Result válido, por que o Sicoob retorna ele, na inclusão de boletos. Alterei também a ACBrBoletoWS.pas, pois ao chamar TBoletoWS.Clear, o field FBoleto não era setado, passando a ser Nil; ACBrBoletoW_Bancoob.pas ACBrBoletoWS.Rest.pas ACBrBoletoWS.pas ACBrBoletoRet_Bancoob.pas Sicoob Api.patch

Conseguir USERNAME = nome do usuario conexao remota CLIENTNAME = nome da maquina que abrio a conexao remota USERPROFILE = caminho da pasta de meus documentos do usuario Edit1.Text := GetEnv('USERNAME'); function TForm1.GetEnv(Variable: string): string; var Buffer : Integer; begin Buffer := GetEnvironmentVariable(PChar(Variable), nil, 0); if Buffer > 0 then begin SetLength(Result, Buffer - 1); GetEnvironmentVariable(PChar(Variable), PChar(Result), Buffer); end else Result := ''; end; essa é pra saber se esta em uma conexao remota ou desktop procedure TForm1.Button1Click(Sender: TObject); begin if IsRemoteSession=True then Edit1.Text:='Conexao Remota' else Edit1.Text:= 'Desktop' ; end; function TForm1.IsRemoteSession: boolean; var res : integer; begin res := GetSystemMetrics (SM_REMOTESESSION); Result := (res <> 0); end;