Guest User

Untitled

a guest
Jun 19th, 2018
148
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.68 KB | None | 0 0
  1. private void btnver_Click(object sender, EventArgs e)
  2. {
  3. SAPbobsCOM.Company oCompany = new SAPbobsCOM.Company();
  4. try
  5. {
  6.  
  7. oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2005;
  8. oCompany.DbUserName = "sa";
  9. oCompany.DbPassword = "abcd1234";
  10. oCompany.Server = "180.168.1.5";
  11. oCompany.CompanyDB = (cmbSociedad.SelectedItem as ComboboxItem).Value.ToString();
  12. oCompany.UserName = txtUsuario.Text;
  13. oCompany.Password = txtPassword.Text;
  14. oCompany.UseTrusted = false;
  15. oCompany.language = SAPbobsCOM.BoSuppLangs.ln_Spanish;
  16.  
  17. int ret = oCompany.Connect();
  18.  
  19. string errMsg = oCompany.GetLastErrorDescription();
  20.  
  21. int ErrNo = oCompany.GetLastErrorCode();
  22.  
  23. if (ErrNo != 0)
  24. {
  25. oCompany.Disconnect();
  26. lblResultado.Text = errMsg;
  27. }
  28. else
  29. {
  30.  
  31. Payments _pay = (Payments)oCompany.GetBusinessObject(BoObjectTypes.oIncomingPayments);
  32. Recordset _oRecordSet = (Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
  33. _oRecordSet.DoQuery("select * from [PGN_PROD].[dbo].[ORCT] Where DocDate = '19/06/2018' order by DocDate desc");
  34.  
  35. int cantidad = _oRecordSet.RecordCount;
  36.  
  37. string docnum = _oRecordSet.Fields.Item("DocNum").Value.ToString();
  38. string canceled = _oRecordSet.Fields.Item("Canceled").Value.ToString();
  39. string docdate = _oRecordSet.Fields.Item("DocDate").Value.ToString();
  40. string resul = "1 - " + docnum + " - " + canceled + " - " + docdate + Environment.NewLine; ;
  41.  
  42.  
  43. for (int i = 1; i < cantidad; i++)
  44. {
  45. _oRecordSet.MoveNext();
  46. docnum = _oRecordSet.Fields.Item("DocNum").Value.ToString();
  47. canceled = _oRecordSet.Fields.Item("Canceled").Value.ToString();
  48. docdate = _oRecordSet.Fields.Item("DocDate").Value.ToString();
  49.  
  50. resul += (i + 1) + " - " + docnum + " - " + canceled + " - " + docdate + Environment.NewLine;
  51.  
  52. }
  53.  
  54. rtdocumentos.Text = resul;
  55.  
  56. lblResultado.Text = "Succes connected";
  57.  
  58. oCompany.Disconnect();
  59. }
  60.  
  61. }
  62. catch (Exception ex)
  63. {
  64.  
  65. oCompany.Disconnect();
  66. throw ex;
  67.  
  68. }
  69. }
Add Comment
Please, Sign In to add comment