Painel de líderes

Boa tarde @willian_delan, É sempre bom manter os fontes atualizados, pois enviamos melhorias e correções praticamente todos os dias.

Agradeço a atenção de todos. Segui as orientações de todos, Rodei o bat para apagar os antigos. Baixei o trunc novamente reinstalei e arrumei a mascara Agora está funcionando corretamente. Gratidão

Eu li, só não sabia que através do IndPres=1 era possível essa operação, mais sempre estamos aprendendo algo novo por aqui.

note que tu postou o trecho do código com a validação e a mesma está ali por conta de alguma situação do manual creio que tenha visto alguma ressalva nele?

Olá Pessoal, Algumas units do componente ACBrNFe foram reescritas e se encontram em outra pasta com um novo nome, portanto as anteriores deixaram de serem utilizadas pelo componente e consequentemente estão sendo removidas do SVN. Units em desuso que estão sendo removidas estavam na pasta ...Fontes\ACBrDFe\ACBrNFe\PCNNFe, são elas: pcnAdmCSCNFCe, pcnConsSitNFe, pcnEnvEventoNFe, pcnEventoNFe, pcnInutNFe, pcnRetAdmCSCNFCe, pcnRetConsSitNFe, pcnRetEnvEventoNFe e pcnRetInutNFe. As novas units que o componente esta utilizando se encontram na pasta ...\Fontes\ACBrDFe\ACBrNFe\Base\Servicos, são elas: ACBrNFe.AdmCSC, ACBrNFe.ConsSit, ACBrNFe.EnvEvento, ACBrNFe.EventoClass, ACBrNFe.Inut, ACBrNFe.RetAdmCSC, ACBrNFe.RetConsSit, ACBrNFe.RetEnvEvento e ACBrNFe.RetInut. Caso você tenha informado em "uses" uma das units que foram removidas você deve trocar o nome dela pela sua equivalente, conforme a relação: pcnAdmCSCNFCe deve ser substituída por ACBrNFe.AdmCSC pcnConsSitNFe deve ser substituída por ACBrNFe.ConsSit pcnEnvEventoNFe deve ser substituída por ACBrNFe.EnvEvento pcnEventoNFe deve ser substituída por ACBrNFe.EventoClass pcnInutNFe deve ser substitúida por ACBrNFe.Inut pcnRetAdmCSCNFCe deve ser substituída por ACBrNFe.RetAdmCSC pcnRetConsSitNFe deve ser substituída por ACBrNFe.RetConsSit pcnRetEnvEventoNFe deve ser substituída por ACBrNFe.RetEnvEvento pcnRetInutNFe deve ser substituída por ACBrNFe.RetInut

Boa tarde, Passando só para informar que aqui em GO em Homologação finalmente ajustaram o ambiente e passou conforme o exemplo do @MarceloDev Isso depois de reencaminhar o e-mail ao órgão responsável daqui, no início da semana estava da mesma forma, dando rejeição e então depois do novo e-mail me responderam hoje pela manhã para testar e finalmente ajustaram o ambiente e funcionou.

Bom dia @Fabrício G. Araújo Aqui no Paraná acabamos que tivemos que voltar como estava antes... Iniciamos caíndo na regra de validação da NT 1.10 como mencionei no início do Post. Ainda na quinta feira dia 28/03/2024 já não estava mais validando o xml como eu havia orientado. Os testes em produção passou conforme imagem acima e não precisamos, até o momento, atualizar os schemas...

Boa tarde, tenta essa função function SerialNum(): string; var DriveLetter : string; NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of AnsiChar; VolumeSerialNumber: DWORD; begin try DriveLetter := GetEnvironmentVariable('SystemDrive'); GetVolumeInformation(PChar(DriveLetter + '\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := IntToHex(VolumeSerialNumber, 8); except Result := '????????'; end; end;