gutopmc
-
Total de ítens
182 -
Registro em
-
Última visita
Community Answers
-
gutopmc's post in Impressão 'C.P. ANVISA ' na tag referente a cprodanvisa was marked as the answer
Achei aonde esta a impressão: Fontes/ACBrDFe/ACBrNFe/DANFE/ACBrNFeDANFEClass.pas. Vou alterar no fonte!
for i := 0 to med.Count - 1 do
begin
if (aNFE.infNFe.Versao >= 4) then
Result := Result + 'C.P. ANVISA ' + med.Items[i].cProdANVISA + sQuebraLinha
else
begin
if (dm_nLote in FDetMedicamentos) then
Result := Result + 'LOTE: ' + med.Items[i].nLote + sQuebraLinha;
if (dm_qLote in FDetMedicamentos) then
Result := Result + 'QTD: ' + FormatFloatBr(med.Items[i].qLote, FloatMask(3)) + sQuebraLinha;
if (dm_dFab in FDetMedicamentos) then
Result := Result + 'FAB: ' + DateToStr(med.Items[i].dFab) + sQuebraLinha;
if (dm_dVal in FDetMedicamentos) then
Result := Result + 'VAL: ' + DateToStr(med.Items[i].dVal) + sQuebraLinha;
end;
if (dm_vPMC in FDetMedicamentos) then
if (med.Items[i].vPMC > 0) then
Result := Result + 'PMC: R$' + FormatFloatBr(med.Items[i].vPMC) + sQuebraLinha;
end;
-
gutopmc's post in tpag 17 xcampo não sai no xml was marked as the answer
Resolvido! Preenchi a tags tband com 99 e a cnpj com o cnpj do banco e transmitiu!
-
gutopmc's post in erro ao utilizar acbrcep was marked as the answer
resolvido! web service estava errado;
-
gutopmc's post in Utilizar componente pix num PDV was marked as the answer
Consegui converter o arquivo no openssl para o formato RSA usando o comando
openssl rsa -in server.key -out server_new.key Funcionou!!!
-
gutopmc's post in Nota(s) não confirmadas: 5555 -> 0- (só retorna o zero) was marked as the answer
Descobri o real motivo, a causa foi que a maquina entrou em horario de verão. Desativei o mesmo e voltou a funcionar.
-
gutopmc's post in Goiânia - Erro E160 was marked as the answer
Como um colega alertou em outro post , comentando a linha na função abaixo, vai funcionar!
function TProvedorGoiania.GetConfigSchema(ACodCidade: Integer): TConfigSchema; var ConfigSchema: TConfigSchema; begin ConfigSchema.VersaoCabecalho := '2.01'; ConfigSchema.VersaoDados := '2.01'; ConfigSchema.VersaoXML := '2'; ConfigSchema.NameSpaceXML := 'http://nfse.goiania.go.gov.br/xsd/'; ConfigSchema.Cabecalho := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoEnviar := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConSit := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConLot := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConRps := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConNfse := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoCancelar := 'nfse_gyn_v02.xsd'; //ConfigSchema.ServicoGerar := 'nfse_gyn_v02.xsd'; <---------> COMENTAR ESSA LINHA ConfigSchema.ServicoEnviarSincrono := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoSubstituir := 'nfse_gyn_v02.xsd'; ConfigSchema.DefTipos := ''; Result := ConfigSchema; end; -
gutopmc's post in Tag Competencia - Provedor Goiânia was marked as the answer
Agradeço a ajuda Italo!
Para funcionar eu alterei a parte que você me falou para a forma abaixo (em negrito):
if NFSe.Competencia <> ''
then begin
case FProvedor of
proPVH,
proMitra,
proGovDigital,
proISSe: Gerador.wCampoNFSe(tcDat, '#4', 'Competencia', 10, 10, 1, NFSe.Competencia, DSC_DEMI);
proGoiania,
proTecnos: Gerador.wCampoNFSe(tcDatHor, '#4', 'Competencia', 19, 19, 0, NFSe.Competencia, DSC_DEMI);
else Gerador.wCampoNFSe(tcStr, '#4', 'Competencia', 19, 19, 1, NFSe.Competencia, DSC_DEMI);
end
end
else begin
if FProvedor in [proPVH, proFreire, proISSe, proFiorilli, proSaatri, proCoplan,
proMitra, proVitoria, proGovDigital]
then Gerador.wCampoNFSe(tcDat, '#4', 'Competencia', 10, 10, 1, NFSe.DataEmissao, DSC_DEMI)
else begin
if not(FProvedor in [proGoiania])
then Gerador.wCampoNFSe(tcDatHor, '#4', 'Competencia', 19, 19, 0, NFSe.DataEmissao, DSC_DEMI);
end;
end;