Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » winsock con impresora ip markem imaje

FoxPro/Visual FoxPro - winsock con impresora ip markem imaje

Volver
Nuevo Tema
<<>>
 
Vista:

winsock con impresora ip markem imaje

Publicado por Jorge Biolley (1 intervención) el 29/08/2018 17:07:50
Buenas, estoy tratando de imprimir en red hacia una impresora markem imaje usando winsock, segun yo esta todo bien, pero me sale el error:
OLE IDispatch exception code 0 from Winsock: Wrong protocol or connection state for de requested transaction or request..

Debo reconocer que ers primera vez que uso el winsock por lo que todo consejo es bienvenido....

este es mi codigo....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
thisform.wskImpresoraMarkemImaje.obJECT.protocol= 0  && sckTCPProtocol
thisform.wskImpresoraMarkemImaje.obJECT.remoteHost="10.0.1.30"
thisform.wskImpresoraMarkemImaje.obJECT.remotePort=9100
thisform.wskImpresoraMarkemImaje.obJECT.connect
lin="!/ version 4"+CHR(10)
lin=lin+"!V5000 <CLEAR>"+CHR(10)
lin=lin+"!/ label 'Image1' '' '' '' '' 51 S 1500 1200 30 00"+CHR(10)
lin=lin+"!C"+CHR(10)
lin=lin+"!y23 0"+CHR(10)
lin=lin+"!y24 1000"+CHR(10)
lin=lin+"!y25 800"+CHR(10)
lin=lin+"!Y9 1"+CHR(10)
lin=lin+"!Y35 99"+CHR(10)
lin=lin+"!V131 99"+CHR(10)
lin=lin+"!V128"+CHR(10)
lin=lin+"!Y106 5"+CHR(10)
lin=lin+"!Y105 5"+CHR(10)
lin=lin+"!Y104 1"+CHR(10)
lin=lin+"!Y103 1"+CHR(10)
lin=lin+"!Y102 3"+CHR(10)
lin=lin+"!Y101 1"+CHR(10)
IF thisform.pgfDetalle.pgeOtrosDatos.chkInverso.Value = 1
   lin=lin+"!Y162 1"+CHR(10)
   lin=lin+"!F S S 756 970 L 7 8 94021 0 "+alltrim(thisform.txtNombreProducto1.Value)+" "+alltrim(thisform.txtNombreProducto2.Value)+CHR(10)
   lin=lin+"!Y162 0"+CHR(10)
ELSE
   lin=lin+"!F S S 756 970 L 7 8 94021 0 "+alltrim(thisform.txtNombreProducto1.Value)+" "+alltrim(thisform.txtNombreProducto2.Value)+CHR(10)
ENDIF
lin=lin+"!F S S 725 970 L 4 5 94021 0 "+alltrim(thisform.txtElaboradoPor.Value)+CHR(10)
lin=lin+"!F S S 705 970 L 4 5 94021 0 "+alltrim(thisform.txtDireccionResolucion01.Value)+CHR(10)
lin=lin+"!F S S 685 970 L 4 5 94021 0 "+alltrim(thisform.txtDireccionResolucion02.Value)+CHR(10)
IF LEN(alltrim(thisform.pgfDetalle.pgeInforNut.txtInfoAdic.Value)) > 0
   lin=lin+"!F S S 718 330 L 6 6 94021 0 "+"Peso Neto: "+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtPeso.Value))+" g"+CHR(10)
   lin=lin+"!F S S 688 330 L 6 6 94021 0 "+alltrim(thisform.pgfDetalle.pgeInforNut.TxtInfoAdic.Value)+CHR(10)
ELSE
   lin=lin+"!F S S 703 330 L 6 6 94021 0 "+"Peso Neto: "+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtPeso.Value))+" g"+CHR(10)
ENDIF
lin=lin+"!F S S 644 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea01.Value)+CHR(10)
lin=lin+"!F S S 629 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea02.Value)+CHR(10)
lin=lin+"!F S S 614 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea03.Value)+CHR(10)
lin=lin+"!F S S 599 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea04.Value)+CHR(10)
lin=lin+"!F S S 584 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea05.Value)+CHR(10)
lin=lin+"!F S S 569 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea06.Value)+CHR(10)
lin=lin+"!F S S 554 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea07.Value)+CHR(10)
lin=lin+"!F S S 539 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea08.Value)+CHR(10)
lin=lin+"!F S S 524 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea09.Value)+CHR(10)
lin=lin+"!F S S 509 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea10.Value)+CHR(10)
lin=lin+"!F S S 494 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea11.Value)+CHR(10)
lin=lin+"!F S S 479 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea12.Value)+CHR(10)
lin=lin+"!F S S 464 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea13.Value)+CHR(10)
lin=lin+"!F S S 449 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea14.Value)+CHR(10)
lin=lin+"!F S S 434 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea15.Value)+CHR(10)
lin=lin+"!F S S 419 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeIngredientes.txtLinea16.Value)+CHR(10)
lin=lin+"!F S S 369 970 L 3 5 94021 0 "+alltrim(thisform.pgfDetalle.pgeInforNut.txtAlmacenamiento01.Value)+" "+alltrim(thisform.pgfDetalle.pgeInforNut.txtAlmacenamiento02.Value)+CHR(10)
lin=lin+"!F B S 45 970 L 310 460 2"+CHR(10)
lin=lin+"!F B S 324 970 L 2 460 0"+CHR(10)
lin=lin+"!F B S 299 970 L 2 460 0"+CHR(10)
lin=lin+"!F B S 274 970 L 2 460 0"+CHR(10)
lin=lin+"!F S S 334 900 L 3 5 94021 0 "+"INFORMACION NUTRICIONAL"+CHR(10)
mcant_real=INT(thisform.pgfDetalle.pgeInforNut.txtPeso.Value/thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value)
mcant_dec=(thisform.pgfDetalle.pgeInforNut.txtPeso.Value/thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value)-INT(thisform.pgfDetalle.pgeInforNut.txtPeso.Value/thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value)
IF thisform.pgfDetalle.pgeInforNut.txtPorcion.Value <> mcant_real
   lin=lin+"!F S S 309 960 L 3 5 94021 0 "+"Porción: "+alltrim(thisform.pgfDetalle.pgeInforNut.CmbPorcion.Value)+" ("+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtPorcion.Value))+" g)"+CHR(10)
   lin=lin+"!F S S 309 750 L 3 5 94021 0 "+"Porciones por envase: "+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value))+" "+alltrim(thisform.pgfDetalle.pgeInforNut.txtAprox.Value)+CHR(10)
ELSE
   IF mcant_dec <> 0
      lin=lin+"!F S S 309 960 L 3 5 94021 0 "+"Porción: "+alltrim(thisform.pgfDetalle.pgeInforNut.CmbPorcion.Value)+" ("+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtPorcion.Value))+" g)"+CHR(10)
      lin=lin+"!F S S 309 750 L 3 5 94021 0 "+"Porciones por envase: "+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value))+" "+alltrim(thisform.pgfDetalle.pgeInforNut.txtAprox.Value)+CHR(10)
   ELSE
      lin=lin+"!F S S 309 960 L 3 5 94021 0 "+"Porción: "+alltrim(thisform.pgfDetalle.pgeInforNut.CmbPorcion.Value)+" ("+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtPorcion.Value))+" g)"+CHR(10)
      lin=lin+"!F S S 309 750 L 3 5 94021 0 "+"Porciones por envase: "+alltrim(STR(thisform.pgfDetalle.pgeInforNut.txtCantidadEnvase.Value))+CHR(10)
   ENDIF
ENDIF
lin=lin+"!p"+CHR(10)
thisform.wskImpresoraMarkemImaje.obJECT.SendData(lin)
thisform.wskImpresoraMarkemImaje.OBJECT.Close


Desde ya muchas gracias.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder