Negócios :: OnlinePayment :: Virtualnet backend vital virtualnet para negócios :: OnlinePayment
Baixe Agora

Negócios :: OnlinePayment :: Virtualnet Classificação e resumo

Negócios :: OnlinePayment :: Virtualnet Tag

Forma de pagamento Módulo Perl. Processo interno pagamento online Virtualnet backend Virtualnet

Negócios :: OnlinePayment :: Virtualnet Descrição

Vital Vittualnet Backend para Business :: OnlineAyment Negócios :: OnlinePayment :: Virtualnet é um módulo Perl que implementa a interface documentada em http://www.vitalps.com/sections/int/int_interfacespecs.htmlsynopsis Use Business :: OnlinePayment; Meu $ TX = New Business :: OnlinePayment ("Virtualnet", 'Merchant_ID' => '9999999999911', 'Store' => '0011', 'terminal' => '9911', '5999', # Mercant Categoria Código 'BIN' => '999995', #acquirer bin (número de identificação bancária) 'zip' => '543211420', #mercant zip (US) ou atribuído código da cidade 'agente' => '000000', # Banco do agente 'v' => '00000001', 'Merchant_name' => 'Provedor de serviços de Internet', # 25 Char Max 'Merchant_City' => 'Gloucester', # 13 Char max 'Merchant_State' => 'VA', # 2 CHAR 'SEQ_FILE' => '/ tmp / bop-virtualnet-sequence', 'batchnum_file' => '/ tmp / bop-virtualnet-batchnum', #: / 0-999 em 5 dias); $ tx-> conteúdo (tipo => 'cc', login => 'teste', ação somente => 'AUTORIZAÇÃO', descrição => 'Business :: OnlinePayment Test', quantidade => '49 .95 ', Invoice_number =>' 100100 ', nome =>' tofu beast ', card_number =>' 4111111111111111 ', expiração => '09 / 03',); $ tx-> enviar (); if ($ TX-> IS_SUCCESS ()) {Print "Cartão Autorizado com êxito:". $ tx-> Autorização ". ";} else {Imprimir" Erro: ". $ tx-> error_message". ";}} se ($ tx-> is_success ()) {my $ capture = novo negócio :: OnlinePayment (" Virtualnet ", 'agente' => '000001', 'cadeia' => '000000', #opcional? ' v '=>' 00000001 ',' MERCHANT_ID '=>' 9999999999911 ',' Store '=>' 0011 ',' terminal '=>' 9911 ',' MCC '=>' 5999 ', #mercant '=>' 999995 ', #acquirer bin (número de identificação bancária)); $ Capture-> conteúdo (tipo =>' cc ', ação =>' Post Authorization ', quantidade => '49 .95', card_number => '411111111111111 ', expiração => '09 / 03', autorização => $ tx-> autorização, autorização_source_code => $ tx-> autorização_source_code, retornado_aci => $ tx-> retornado_ci, transaction_identifier => $ tx-> transaction_identifier, validation_code => $ Tx-> Validation_Code, transaction_sequence_num => $ tx-> transaction_sequence_num, local_transaction_date => $ tx-> local_transaction_date, local_transaction_time => $ tx-> local_transaction_time, avs_result_code => $ tx-> avs_result_code, #description => 'business :: OnlinePayment :: teste virtualnet ', ação =>' post auth Orization ', # Order_Number => $ OrderNum, # Valor =>' 0.01 ', # Autorização => $ auth, # Description =>' Business :: OnlinePayment :: Test virtualnet ',); $ Capture-> enviar (); Se ($ Capture-> is_success ()) {impressão "cartão capturado com sucesso ";} else {Imprimir" Erro: ". $ Capture-> error_message." ";}} Requisitos: · Perl.

Negócios :: OnlinePayment :: Virtualnet Software Relacionado