You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

50 lines
1.3 KiB

4 years ago
  1. <?php
  2. require_once "/var/www/html/pedvenesp/prgdmug/F_DMUG.php";
  3. $v_suc = "";
  4. $v_ped = "";
  5. foreach($_POST as $campo => $valor)
  6. {
  7. if($campo=="suc")
  8. $v_suc=$valor;
  9. if($campo=="ped")
  10. $v_ped=$valor;
  11. }
  12. error_log("---sucursal---: " . $v_suc ."---ped---:" . $v_ped);
  13. $server= "localhost";
  14. $port = 1030;
  15. $hs = "DEMIURGO10-MCANET";
  16. $user = "general";
  17. $pass = "123456789";
  18. error_log("Buscando productos por medio de filtros");
  19. $pid = getmypid();
  20. $limit = 100;
  21. $veces_error_server = 0;
  22. /* Crea un objeto para el manejo postgres */
  23. $ConDMUG = new ConexDMUG( $server , $port , $hs ,$user , $pass );
  24. $ConDMUG->SetProgram( "Detalle_pedesp" );
  25. $ConDMUG->SetParameter( "sucursal" , $v_suc );
  26. $ConDMUG->SetParameter( "pedido" , $v_ped);
  27. if ( $ConDMUG->Execute_DMUG() < 0)
  28. {
  29. error_log("$veces_error_server".$veces_error_server);
  30. $veces_error_server++;
  31. if ( $veces_error_server > 2 )
  32. {
  33. error_log("exit();");
  34. exit();
  35. }
  36. sleep(5);
  37. continue;
  38. }
  39. error_log("XML: " . $ConDMUG->xmlraw);
  40. $RESULTADO = $ConDMUG->GetChild( "STRERROR" );
  41. echo json_encode($ConDMUG->xmlrequest);
  42. $ConDMUG->CloseConex();
  43. exit();
  44. ?>