Fórmula para forma de pagamento - comentada

[Jair - Fórmula]

/* FDADOSPGTO.FORMAPAGAMENTO - Opções/Códigos nas Formas de Pagamento RM:
	A - DARF; OK
	B - IPTU/ISS/Outros tributos municipais; OK
	C - Cheque Administrativo;
	D - DOC (Compe); OK
	E - Débito Automático;
	F - DARJ;
	G - GPS; OK
	I - Título de Cobrança (Boleto); OK
	J - GARE - SP ICMS;
	L - FGTS - GFIP;
	M - Crédito em Conta Corrente de Mesma Titularidade; OK
	N - Pagamento Eletrônico a Concessionários; OK
	O - GNRE e Tributos estaduais com código de barras; OK
	P - Crédito em Conta de Poupança; OK
	Q - PIX QR - Code
	R - Ordem de Pagamento à disposição;
	S - PIX Transferência;
	T - Crédito em Conta Corrente no mesmo Banco; OK
	X - Crédito em Conta real time; OK
	Y - TED CIP; OK
	Z - TED STR; OK
*/

/* DE x PARA de Formas de Pagamento para o Banco Santander, conforme Layout YLEC_2403 V.11.6 _07/2024 */

Se 		FormaPagto='T' ou FormaPagto='M' ou (FormaPagto ='X' e NumBanco = 033)
Entao 	'01' /* Banco: 01 = Crédito em Conta Corrente | RM: T - Crédito em Conta Corrente no mesmo Banco; M - Crédito em Conta Corrente de Mesma Titularidade; X - Crédito em Conta real time */

Senao	Se 		FormaPagto='D' ou FormaPagto='Y' ou FormaPagto='Z'
		Entao 	'03' /* Banco: 03 = Transferência para Outros Bancos (TED CIP e STR) | RM: D - DOC (Compe); Y - TED CIP; Z - TED STR; */

		Senao	Se  FormaPagto='P' 
				Entao '05' /* Banco: 05 = Crédito em Conta Poupança | RM: P - Crédito em Conta de Poupança; */
				
				Senao 	Se  FormaPagto='R' 
						Entao '10' /* Banco: 10 = Ordem de Pagamento / Recibo | RM: R - Ordem de Pagamento à disposição; */
						
						Senao 	Se  FormaPagto='B' ou FormaPagto= 'O' ou FormaPagto='N'
								Entao '11' /* Banco: 11 = Pagamento de Contas e Tributos com Código de Barras | RM: B - IPTU/ISS/Outros tributos municipais; O - GNRE e Tributos estaduais com código de barras; N - Pagamento Eletrônico a Concessionários; */
								
								Senao 	Se FormaPagto='A'
										Entao '16' /* Banco: 16 = DARF Normal – sem código de barras  | RM: A - DARF; */
										
										Senao 	Se FormaPagto='G'
												Entao '17' /* Banco: 17 = GPS - Guia da Previdência Social – sem código de barras | RM: G - GPS; */
												
												Senao 	Se  	FormaPagto='I' 
														Entao	Se BancoCodBarras='033'   
																Entao '30' /* Banco: 30 = Liquidação de títulos em carteira de cobrança próprio Santander | RM: I - Título de Cobrança (Boleto); */
																Senao '31' /* Banco: 31 = Liquidação de títulos outros Bancos | RM: I - Título de Cobrança (Boleto); */
																FimSe	
														
														Senao 	Se	FormaPagto='S' 
																	Entao '45' /* Banco: 45 = Pix Transferência/ QR Code Estático | RM: S - PIX Transferência; */
																
																Senao 	Se	FormaPagto='Q' 
																		Entao '47' /* Banco: 47 = Pix QR Code - Estático e Dinâmico| RM: Q - PIX QR - Code */
																		Senao '--' /* Não tratado - ajustar adicionando acima o código respectivo */
																		Fimse
																FimSe
														Fimse
												Fimse
										Fimse
								Fimse
						Fimse
				Fimse
		Fimse
Fimse