Pelo programa exemplo, não fiz, mas copiei toda a lógica do Programa exemplo para o meu sistema, senão teria que fazer duas vezes,
ou seja, coloquei igual ao Exemplo e fui alimentando com os dados do meu sistema.
ele passa pelos métodos do ChecarResposta, mas o Protocolo sempre está vazio.
voParams := configuraComponenteNfsex(viParams);
if noEmpty(gItem('DS_ERRO', voParams))then begin
mensagem(gItem('DS_ERRO', voParams));
exit;
end;
vDsErro := '';
alimentarComponente(viParams);
if vDsErro <> '' then
begin
Result := pItem('DS_ERRO', vDsErro + '->(NFSe.geraNfse)', Result);
exit;
end;
{
O método Emitir possui os seguintes parâmetros:
aNumLote (String)
aModEnvio [meAutomatico, meLoteAssincrono, meLoteSincrono, meUnitario, meTeste]
aImprimir (Boolean) Valor Padrão = True, portanto imprime o DANFSE
}
NfseX.Emitir(vNrLote);
vDsErro := '';
ChecarResposta(tmRecepcionar); <= Aqui também é exatamente igual ao programa exemplo
if noEmpty(vDsErro)then begin
Result := pItem('DS_ERRO', vDsErro, Result);
exit;
end;