Novos meios de pagamento

[malcarli]

Boa tarde Mestre, conforme nt em vigor está faltando os seguintes 4 meios de pagamentos:

Código: Selecionar todos

   CASE Len( ::aDetPag ) > 0
      aList := { ;
         { "01", "DINHEIRO" }, ;
         { "02", "CHEQUE" }, ;
         { "03", "CARTAO DE CREDITO" }, ;
         { "04", "CARTAO DE DEBITO" }, ;
         { "05", "CREDITO LOJA" }, ;
         { "10", "VALE ALIMENTACAO" }, ;
         { "11", "VALE REFEICAO" }, ;
         { "12", "VALE PRESENTE" }, ;
         { "13", "VALE COMBUSTIVEL" }, ;
         { "15", "BOLETO BANCARIO" }, ;

         { "16", "DEPOSITO BANCARIO" }, ;  // estes 4
         { "17", "PAGAMENTO INSTANTANEO (PIX)" }, ;
         { "18", "TRANSFERENCIA BANCARIA, CARTEIRA DIGITAL" }, ;
         { "19", "PROGRAMA DE FIDELIDADE, CASHBACK, CREDITO VIRTUAL" }, ;

         { "90", "SEM PAGAMENTO" }, ;
         { "99", "OUTROS" } }

obg

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
Insta: @malcarli25
Email / Skype: marceloalcarli@gmail.com

[Fernando queiroz]

Código: Selecionar todos

cQuery+= "('1', 'DINHEIRO', 'DINHEIRO', '1', '0', '1'), "
		cQuery+= "('2', 'CHEQUE', 'CHEQUE', '0', '0', '0'), "
		cQuery+= "('3', 'CARTAO DE CREDITO', 'CARTAO DE CREDITO', '0', '1', '0'), "
		cQuery+= "('4', 'CARTAO DE DEBITO', 'CARTAO DE DEBITO', '0', '1', '0'), "
		cQuery+= "('5', 'CREDITO LOJA', 'CREDITO LOJA', '1', '0', '0'), "
		cQuery+= "('10', 'VALE ALIMENTACAO', 'VALE ALIMENTACAO', '0', '0', '0'), "
		cQuery+= "('11', 'VALE REFEICAO', 'VALE REFEICAO', '0', '0', '0'), "
		cQuery+= "('12', 'VALE PRESENTE', 'VALE PRESENTE', '0', '0', '0'), "
		cQuery+= "('13', 'VALE COMBUSTIVEL', 'VALE COMBUSTIVEL', '0', '0', '0'), "
		cQuery+= "('15', 'BOLETO BANCARIO', 'BOLETO BANCARIO', '0', '0', '0'), "
		cQuery+= "('16', 'DEPOSITO BANCARIO', 'DEPOSITO BANCARIO', '0', '0', '0'), "
		cQuery+= "('17', 'PAGAMENTO INSTANTANEO (PIX)', 'PAGAMENTO INSTANTANEO (PIX)', '0', '0', '0'), "
		cQuery+= "('18', 'TRANSFERENCIA BANCARIA', 'TRANSFERENCIA BANCARIA', '0', '0', '0'), "
		cQuery+= "('19', 'PROGRAMA DE FIDELIDADE', 'PROGRAMA DE FIDELIDADE', '0', '0', '0'), "
		cQuery+= "('20', 'PAGAMENTO INSTANTANEO (PIX) ESTATICO', 'PAGAMENTO INSTANTANEO (PIX) ESTATICO', '0', '0', '0'), "
		cQuery+= "('21', 'TRANSFERENCIA COM CARTAO PRE-PAGO', 'TRANSFERENCIA COM CARTAO PRE-PAGO', '0', '0', '0'), "
		cQuery+= "('90', 'SEM PAGAMENTO', 'SEM PAGAMENTO', '0', '0', '0'), "
		cQuery+= "('99', 'OUTROS', 'OUTROS', '0', '0', '0')"

na sua lista esta faltando algumas formas de pagamento

20 Pagamento Instantâneo (PIX) – Estático 01/07/2024 PIX realizado com QR-Code estático ou por meio de transferência.
21 Crédito em Loja 01/07/2024 Crédito em loja decorrente de valor pago anteriormente, de devolução de mercadoria etc.
22 Pagamento Eletrônico não Informado – falha de hardware do sistema emissor 01/07/2024 Usado quando o pagamento por meio eletrônico não foi integrado por falha no hardware do sistema emissor de documento fiscal eletrônico, somente em exceção, quando não for possível a emissão offline.

eu usava o 17 para PIX e agora estou usando o 20, o 17 agora tem de ser com identificação

se usava o 17 verifique na documentacao pois existe alteracoes paraq essa forma de pagamento

[JoséQuintas]

Atualizar o json.

[JoséQuintas]

É um saco isso.
O json tá pronto, mas a sefaz usar diferente....
Tentar alguma alternativa.
Talvez o #pragma binary, e decidir se o json vai pra fontes ou não.

[JoséQuintas]

Uia

Código: Selecionar todos

      aList := hb_JsonDecode( LoadJson( "tpag.json" ) )

Código: Selecionar todos

STATIC FUNCTION LoadJson( cTipo )

   DO CASE
   CASE cTipo == "tpag.json"; #pragma __binarystreaminclude "..\json\sefaztpag.json" | RETURN %s
   ENDCASE

   RETURN Nil

e o json

Código: Selecionar todos

[
[ '01', 'Dinheiro' ],
[ '02', 'Cheque' ],
[ '03', 'Cartão de Crédito' ],
[ '04', 'Cartão de Débito' ],
[ '05', 'Crédito Loja' ],
[ '10', 'Vale Alimentação' ],
[ '11', 'Vale Refeição' ],
[ '12', 'Vale Presente' ],
[ '13', 'Vale Combustível' ],
[ '15', 'Boleto Bancário' ],
[ '16', 'Depósito Bancário' ],
[ '17', 'PIX Identificado' ],
[ '18', 'Transferência Bancária, Carteira Digital' ],
[ '19', 'Programa de fidelidade, Cashback, Crédito Virtual' ],
[ '20', 'PIX QRCode Estático ou Transferência' ],
[ '21', 'Crédito em Loja, pago anteriormente, devolução, etc' ],
[ '22', 'Pagto Eletrônico não informado, por falha de hardware' ],
[ '90', 'Sem pagamento' ],
[ '99', 'Outros' ]
]

Traduzindo: o json vai fazer parte do fonte compilado.

[JoséQuintas]

Leis das probabilidades...
Justo esse json estava errado.
NÃO EXISTE ASPAS SIMPLES EM JSON